Shiftkey - Baskı Önizleme

Shiftkey - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Shiftkey (/konu-shiftkey.html)

Shiftkey - zaferlacin - 26/03/2020

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

Cvp: Shiftkey - ozanakkaya - 26/03/2020

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.