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
1042

Sil Komutu

#2
C*e*l*o*y*c*e
Uzman
C*e*l*o*y*c*e
Bul
Uzman
Adı Soyadı: Ce.... Ya....
Konum: Ankara
Ofis Versiyonu: Ofis 2010 32 Bit
Son Oturumu: Bugün,02:14
Yorumları: 3.561
Konuları: 78
Kayıt Tarihi: 29/10/2008
Teşekkür Puanı: 1.038
Mesleğiniz: Yazılım 
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

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