چگونه در اکسس برای کارهای مختلف از کاربر رمز بخواهیم؟
- مشاهده: ۱۶۲۶
بسم الله الرحمن الرحیم
سلام
شاید برای شما هم این سوال پیش آمده باشد که؛
چگونه در اکسس برای کارهای مختلف از کاربر رمز بخواهیم؟
که کاربرد آن در مواقع مختلفی مشخص می‌شود؛ از قبیل:
- درخواست رمز در زمان باز کردن فرم در اکسس (رویداد
On Open) - در زمان فشردن یک دکمه، قبل از اجرای دستورات آن از کاربر درخواست رمز شود (رویداد
On Click) - بعد از گذشت یک مدت زمان مشخص در اکسس از کاربر درخواست رمز شود (رویداد
On Timer) - در زمان اجرای دستورات مختلف در اکسس از کاربر درخواست رمز کنید. (رویدادهای مختلف)
در این پست قصد داریم تا با یک نمونه کد ساده این قابلیت را در برنامه اکسس خود ایجاد کنیم، پس با ما باشید.
ابتدا لازم است تا دقیقا مشخص کنیم تا در چه زمانی قصد داریم از کاربر رمز یا گذرواژه دریافت کنیم؟
در مثال ما برنامه از این قرار هست که کاربر در زمان باز کردن فرم باید گذرواژه‌ای را در کادر مربوطه وارد کند.
به نمونه کدهای زیر دقت کنید:
If InputBox("The Password Is Needed!" & vbNewLine & "Can You Do It?", "Login Form") <> "123456" Then
'Coded by Access-Training.blog.ir'
MsgBox "Ooooops!" & vbnewline & "The password's not valid!", vbExclamation, "Error"
Cancel = True
Else
Cancel = False
End If
نکات قابل توجه:
- در خط اول عبارت
"123456"همان رمز مورد نظر است که کاربر باید برای باز شدن فرم در کادر مربوطه وارد کند. - با توجه که این کد در رویداد
On Openقرار می‌گیرد، یکی از خصوصیت‌های این رویداد قابلیتCancelاست که در صورت برقرار نبودن شرط و عدم درج رمز مناسب، رویداد لغو و Cancel شده و از ادامه اجرای کد جلوگیری می‌شود. - شما میتوانید در صورت محقق نشدن شرط یا اجرا شدن شرط، عملکردهای متفاوتی داشته باشید! مثل خروج از برنامه یا نمایش پیام خاص.
