মাইক্রোসফট অফিস অ্যাকসেস এ অনেকভাবে লগ-ইন ফরম বানানো যায়। আবার Access এ ফাইল ওপেন করার জন্য password ও সেট করা যায় ডিফল্ট ভাবে। আমি আজকে দেখাব DLookup function ব্যবহার করে কিভাবে Log-in Form বানানো যায়।বুঝার সুবিধার জন্য নিচের লিংক থেকে sample file ডাউনলোড করুন।

Sample File: Login Form Sample   Zip File

• প্রথমে Access open করে একটি নতুন ডাটাবেজ তৈরি করুন। নিচের চিত্রের মত করে একটি টেবিল তৈরি করুন। Password field এর Input Mask এ অবশ্যই password সেলেক্ট করবেন। Input Mask এ password সেলেক্ট করলে আপনি যখন password টাইপ করবেন তখন স্টার (*) mark show করবে। অন্যথায় যা টাইপ করবেন তাই দেখাবে।

• টেবিলে User এবং Password add করুন। আমি sample file এ user= admin, password= admin ব্যবহার করেছি।
• এখন একটি form design এ দুটি Text Box এবং একটি Command Button নিন। Text Box দুটির নাম দিন যথাক্রমে txtUserID এবং txtPassword. Command Button এর নাম দিন cmdLogin. txtPassword এর property sheet থেকে Data tab এ গিয়ে Input Mask এ password select করুন। নিচের চিত্র দেখুন।

• আরেকটি form design করুন এর নাম দিন frmMain.
• 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"

• এবার Form টি run করান এবং আপনার user ও password দিয়ে test করুন।

কোডের ব্যাখা:

প্রথমে এরর হান্ডলিং মেকানিজম ব্যবহার করা হয়েছে। Dlookup function এর মাধ্যমে user এবং password খোজা হয়েছে। User এবং password match করলে ‍second form open হবে অথবা Error message দেখাবে।

Any problem, Please comment in tune. You can also mail me at [email protected]

Others Tune: Shop Management System