Private Sub tcno_Exit(Cancel As Integer)
Dim c
Dim Gecici As String
c = MsgBox("Kayıt eklendi Çıkılsın mı?", vbYesNo + vbInformation, "Kayıt Onayı")
If c = vbYes Then
Me.ID = Me.Metin8
Gecici = Me.adisoyadiünvani
Me.Requery
Forms!alislar!alt0![Açılan Kutu23].Requery
Forms!alislar!alt0![Açılan Kutu23] = Gecici
Me.Form.Visible = False
End If
End Sub
kodunuzu aşağıdaki gibi yazınız.
Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)
Bilgisayar Programcısı (1989'dan beri)
Yollar biter Access bitmez.