If Cari_isim = Dlookup ("[Cari_isim]", "[Cari_Sabit]", "[Cari_isim]=forms![Cari_Kayit]!Cari_isim") Then
MsgBox "Bu Cari Daha Önce Tanımlanmış.", vbOKOnly, "Mükerrer Kayıt"
On Error Resume Next
Me.Cari_isim = ""
Me.Cari_Kod.SetFocus
Me.Cari_isim.SetFocus
Else
End If
Kodu Kendinize Göre Uyarlayınız. Uyarladığınız Metin Kutusunun Çıkıldı Özelliğine Ekleyiniz.
POWER 'un Çekirgesi :=)
ozguryasin, 23-09-2009 tarihinden beri AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter.
Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.
ozguryasin, 23-09-2009 tarihinden beri AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter.
Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.