Variabele doorgeven tussen forms

[Arjan B]

Ik heb natuurlijk al met google rondgezocht naar oplossingen en ze geprobeerd maar het is me niet gelukt.

Er is een form Form_frm_Afdeling_Hoofd_Nieuw ( ja die gaat nog anders heten ), daarop zit een knopje genaamd btn_Financien. Als je daarop klikt moet hij uit een variabele van het afdelingenform halen wat de geselecteerde afdeling is en aan de hand daarvan een query uitvoeren.

Hier is wat ik op het moment heb:

fillInfo wordt aangeroepen als er een andere afdeling wordt geselecteerd

Private Sub fillInfo(ByVal Afdeling As String)
    ' Huidige afdeling
    huidigeAfdeling = Afdeling
    
    ...
   
End Sub

huidigeAfdeling is een public variabele van het afdelingenform.

Private Sub btn_Financien_Click()
    DoCmd.OpenForm "frm_Financien", , , , , , huidigeAfdeling
    If Not IsNull(huidigeAfdeling) Then
      MsgBox huidigeAfdeling
    End If
End Sub

De Form_Load van het financienform:

Private Sub Form_Load()
    Dim Query As String
    Dim r As ADODB.Recordset
    Dim Afdeling As String
    
    If Not IsNull(Me.OpenArgs) Then
      Afdeling = Me.OpenArgs
    Else
      MsgBox "Dude.. Me.OpenArgs is NULL.. -.-'"
    End If
    MsgBox Afdeling
    
    'Let Query = "SELECT Product.Naam, Verbruik.Hoeveelheid, Product.Inkoopprijs, Verbruik.Hoeveelheid * Product.Inkoopprijs AS Kosten, Verbruik.Hoeveelheid * Product.Prijs AS Inkomsten, Verbruik.Hoeveelheid * ( Product.Prijs - Product.Inkoopprijs ) AS Winst FROM Product, Verbruik WHERE Verbruik.Materiaal_ID = Product.Product_ID AND Verbruik.Afdeling_Naam = '" & Form_frm_Afdeling_Hoofd_Niew.huidigeAfdeling.Value & "'"
    'Set r = CurrentProject.Connection.Execute(Query)
    
    'If r.EOF = False Then
    '    Me.txt_Financien.Value = r.GetString(adClipString, -1, "", vbCrLf)
   ' Else
     '   Me.txt_Financien.Value = ""
   ' End If
End Sub

Hij geeft nu dus aan dat OpenArgs NULL is. Ik hoop dat iemand mij kan uitleggen wat ik hier fout doe of een andere oplossing kan geven ^^.

Alvast bedankt!

-----------------------------------------------

EDIT:

Heb het al gevonden ^^. In de Form_Load van het afdelingenform wordt fillInfo niet aangeroepen.