iyi akşamlar değerli üstadlar
ekte sunduğum resimdede görüldüğü gibi diyelim işyeri kaydını açılan kutudan açıp seçtiğimde bana bu kaydın daha önce girildiğini söyeyerek mükerrer kaydı engellemek için tekrar başa dönüyor forumu inceledim ama bulamadım ben mükerrer kaydı engelemekle birlikte o işyerine ait bilgilerin getirilmesini istiyorum.
If ISYERIADI = Dlookup ("[ISYERIADI]", "[TBLISYERRLERI]", "[ISYERIADI]=forms![FRMISYERLERI]!ISYERIADI") Then
MsgBox "BU KAYIT DAHA ÖNCE GİRİLMİŞ ", vbOKOnly, ".........................."
Undo
Else
End If
ayrıca böyle bir yöntemin olmadığınıda belirtmek isterim
Private Sub Form_Current()
Me.Metin1 = musterino.Column(1)
Me.Metin2 = musterino.Column(2)
Me.Metin3 = musterino.Column(3)
End Sub
Private Sub musterino_AfterUpdate()
Me.Metin1 = musterino.Column(1)
Me.Metin2 = musterino.Column(2)
Me.Metin3 = musterino.Column(3)
“Değişmeyen tek şey değişmenin kendisidir.” Herakleitos