- Code: Selecteer alles
Private Sub Cmdzoek_Click()
Dim stDocname As String
Dim stLinkCriteria As String
Dim stLinkCriteria1 As String
stDocname = "FrmFaktuur"
stLinkCriteria = "KlantID = " & Me.CboZoekNaam
stLinkCriteria1 = "FaktuurNr = " & Me.CmbZoekFaktuurNr
DoCmd.OpenForm stDocname, , , stLinkCriteria & " and " & stLinkCriteria1
End Sub
Met dank aan: therry en Harry
