Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Dim strSQL As String
Dim itm As Variant
For Each itm In Me.Patholgieën.ItemsSelected
If strSQL <> "" Then strSQL = strSQL & vbCrLf
strSQL = strSQL & Me.Patholgieën.Column(5) & " voorgeschreven door Dr. " & Me.Patholgieën.Column(3) & " op datum: " & Me.Patholgieën.Column(2)
Next itm
DoCmd.OpenReport "Aanvraag_nieuwe_pathologie", acViewPreview, , , acDialog, strSQL
Private Sub Report_Load()
If Not Me.OpenArgs = "" Then Me.Oplijsting = Me.OpenArgs
End Sub
SELECT identif, TELLER, DATVOOR, DOKTER, REEKS, DIAGN, OPMERK, print_nieuwe_pathologie FROM VOORSCHR WHERE KODE="24100359" ORDER BY DATVOOR DESC;
Private Sub Knop6_Click()
Dim strSQL As String
Dim itm As Variant
With Me.Patholgieën
For Each itm In .ItemsSelected
If strSQL <> "" Then strSQL = strSQL & vbCrLf
strSQL = strSQL & DLookup("DIAGN", "VOORSCHR", "identif=" & .ItemData(itm)) & " voorgeschreven door Dr. " _
& DLookup("DOKTER", "VOORSCHR", "identif=" & .ItemData(itm)) & " op datum: " _
& DLookup("DATVOOR", "VOORSCHR", "identif=" & .ItemData(itm))
Next itm
End With
DoCmd.OpenReport "Aanvraag_nieuwe_pathologie", acViewPreview, , , acDialog, strSQL
End Sub
For Each itm In .ItemsSelected
If strSQL <> "" Then strSQL = strSQL & vbCrLf
strSQL = strSQL & .Column(5, itm) & " voorgeschreven door Dr. " & .Column(3, itm) & " op datum: " & .Column(2, itm)
Next itm
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.