DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Merhaba..Merhaba Ardaşlar ben bunu tamam komuduna ekledim. Ancak şöyle bir problem var mevcut kayıtlı veriyede, kayıt ekliyor. Eğer mevcut bilgi varsa kayıt eklemesin.
Yardımınızı bekliyorum.
Private Sub Tamam_Click()
Forms![DEVAM_EDEN_ISLER]![Hesap No] = Me.lstÜye.Column(1)
Forms![DEVAM_EDEN_ISLER]![Grup No] = Me.lstÜye.Column(2)
Forms![DEVAM_EDEN_ISLER]![Firma Adı] = Me.lstÜye.Column(3)
End Sub
Private Sub Tamam_Click()
Forms![DEVAM_EDEN_ISLER].SetFocus
DoCmd.GoToRecord , , acNewRec
Forms![DEVAM_EDEN_ISLER]![Hesap No] = Me.lstÜye.Column(1)
Forms![DEVAM_EDEN_ISLER]![Grup No] = Me.lstÜye.Column(2)
Forms![DEVAM_EDEN_ISLER]![Firma Adı] = Me.lstÜye.Column(3)
DoCmd.Close acForm, "Musteri Sec"
Forms![DEVAM_EDEN_ISLER]![BS].SetFocus
End Sub