If Nz(DLookup("id", "Tablo1", "[adi]='" & Me.a1 & "'"), 0) > 0 Then
MsgBox (Me.a1 & " ürünü var")
End If
Merhaba, a1 için gerekli kod