AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

Shiftkey

26/03/2020, 14:17

zaferlacin

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
26/03/2020, 15:59

ozanakkaya

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.