သင်၏ Access ဒေတာဘေ့စ်တွင် မွေးနေ့သတိပေးချက်များကို မည်သို့ထည့်နိုင်သည်ကို လေ့လာပါ။ သင့်ဖောက်သည် သို့မဟုတ် ဝန်ထမ်း၏ မွေးနေ့ ကျရောက်မည်ဆိုပါက ၎င်းတို့အား နွေးထွေးစွာ နှုတ်ခွန်းဆက်စကား ပေးပို့နိုင်ပါသည်။
မွေးနေ့ နှုတ်ခွန်းဆက်စကား ပေးပို့ခြင်းသည် ဖောက်သည် သို့မဟုတ် ဝန်ထမ်းတစ်ဦးနှင့် ဆက်ဆံရေးကို ခိုင်မြဲစေရန်အတွက် နည်းလမ်းကောင်းတစ်ခုဖြစ်သည်။ ဖောက်သည်/ဝန်ထမ်းမှတ်တမ်းများပါရှိသော Access ဒေတာဘေ့စ်ကို သင်ကိုင်တွယ်နေပါက၊ ဖောက်သည် သို့မဟုတ် ဝန်ထမ်း၏မွေးနေ့ ကျရောက်လာပါက အခါအားလျော်စွာ အကြောင်းကြားရန် ကောင်းမွန်ပါသည်။ ဤသင်ခန်းစာတွင်၊ သင်သည် ဒေတာဘေ့စ်ကိုဖွင့်သည့်အချိန်၌ တစ်စုံတစ်ဦး၏ အထူးနေ့ကို အသိပေးမည့် လုပ်ဆောင်ချက်တစ်ခုကို သင်မည်ကဲ့သို့ ဖန်တီးနိုင်သည်ကို သင်လေ့လာလိမ့်မည်။
အခုတော့ကို Download လုပ်
ဒီလုပ်ဆောင်ချက်ကို အမြန်ဆုံးအသုံးပြုချင်တယ်ဆိုရင် အောက်ပါတို့ကို လုပ်ဆောင်နိုင်ပါတယ်-
VBA ကုဒ်များဖြင့် နမူနာဒေတာဘေ့စ်ကို ယခုဒေါင်းလုဒ်လုပ်ပါ။
မဟုတ်ရင် DIY လုပ်ချင်တယ်ဆိုရင်တော့ အောက်က အကြောင်းအရာတွေကို ဖတ်ရှုနိုင်ပါတယ်။
ရှေးဉီးလိုအပျခကျြ
ဤသင်ခန်းစာတွင် ဤနယ်ပယ် 3 ခုပါရှိသော သင့်ဒေတာဘေ့စ်တွင် ဇယားတစ်ခုရှိသည်- ပထမအမည်၊ နောက်ဆုံးအမည်နှင့် မွေးနေ့။
Access Database တွင် မွေးနေ့သတိပေးချက်များကို ထည့်ရန် အဆင့်များ
- ဇယားအသစ်တစ်ခုဖန်တီးပြီး နာမည်ပေးလိုက်ပါ။ မွေးနေ့ပွဲများ. ၎င်းသည် မွေးနေ့ပွဲကျင်းပသူများစာရင်းအတွက် သိုလှောင်မှုအဖြစ် ဆောင်ရွက်မည်ဖြစ်သည်။ အောက်တွင်ပြထားသည့်အတိုင်း အကွက် 3 ခုထည့်ပါ။ အဓိကသော့မလိုပါ။
- BirthdayCelebrants အတွက် ဖောင်တစ်ခု ဖန်တီးပါ။ လာမည့် မွေးနေ့များရှိပါက ဒေတာဘေ့စ်ကိုဖွင့်သည့်အခါ ဤဖောင်ပေါ်လာပါမည်။
- လမ်းကြောင်းပြကွက်တွင်၊ BirthdayCelebrants ဇယားကို ရွေးပါ။
- Create > Form သို့သွားပါ။
- Single Form သည် သင့်အတွက် အလိုအလျောက် ဖန်တီးပေးလိမ့်မည်။
ကျွန်ုပ်တို့သည် မွေးနေ့ပွဲကျင်းပသူများစာရင်းကို ပြသတော့မည်ဖြစ်သောကြောင့် ဖောင်၏ ပုံသေမြင်ကွင်းကို Datasheet သို့မဟုတ် Continuous Forms တစ်ခုခုသို့ ပြောင်းလဲရန် အကြံပြုလိုပါသည်။ ဤနည်းအားဖြင့် သင်သည် စာရင်း၏ အမြန်ခြုံငုံသုံးသပ်ချက်ကို ရနိုင်သည်။
- ဒီဇိုင်းမြင်ကွင်းတွင်ရှိနေစဉ် ဖောင်ကိုရွေးချယ်ပါ။
- Property Sheet (ALT + F11) ကိုဖွင့်ပါ
- Format > Default View သို့သွားပါ။
- သင်အလိုရှိသော မြင်ကွင်းကို ရွေးချယ်ပါ - ဒေတာစာရွက် သို့မဟုတ် ဆက်တိုက်ပုံစံများ။
စဉ်ဆက်မပြတ် ဖောင်များကို သင်ရွေးချယ်ထားပါက သင့်စိတ်ကြိုက်ရွေးချယ်မှုများနှင့် ကိုက်ညီစေရန် ဒီဇိုင်းကို တည်းဖြတ်ပါ။ ဤတွင် ကျွန်ုပ်၏ပုံသဏ္ဍန်မှာ-
တန်ဖိုးများကို Long Date ဖော်မတ်ဖြင့် ပြသနိုင်ရန် Birthday textbox ၏ ဖော်မတ်ကို တည်းဖြတ်ထားပါသည်။ ထို့အပြင်၊ ဖောင်၏ ဂုဏ်သတ္တိများနှင့် ပတ်သက်၍ အောက်ပါ အပ်ဒိတ်များကို ကျွန်ုပ် ပြုလုပ်ခဲ့သည်-
- ထပ်လောင်းခွင့်ပြုပါ- မရှိပါ။
- ဖျက်ခြင်းများကို ခွင့်ပြုပါ- မရှိပါ။
- တည်းဖြတ်မှုများကို ခွင့်ပြုပါ- မရှိပါ။
ပြီးပါက ဖောင်ကိုပိတ်ပြီး ၎င်းကို သိမ်းဆည်းပါ။ frm_BirthdayCelebrants
- မွေးနေ့သတိပေးချက်အတွက် ကုဒ်ကို ထည့်ပါ။
- မော်ဂျူးအသစ်တစ်ခု ထည့်ပါ။
- ၎င်းသည် VBA Editor ကိုဖွင့်လိမ့်မည်။
- အောက်ပါကုဒ်ကိုထည့်ကာ သင့်လိုအပ်ချက်များနှင့် ကိုက်ညီစေရန် ပြင်ဆင်ပါ။
- မော်ဂျူးအသစ်တစ်ခု ထည့်ပါ။
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"
- နောက်ဆုံးတွင်၊ ကျွန်ုပ်တို့သည် AutoExec မက်ခရိုကို ဖန်တီးမည်ဖြစ်သည်။ ၎င်းသည် ဒေတာဘေ့စ်ကိုဖွင့်သည့်အခါ ကုဒ်ကို လုပ်ဆောင်ပေးမည်ဖြစ်သည်။
- Create > Macro သို့သွားပါ။
- ကို Select လုပ်ပါ RunCode dropdown စာရင်းမှ။
- Function Name အတွက် ရေးပါ။ မွေးနေ့သတိပေးချက်များ().
- မက်ခရိုအဖြစ် သိမ်းဆည်းပါ။ AutoExec OK ကိုနှိပ်ပါ။
- ယခု သင်၏မွေးနေ့သတိပေးချက်ကို စမ်းသပ်ပါ။
ဒေတာဘေ့စ်ကိုပိတ်ပြီး ပြန်ဖွင့်ပါ။ လာမည့်မွေးနေ့များရှိပါက မွေးနေ့သတိပေးချက်ဖောင် ပေါ်လာပါမည်။ မရှိပါက၊ ဒေတာဘေ့စ်သည် ပုံမှန်အတိုင်းလည်ပတ်နေမည်ဖြစ်သည်။
အမြန်သတိပေးချက်
ယခု အမြန်သတိပေးချက်တစ်ခုအတွက်။ တစ်နေ့မှာ သင့်ဒေတာဘေ့စ်ကို မဖွင့်နိုင်ရင် မထိတ်လန့်ပါနဲ့။ ၎င်းကို ပြန်လည်ရယူရန် လိုအပ်သော အဆင့်များကို လုပ်ဆောင်ပါ။ သင်မလုပ်နိုင်သေးပါက ပြင်ပဆော့ဖ်ဝဲကို စမ်းကြည့်ပါ။ Access ကိုပြင်ဆင်ပါ။. မျှော်လင့်ချက်ရှိပါသေးသည်။
စာရေးသူနိဒါန်း:
Jayme Stack သည် ဒေတာပြန်လည်ရယူရေးဆိုင်ရာ ကျွမ်းကျင်သူဖြစ်သည်။ DataNumen, Inc. အပါအဝင် ဒေတာပြန်လည်ရယူရေးနည်းပညာများတွင် ကမ္ဘာ့ခေါင်းဆောင်ဖြစ်သည်။ sql ပြန်လည်နာလန်ထူ နှင့် excel recovery software ထုတ်ကုန်များ။ ပိုမိုသိရှိလိုပါကသွားရောက်ကြည့်ရှု www ။datanumen.com




