
İNANIN ÇOOK SEVİNDİM, SİZLERE İŞLERİNİZDE KOLAYLIKLAR DİLERİM. SEVGİ VE SAYGILARIMLA
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