আপনি কীভাবে আপনার অ্যাক্সেস ডেটাবেসে জন্মদিনের অনুস্মারক যুক্ত করতে পারেন তা শিখুন। যদি আপনার ক্লায়েন্ট বা কর্মচারীর জন্মদিন আসছে তবে অবহিত হন যাতে আপনি তাদের আপনার আন্তরিক শুভেচ্ছা পাঠাতে পারেন।
জন্মদিনের শুভেচ্ছা পাঠানো কোনও ক্লায়েন্ট বা কর্মচারীর সাথে সম্পর্ক সংযুক্ত ও দৃ strengthen় করার এক দুর্দান্ত উপায় হতে পারে। আপনি যদি গ্রাহক / কর্মচারী রেকর্ডযুক্ত অ্যাক্সেস ডাটাবেস পরিচালনা করছেন তবে কোনও ক্লায়েন্টের বা কর্মচারীর জন্মদিনটি যদি আগত হয় তবে সময়ে সময়ে তা অবহিত হওয়া ভাল। এই টিউটোরিয়ালে, আপনি শিখবেন কীভাবে আপনি এমন একটি ফাংশন তৈরি করতে পারেন যা আপনাকে ডেটাবেস খোলার মুহুর্তে আপনাকে কারও বিশেষ দিন সম্পর্কে অবহিত করবে।
এখন ডাউনলোড করুন
আপনি যদি যত তাড়াতাড়ি সম্ভব ফিচারটি ব্যবহার করা শুরু করতে চান, তাহলে আপনি করতে পারেন:
এখনই ভিবিএ কোডগুলির সাথে নমুনা ডেটাবেস ডাউনলোড করুন
অন্যথায়, আপনি ডিআইওয়াই করতে চাইলে, আপনি নীচের সামগ্রীগুলি পড়তে পারেন।
পূর্বশর্ত
এই টিউটোরিয়ালটি ধরে নিয়েছে যে আপনার ডাটাবেজে একটি টেবিল রয়েছে যাতে এই 3 টি ক্ষেত্র রয়েছে: প্রথম নাম, পদবি এবং জন্মদিন।
অ্যাক্সেস ডেটাবেসে জন্মদিনের অনুস্মারক যুক্ত করার পদক্ষেপ
- একটি নতুন টেবিল তৈরি করুন এবং নাম দিন জন্মদিনের স্নাতক। এটি জন্মদিন উদযাপনের তালিকার ভাণ্ডার হিসাবে কাজ করবে। নীচে প্রদর্শিত হিসাবে 3 ক্ষেত্র যুক্ত করুন। প্রাথমিক কীটির দরকার নেই।
- জন্মদিনের জন্য একটি ফর্ম তৈরি করুন। যদি আসন্ন জন্মদিন থাকে তবে এই ফর্মটি ডাটাবেস খোলার পরে পপ আপ হবে।
- নেভিগেশন ফলকে, জন্মদিনের সারণী সারণীটি নির্বাচন করুন।
- তৈরি করুন> ফর্ম এ যান।
- আপনার জন্য একটি একক ফর্ম স্বয়ংক্রিয়ভাবে তৈরি করা হবে।
যেহেতু আমরা জন্মদিন উদযাপনকারীদের একটি তালিকা প্রদর্শন করতে যাচ্ছি, আমি আপনাকে পরামর্শ দেব যে আপনি ফর্মের ডিফল্ট ভিউটি ডেটাশিট বা ক্রমাগত ফর্মগুলিতে পরিবর্তন করুন। এইভাবে, আপনি তালিকার একটি দ্রুত ওভারভিউ নিতে পারেন।
- ডিজাইন দেখার সময়, ফর্মটি নির্বাচন করুন।
- সম্পত্তি পত্রকটি খুলুন (ALT + F11)
- ফর্ম্যাট> ডিফল্ট ভিউতে যান।
- আপনার পছন্দসই দর্শনটি নির্বাচন করুন - হয় ডেটাশিট বা ক্রমাগত ফর্ম।
আপনি যদি অবিচ্ছিন্ন ফর্মগুলি নির্বাচন করে থাকেন তবে আপনার পছন্দগুলি মেলাতে নকশাটি সম্পাদনা করুন। আমার দেখতে কেমন দেখাচ্ছে তা এখানে:
আমি জন্মদিনের পাঠ্যবক্সের ফর্ম্যাটটি সম্পাদনা করেছি যাতে মানগুলি দীর্ঘ তারিখের ফর্ম্যাটে প্রদর্শিত হয়। এছাড়াও, আমি ফর্মের বৈশিষ্ট্যগুলিতে নিম্নলিখিত আপডেটগুলি করেছি:
- সংযোজন অনুমতি দিন: না
- মোছার অনুমতি দিন: না
- সম্পাদনার অনুমতি দিন: না
হয়ে গেলে ফর্মটি বন্ধ করুন এবং এটি সংরক্ষণ করুন frm_BirthdayCelebrans।
- জন্মদিনের অনুস্মারকের জন্য কোড যুক্ত করুন।
- একটি নতুন মডিউল যুক্ত করুন।
- এটি ভিবিএ সম্পাদক খুলবে।
- নিম্নলিখিত কোড যুক্ত করুন এবং আপনার প্রয়োজন মাপসই এটি পরিবর্তন করুন।
- একটি নতুন মডিউল যুক্ত করুন।
Public Function RunBirthdayReminders()
Dim qry As String, fld_fName As String, fld_lName As String, fld_birthday As String, tbl As String
Dim db As DAO.Database, rst As DAO.Recordset
'TO DO: Update the ff. variables with the actual name of your table and fields
tbl = "Members" 'table containing your client/employee reocrds
fld_fName = "FirstName" 'first name field
fld_lName = "LastName" 'last name field
fld_birthday = "Birthday" 'birthday field
Set db = CurrentDb
'delete current record(s) from BirthdayCelebrants table
DoCmd.SetWarnings False
DoCmd.RunSQL ("DELETE FROM BirthdayCelebrants")
DoCmd.SetWarnings True
'insert new record(s) in BirthdayCelebrants table using a query that gets list of people celebrating their birthday today.
qry = "INSERT INTO BirthdayCelebrants " & _
"SELECT " & fld_fName & ", " & fld_lName & ", " & fld_birthday & " FROM " & tbl & " WHERE " & _
"Month(" & fld_birthday & ")=Month(Date()) AND Day(" & fld_birthday & ")=Day(Date())"
DoCmd.SetWarnings False
DoCmd.RunSQL (qry)
DoCmd.SetWarnings True
Set rst = db.OpenRecordset("SELECT * FROM BirthdayCelebrants")
If Not rst.EOF Then
DoCmd.OpenForm ("frm_BirthdayCelebrants")
End If
Set db = Nothing
Set rst = Nothing
End Function
দয়া করে নোট করুন যে উপরের কোডটি এমন একটি ক্যোয়ারী ব্যবহার করে যা বর্তমান দিনের জন্য জন্মদিন উদযাপনকারীদের একটি তালিকা পায়। আপনি যদি এমন লোকদের একটি তালিকা পেতে চান যার জন্মদিনটি চলতি মাসের জন্য আসছে, পরিবর্তে নিম্নলিখিত কোয়েরিটি ব্যবহার করুন।
'insert new record(s) in BirthdayCelebrants table using a query that gets list of people whose birthday is coming up for this month.
qry = "INSERT INTO BirthdayCelebrants " & _
"SELECT " & fld_fName & ", " & fld_lName & ", " & fld_birthday & " FROM " & tbl & " WHERE " & _
"Month(" & fld_birthday & ")=Month(Date()) AND Day(" & fld_birthday & ")>=Day(Date())" & _
" ORDER BY Day(" & fld_birthday & ") ASC"
- অবশেষে, আমরা একটি অটোেক্সেক ম্যাক্রো তৈরি করতে যাচ্ছি। এটি ডাটাবেস খোলার পরে কোডটি চালাবে।
- তৈরি করুন> ম্যাক্রো এ যান।
- নির্বাচন করা রানকোড ড্রপডাউন তালিকা থেকে।
- ফাংশন নামের জন্য, লিখুন রানবার্থডেমাইন্ডার্স ().
- ম্যাক্রো হিসাবে সংরক্ষণ করুন অটোএক্সেক এবং ওকে ক্লিক করুন
- এখন, আপনার জন্মদিনের অনুস্মারকটি পরীক্ষা করুন।
ডাটাবেসটি বন্ধ করুন এবং এটি আবার খুলুন। যদি আসন্ন জন্মদিন থাকে, জন্মদিনের অনুস্মারক ফর্মটি পপ আপ হওয়া উচিত। যদি না হয় তবে ডাটাবেস যথারীতি চলবে।
দ্রুত অনুস্মারক
এখন একটি দ্রুত অনুস্মারক জন্য। যদি একদিন, আপনি আপনার ডাটাবেস খুলতে পারবেন না, আতঙ্কিত হবেন না। এটি পুনরুদ্ধার করার জন্য প্রয়োজনীয় পদক্ষেপ গ্রহণ করুন। আপনি যদি এখনও না করতে পারেন তবে তৃতীয় পক্ষের সফ্টওয়্যারটি চেষ্টা করুন will অ্যাক্সেস ঠিক করুন। এখনও আশা আছে।
লেখকের ভূমিকা:
জেমে স্ট্যাক একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় স্কয়ার পুনরুদ্ধার এবং এক্সেল পুনরুদ্ধার সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com