Kod:
Private Sub Plaka_No_AfterUpdate(Cancel As Integer)
If Plaka_no = DLookup("[Plaka_no]", "[tbl_Giris]", "[Plaka_no]=forms![FormAdi]!Plaka_no") Then
MsgBox "Bu Kayıt Zaten Var.... "
Undo
End If
End Sub
Private Sub Plaka_No_AfterUpdate(Cancel As Integer)
If Plaka_no = DLookup("[Plaka_no]", "[tbl_Giris]", "[Plaka_no]=forms![FormAdi]!Plaka_no") Then
MsgBox "Bu Kayıt Zaten Var.... "
Undo
End If
End Sub
Bu Konudaki Yorumlar |
İf ile karşılaştırma - Yazar: ABDULLAHİB - 26/04/2010, 22:33
Cvp: İf ile karşılaştırma - Yazar: C*e*l*o*y*c*e - 26/04/2010, 22:39
Cvp: İf ile karşılaştırma - Yazar: Puletin - 27/04/2010, 14:42
|