[sarafis]

Παναγιώτη καλημέρα
Με μια συνθήκη όπως παρακάτω μπορείς να ελέγξεις εαν το ερώτημα έχει εγγραφές.
Sub ToggleLink_Click()
On Error GoTo ToggleLink_Click_Err
If DCount("KodA", "qrySinolo") = 0 Then
MsgBox ("Δεν υπάρχουν εγγραφές για την τρέχουσα ημέρα με αυτό τον αριθμό")
Exit Sub
End If