Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Sil Komutu

m_demir
m_demir
Access Cevaplanmış Soruları
8
1045

Sil Komutu

#5
accessman
Aktif Üye
accessman
Bul
Aktif Üye
Adı Soyadı:
Konum: Denizli
Ofis Versiyonu: Ofis 2003
Son Oturumu: 12/01/2021,20:07
Yorumları: 4.395
Konuları: 900
Kayıt Tarihi: 31/10/2008
Teşekkür Puanı: 434 
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

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Sil Komutu - Yazar: m_demir - 01/04/2020, 17:00
Cvp: Sil Komutu - Yazar: C*e*l*o*y*c*e - 01/04/2020, 18:03
Cvp: Sil Komutu - Yazar: m_demir - 01/04/2020, 19:25
Cvp: Sil Komutu - Yazar: C*e*l*o*y*c*e - 01/04/2020, 19:46
Cvp: Sil Komutu - Yazar: accessman - 01/04/2020, 20:03
Cvp: Sil Komutu - Yazar: C*e*l*o*y*c*e - 01/04/2020, 20:11
Cvp: Sil Komutu - Yazar: m_demir - 01/04/2020, 20:36
Cvp: Sil Komutu - Yazar: C*e*l*o*y*c*e - 01/04/2020, 21:11
Cvp: Sil Komutu - Yazar: m_demir - 01/04/2020, 21:40
Task