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
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.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task