Hoi,
Nu ik toch bezig ben. Hier mijn 2e vraag over VB van vandaag. Dacht ff simpel te knippen en plakken, maar dat mag toch niet. Het vet gedrukte heb ik bijgevoegd aangezien ik wil er 2 velden als voorwaarde dienen (klantnummer en voorziening). Hoe kan ik dit beter oplossen?
Nu ik toch bezig ben. Hier mijn 2e vraag over VB van vandaag. Dacht ff simpel te knippen en plakken, maar dat mag toch niet. Het vet gedrukte heb ik bijgevoegd aangezien ik wil er 2 velden als voorwaarde dienen (klantnummer en voorziening). Hoe kan ik dit beter oplossen?
Code:
Private Sub Command13_Click()
On Error GoTo Err_Command13_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Hulpverleningsplan bekijken"
stLinkCriteria = "[Klantnummer]=" & Me![KLANTNUMMER]
[B] stLinkCriteria = "[Voorziening]=" & Me![Voorziening][/B]
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Command13_Click:
Exit Sub
Err_Command13_Click:
MsgBox Err.Description
Resume Exit_Command13_Click
End Sub