برای فعال و غیر فعال کردن کلید Shift هنگام باز شدن اکسس
سه دکمه روی یک فرم مطابق شکل بالا ایجاد کنید و کدهای زیر را در آن بنویسد.
(نمایش کدهای نوشته شده مناسب نیست ولی اگر آنرا در حافظه کپی کنید و در ماجول فرمتان کپی کند بدرستی تمایش داده می شود .)
'برای اولین دفعه :
Private Sub Create_Click()
On Error GoTo Er
Dim db As Database
Dim prp As Property
Set db = CurrentDb
Set prp = db.CreateProperty("allowbypasskey", dbBoolean, False)
db.Properties.Append prp
db.Close
Ex:
Exit Sub
Er:
If Err.Number = 3367 Then
MsgBox "این خاصیت ایجاد شده و لازم نیست مجددا ایجاد شود"
End If
Resume Ex
End Sub
'جهت غیر فعال کردن شیفت
Private Sub ShiftNo_Click()
Dim db As Database
Set db = CurrentDb
db.Properties("allowbypasskey") = False
db.Close
End Sub
'جهت فعال کردن شیفت
Private Sub ShiftOk_Click()
Dim db As Database
Set db = CurrentDb
db.Properties("allowbypasskey") = True
db.Close
End Sub
salam va khste nabashin
میشه در مورد این فعال و غیر فعال کردن Shift در اکسس یه کم بیشتر توضیح بدین؟؟؟
شما فرمودین ( (مطابق شکل بالا )) ..... اما من شکلی ندیدم؟؟؟؟؟؟؟
ممنون میشم اگه mail بزنین.
با سلام و تشکر از راهنماییتان
اگر امکان دارد یه ذره بیشتر راهنمائی کنید
من تصاویری که شما می فرمائید را ندیدم
ممنون اگر مجددا اعمال نظر نماید و شکل مربوطه را بگذارید