Bu türdeki bir kontrolü sizin için hazırladığım bu kodlar yardımı ile yapabilirsiniz.. Sadece kişi veya plaka yasaklı ise ayrı, hem kişi hem de plaka yasaklı ise ayrı uyarılırsınız..
Kod:
Dim Plaka, Kisi As String
Kisi = DCount("*", "tblSakincali", _
"adi='" & adi & "' and soyadi='" & soyadi & "'")
Plaka = DCount("*", "tblSakıncalıAraç", _
"[araç plakası]='" & babaadi & "'")
If Plaka > 0 And Kisi > 0 Then
MsgBox Plaka & " nolu plaka ve onu kullanan " _
& adi & " " & soyadi & " sakıncalı listesindedir!", vbCritical
Else
If Kisi > 0 Then MsgBox adi & " " & soyadi & " isimli şahıs sakıncalı listesindedir!", vbCritical
If Plaka > 0 Then MsgBox Plaka & " nolu plaka sakıncalı listesindedir!", vbCritical
End If