Dim sifre As String
sifre = "99"
If InputBox("Lütfen Silme Şifresini Giriniz") = sifre Then
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Me.Liste.Requery
Me.Tarihi.SetFocus
'DoCmd.GoToRecord , , acNewRec
'Form_PersonelBilgileri.Refresh
Else
Exit Sub
End If
bununla değiştirin,yeni kayıt yaptıgı için sayfayı boşaltıyor
Sil Komutu
| Bu Konudaki Yorumlar |
|
Sil Komutu - Yazar: m_demir - 01/04/2020, 17:00
Cvp: Sil Komutu - Yazar: C*e*l*o*y*c*e - 01/04/2020, 18:03
Cvp: Sil Komutu - Yazar: m_demir - 01/04/2020, 19:25
Cvp: Sil Komutu - Yazar: C*e*l*o*y*c*e - 01/04/2020, 19:46
Cvp: Sil Komutu - Yazar: accessman - 01/04/2020, 20:03
Cvp: Sil Komutu - Yazar: C*e*l*o*y*c*e - 01/04/2020, 20:11
Cvp: Sil Komutu - Yazar: m_demir - 01/04/2020, 20:36
Cvp: Sil Komutu - Yazar: C*e*l*o*y*c*e - 01/04/2020, 21:11
Cvp: Sil Komutu - Yazar: m_demir - 01/04/2020, 21:40
|
Konuyu Okuyanlar: 1 Ziyaretçi
