মাইক্রোসফট অফিস অ্যাকসেস এ অনেকভাবে লগ-ইন ফরম বানানো যায়। আবার Access এ ফাইল ওপেন করার জন্য
password ও সেট করা যায় ডিফল্ট ভাবে। আমি আজকে দেখাব DLookup function ব্যবহার করে
কিভাবে Log-in Form বানানো যায়।বুঝার সুবিধার জন্য নিচের লিংক থেকে sample file ডাউনলোড
করুন।
Sample
File: Login Form Sample Zip File (273 KB)
(1) প্রথমে Access open করে
একটি নতুন ডাটাবেজ তৈরি করুন। নিচের চিত্রের মত করে একটি টেবিল তৈরি করুন।
Password field এর Input Mask এ অবশ্যই password সেলেক্ট করবেন। Input Mask এ
password সেলেক্ট করলে আপনি যখন password টাইপ করবেন তখন স্টার (*) mark show করবে।
অন্যথায় যা টাইপ করবেন তাই দেখাবে।
(2) টেবিলে User এবং
Password add করুন। আমি sample file এ user= admin, password= admin ব্যবহার করেছি।
(3) এখন একটি form design
এ দুটি Text Box এবং একটি Command Button নিন। Text Box দুটির নাম দিন যথাক্রমে
txtUserID এবং txtPassword. Command Button এর নাম দিন cmdLogin. txtPassword এর
property sheet থেকে Data tab এ গিয়ে Input Mask এ password select করুন। নিচের চিত্র
দেখুন।
(4) আরেকটি form design করুন
এর নাম দিন frmMain.
(5) cmdLogin button এর
click event এ নিচের কোডসমূহ লিখুন।
On
Error GoTo ErrHandler
Dim
UserLookUp As Variant
Dim
PasswordLookup As Variant
UserLookUp = DLookup("[UserID]",
"[tblUsers]", "[UserID]='" & Me.txtUserID &
"'")
PasswordLookup =
DLookup("[Password]", "[tblUsers]", "[UserID]='"
& Me.txtUserID & "'")
If (UserLookUp = Me.txtUserID) And
(PasswordLookup = Me.txtPassword) Then
DoCmd.Close acForm,
"frmLogin", acSaveYes
DoCmd.OpenForm
"frmMain"
Else
MsgBox "Invalid Login!!!"
& vbCrLf & "Check your user name and password and then try
again.", vbCritical, "Invalid Login"
End If
Exit
Sub
ErrHandler:
MsgBox
Err.Description, vbCritical, "Error"
(6)
এবার
Form টি run করান এবং আপনার user ও password দিয়ে test করুন।
কোডের
ব্যাখা:
প্রথমে
এরর হান্ডলিং মেকানিজম ব্যবহার করা হয়েছে। Dlookup function এর মাধ্যমে user এবং
password খোজা হয়েছে। User এবং password match করলে second form open হবে অথবা
Error message দেখাবে।
Any
problem, Please comment in comment. You can also mail me at harun24hr@gmail.com
0 comments:
Post a Comment