Saygılar...
Kod:
Private Sub gel_adetm_Exit(Cancel As Integer)
If Me.kal_adetm = 0 Then
MsgBox ("Siparişler TAMAM."), vbInformation, "BİLGİ"
Else
If Me.kal_adetm > 0 Then
MsgBox ("Siparişlerin hepsi gelmedi."), vbCritical, "UYARI"
Else
MsgBox ("Siparişten fazla geldi."), vbCritical, "UYARI"
End If
End If
End Sub