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

sil kodu