Private Sub Exit_Click()
On Error GoTo Err_Exit_Click

Dim a, b, c, errmes As String

errmes = ""

a = nz (dlookup ("Врач", "Дежурства", "КодДежурства = " & me.коддежурства),0) ' я предположил, что таблица называется "Дежурства", а "Коддежурства" ключевое поле в ней, которое присутствует так же и в форме
b = nz (dlookup ("Дата", "Дежурства", "КодДежурства = " & me.коддежурства),0)
c = nz (dlookup ("Вреся", "Дежурства", "КодДежурства = " & me.коддежурства),0)

button = vbExclamation
if a <> 0 and b <> 0 and c <> 0 then errmes = "Данное время уже занято!"

If errmes = "" Then
    DoCmd.Close
Else
    MSG = msgbox(errmes, vbExclamation, Me.Caption)
End If

Exit_Exit_Click:
    Exit Sub

Err_Exit_Click:
    msgbox Err.Description
    Resume Exit_Exit_Click
    
End Sub