Private Sub tcno_Exit(Cancel As Integer)
Dim c
c = MsgBox("Kayıt eklendi Çıkılsın mı?", vbYesNo + vbInformation, "Kayıt Onayı")
If c = vbYes Then
Me.ID = Me.Metin8
Me.Requery
'DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Forms!alislar!alt0![Açılan Kutu23].Requery
Forms!alislar!alt0![Açılan Kutu23]= me.adisoyadiünvani
Me.Form.Visible = False
End If
End Sub
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.