Calling a subroutine on a different form access (1 Viewer)

[sven2]

Hello,

in the form FrmIngaveParameters I hav a procedure to lookup some data like:

Private Sub OpzoekenMoederrolGegevens(Optional dMoederrolnummer As Double)
Dim strSQL As String
If dMoederrolnummer = 0 Then
strSQL = " SELECT TOP 1 TblMoederrollen.Moederrolnummer, MachineID, PapiersoortID, Datum,opmerking " & _
" FROM TblMoederrollen " & _
" left join tblmoederrolopmerking on TblMoederrollen.moederrolnummer = TblMoederrolopmerking.moederrolnummer " & _
" WHERE TblMoederrollen.MachineID=" & Me.txtmac & " Order BY TblMoederrollen.Moederrolnummer DESC ;"
Else
strSQL = " SELECT TOP 1 TblMoederrollen.Moederrolnummer, MachineID, PapiersoortID, Datum,opmerking " & _
" FROM TblMoederrollen " & _
" left join tblmoederrolopmerking on TblMoederrollen.moederrolnummer = tblmoederrolopmerking.moederrolnummer " & _
" WHERE TblMoederrollen.MachineID=" & Me.txtmac & " AND TblMoederrollen.moederrolnummer=" & dMoederrolnummer & " Order BY TblMoederrollen.Moederrolnummer DESC ;"
End If

Me.RecordSource = strSQL

This is working just fine. Then I have created a popup form to fill in a moederrolnummer and then I want to lookup the data for that moederrolnummer

I tried it like this:

first open the procedure form the popup and give the optional value -->
Call Forms.FrmIngaveParameters.OpzoekenMoederrolGegevens(Me.txtmoederrolnummer)

but this is not working ...

Who can help me.

Thanks in advance,
Sven.

 

[ecawilkinson]

The quick answer Sven is to make the procedure public instead of private, e.g.

Public Sub OpzoekenMoederrolGegevens(Optional dMoederrolnummer As Double)

and call it with

Call forms("FrmIngaveParameters").OpzoekenMoederrolGegevens(Me.txtmoederrolnummer)

However, I'm not sure what you are trying to do exactly.

HTH,
Chris

 

[sven2]

Hello,

works great! Thank you.

Best regards,
Sven.