AccessTr.neT

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

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.

zaferlacin

ozanakkaya