Private Sub Command3_Click()
On Error GoTo Err_cmdCommand3_Click
'Laad de namen van de te draaien query's in het geheugen
Dim stDocNameqryCheckOpVerkeerdeInvoer As String
Dim strMessageOk As String
Dim strMessageFoutControle As String
'Definieer de query namen
stDocNameqryCheckOpVerkeerdeInvoer = "qryCheckOpVerkeerdeInvoer"
strMessageFoutControle = "EBLIS heeft een fout gevonden bij het importeren van de ritplanning! Er wordt een rapport uitgedraaid met de fouten, verbeter deze en voer de optie opnieuw uit!"
'Start de betreffende query's
'Test om te kijken of het aantal records van de query 0 is.
If IsNull(qryCheckOpVerkeerdeInvoer) Then
'Melding geven dat de query's met succes zijn uitgevoerd
MsgBox (strMessageOk)
Else
MsgBox (strMessageFoutControle), vbInformation
GoTo Exit_Command3_Click_Click
End If
Exit_Command3_Click_Click:
Exit Sub
Err_cmdCommand3_Click:
MsgBox Err.Description
Resume Exit_Command3_Click_Click
End Sub
Heb ik geprobeerd door de 'If IsNull(qryCheckOpVerkeerdeInvoer) Then' te vervangen voor rst. recordset = 0, maar dit werkt niet, kan je mischien iets specifieker zijn?
