اکسس

برنامه های اکسس

اکسس

برنامه های اکسس

فعال و غیر فهال کردن Shift به هنگام باز کردن اکسس

برای فعال و غیر فعال کردن کلید 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

نظرات 4 + ارسال نظر
[ بدون نام ] شنبه 5 اسفند 1385 ساعت 05:12 ب.ظ

صدفـشیتونک شنبه 5 اسفند 1385 ساعت 05:13 ب.ظ

jamshidi شنبه 17 آذر 1386 ساعت 11:17 ق.ظ

salam va khste nabashin
میشه در مورد این فعال و غیر فعال کردن Shift در اکسس یه کم بیشتر توضیح بدین؟؟؟
شما فرمودین ( (مطابق شکل بالا )) ..... اما من شکلی ندیدم؟؟؟؟؟؟؟
ممنون میشم اگه mail بزنین.

علی پنج‌شنبه 17 مرداد 1387 ساعت 09:31 ق.ظ

با سلام و تشکر از راهنماییتان
اگر امکان دارد یه ذره بیشتر راهنمائی کنید
من تصاویری که شما می فرمائید را ندیدم

ممنون اگر مجددا اعمال نظر نماید و شکل مربوطه را بگذارید

برای نمایش آواتار خود در این وبلاگ در سایت Gravatar.com ثبت نام کنید. (راهنما)
ایمیل شما بعد از ثبت نمایش داده نخواهد شد