Skip to main content

AccessTr.neT


Shiftkey

Shiftkey

Çözüldü #1
Kod
Sub DisableShiftKey()

        Dim db As DAO.Database
        Dim prp As DAO.Property

        Set db = CurrentDb
        db.Properties.Delete "AllowBypassKey"
        Set prp = db.CreateProperty("AllowBypassKey", dbBoolean, False, True)
        db.Properties.Append prp

        db.Properties.Refresh

        Set prp = Nothing
        Set db = Nothing

    End Sub
bu kodu kullandım gayet güzel çalışıyordu lakin bugün hata vermeye başladı
  db.Properties.Delete "AllowBypassKey"
sarı renkte hata burada diyor

teşekkürler
Cevapla
#2
Visual Basic Code
db.Properties.Delete "AllowBypassKey"

kodunu iptal edip DisableShiftKey kodunu tekrar çalıştırın. İptal ettiğiniz kodu tekrar ekleyin. Daha önceden silinmiş ise, silemediği için hata veriyor olabilir.
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da