Skip to main content

AccessTr.neT


Sil Komutu

Sil Komutu

Çözüldü #1
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.
.rar Per.Takip-5.rar (Dosya Boyutu: 113,77 KB | İndirme Sayısı: 2)
Cevapla
#2
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
Cevapla
#3
Çok teşekkürler Hocam.

Hocam Kodu değiştirdim. PersonelBilgileri Formunda silme yapmıyor.
.rar Per.Takip-6.rar (Dosya Boyutu: 116,36 KB | İndirme Sayısı: 2)
Son Düzenleme: 01/04/2020, 19:26, Düzenleyen: m_demir.
Cevapla
#4
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
Cevapla
#5
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
Cevapla
#6
sil kodu
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da