@בעל-כישרון כתב בתכנון אקסס לכמה משתמשים:
וחסימה של F11
אתה מייצר מאקרו בשם AutoKeys
ובתוכו אתה מוסיף מאקרו משנה
בשורה הראשונה תכתוב {F11}
ובשורה השניה בהוסף פעולה תכניס Beep
@בעל-כישרון כתב בתכנון אקסס לכמה משתמשים:
כניסה עם שיפט
צור מודול חדש והוסף בו את שתי הפונקציות הבאות. (אף פעם לא השתמשתי עם זה, מקווה שבאמת עובד)
Function ap_DisableShift()
'This function disable the shift at startup. This action causes
'the Autoexec macro and Startup properties to always be executed.
On Error GoTo errDisableShift
Dim db As DAO.Database
Dim prop as DAO.Property
Const conPropNotFound = 3270
Set db = CurrentDb()
'This next line disables the shift key on startup.
db.Properties("AllowByPassKey") = False
'The function is successful.
Exit Function
errDisableShift:
'The first part of this error routine creates the "AllowByPassKey
'property if it does not exist.
If Err = conPropNotFound Then
Set prop = db.CreateProperty("AllowByPassKey", _
dbBoolean, False)
db.Properties.Append prop
Resume Next
Else
MsgBox "Function 'ap_DisableShift' did not complete successfully."
Exit Function
End If
End Function
Function ap_EnableShift()
'This function enables the SHIFT key at startup. This action causes
'the Autoexec macro and the Startup properties to be bypassed
'if the user holds down the SHIFT key when the user opens the database.
On Error GoTo errEnableShift
Dim db as DAO.Database
Dim prop as DAO.Property
Const conPropNotFound = 3270
Set db = CurrentDb()
'This next line of code disables the SHIFT key on startup.
db.Properties("AllowByPassKey") = True
'function successful
Exit Function
errEnableShift:
'The first part of this error routine creates the "AllowByPassKey
'property if it does not exist.
If Err = conPropNotFound Then
Set prop = db.CreateProperty("AllowByPassKey", _
dbBoolean, True)
db.Properties.Append prop
Resume Next
Else
MsgBox "Function 'ap_DisableShift' did not complete successfully."
Exit Function
End If
End Function
בעורך Visual Basic, לחץ על חלון מיידי בתפריט תצוגה.
אם ברצונך להשבית את מקש SHIFT, הקלד ap_DisableShift בחלון המיידי ולאחר מכן הקש ENTER. אם ברצונך להפעיל את מקש Shift, הקלד ap_EnableShift בחלון המיידי ולאחר מכן הקש ENTER.
-עד כאן העתקה שאיני יודע למי הקרדיט (כנראה לאי מי מפרוג... שהמציא לי איזה קישור) כי זה שמור לי משנים קדמוניות במחשב.
