Sil Komutu - Baskı Önizleme

Sil Komutu - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Sil Komutu (/konu-sil-komutu--86923.html)

Sayfalar: 1 2

Sil Komutu - m_demir - 01/04/2020

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.

Cvp: Sil Komutu - C*e*l*o*y*c*e - 01/04/2020

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

Cvp: Sil Komutu - m_demir - 01/04/2020

Çok teşekkürler Hocam.

Hocam Kodu değiştirdim. PersonelBilgileri Formunda silme yapmıyor.

Cvp: Sil Komutu - C*e*l*o*y*c*e - 01/04/2020

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

Cvp: Sil Komutu - accessman - 01/04/2020

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

Cvp: Sil Komutu - C*e*l*o*y*c*e - 01/04/2020

sil kodu