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