Merhaba Arkadaşlar.
1- Eklediğim uygulamada Personel bilgileri Formunda sileceğim müşteriyi seçip sildikten sonra metin kutularının temizlenmesi için kod olmasına rağmen metin kutuları temizlenmiyor. Bir sonraki müşterinin bilgileri metin kutularına geliyor.
2- PersonelBilgileri Formundaki sil butonuna eklediğim kodlar sil işlemini yapmıyor.
Bu konularda yardımlarınıza ihtiyacım var yardımlarınız için şimdiden teşekkürler.
Dim sifre As String
sifre = "99"
If InputBox("Lütfen Silme Şifresini Giriniz") = sifre Then
Exit Sub
End If
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Form_PersonelBilgileri.Refresh
bu kodu şöyle değiştirip dene
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
Exit Sub
End If
Form_PersonelBilgileri.Refresh
Çok teşekkürler Hocam.
Hocam Kodu değiştirdim. PersonelBilgileri Formunda silme yapmıyor.
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
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
buradaki
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
kodlar ne işe yarıyor