AccessTr.neT

Tam Versiyon: Sil Komutu
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
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
Sayfalar: 1 2