Matutunan kung paano ka makakapagdagdag ng mga paalala sa kaarawan sa iyong database ng Access. Ipaalam kung malapit na ang kaarawan ng iyong kliyente o empleyado upang maipadala mo sa kanila ang iyong mainit na pagbati.
Ang pagpapadala ng mga pagbati sa kaarawan ay maaaring maging isang mahusay na paraan upang kumonekta at palakasin ang relasyon sa isang kliyente o empleyado. Kung humahawak ka ng database ng Access na naglalaman ng mga tala ng customer/empleyado, mainam na maabisuhan paminsan-minsan kung malapit na ang kaarawan ng isang kliyente o empleyado. Sa tutorial na ito, matututunan mo kung paano ka makakagawa ng function na mag-aabiso sa iyo ng espesyal na araw ng isang tao sa sandaling buksan mo ang database.
Download na Ngayon
Kung gusto mong simulan ang paggamit ng feature sa lalong madaling panahon, maaari mong:
I-download ang Sample Database na may VBA Codes Ngayon
Kung hindi man, kung nais mong DIY, maaari mong basahin ang mga nilalaman sa ibaba.
Pangunang kailangan
Ipinapalagay ng tutorial na ito na mayroon kang talahanayan sa iyong database na naglalaman ng 3 field na ito: unang pangalan, apelyido at kaarawan.
Mga Hakbang para Magdagdag ng Mga Paalala sa Kaarawan sa Access Database
- Gumawa ng bagong table at pangalanan ito BirthdayCelebrants. Ito ang magsisilbing repository para sa listahan ng mga nagdiriwang ng kaarawan. Magdagdag ng 3 field tulad ng ipinapakita sa ibaba. Hindi na kailangan ng pangunahing susi.
- Gumawa ng form para sa BirthdayCelebrants. Ang form na ito ay lalabas sa pagbubukas ng database kung may mga paparating na kaarawan.
- Sa navigation pane, piliin ang talahanayan ng BirthdayCelebrants.
- Pumunta sa Lumikha > Form.
- Awtomatikong gagawin ang isang Single Form para sa iyo.
Dahil magpapakita kami ng listahan ng mga nagdiriwang ng kaarawan, iminumungkahi kong baguhin mo ang Default na View ng form sa alinman sa Datasheet o Continuous Forms. Sa ganitong paraan, maaari kang magkaroon ng mabilis na pangkalahatang-ideya ng listahan.
- Habang nasa view ng disenyo, piliin ang form.
- Buksan ang Property Sheet (ALT + F11)
- Pumunta sa Format > Default View.
- Piliin ang iyong gustong view – alinman sa Datasheet o Continuous Forms.
Kung pinili mo ang Continuous Forms, i-edit ang disenyo upang tumugma sa iyong mga kagustuhan. Ganito ang hitsura ko:
Na-edit ko ang format ng textbox ng Kaarawan upang ang mga halaga ay maipakita sa format na Mahabang Petsa. Gayundin, ginawa ko ang mga sumusunod na pag-update sa mga katangian ng form:
- Payagan ang mga Pagdaragdag: Hindi
- Payagan ang mga Pagtanggal: Hindi
- Payagan ang mga Pag-edit: Hindi
Kapag tapos na, isara ang form at i-save ito bilang frm_BirthdayCelebrants.
- Idagdag ang code para sa paalala sa kaarawan.
- Magdagdag ng bagong module.
- Bubuksan nito ang VBA Editor.
- Idagdag ang sumusunod na code at baguhin ito upang umangkop sa iyong mga pangangailangan.
- Magdagdag ng bagong module.
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
Pakitandaan na ang code sa itaas ay gumagamit ng query na nakakakuha ng listahan ng mga nagdiriwang ng kaarawan para sa kasalukuyang araw. Kung gusto mong makakuha ng listahan ng mga tao na malapit na ang kaarawan para sa kasalukuyang buwan, gamitin na lang ang sumusunod na query.
'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"
- Sa wakas, gagawa kami ng AutoExec macro. Tatakbo ito ng code sa pagbubukas ng database.
- Pumunta sa Lumikha > Macro.
- piliin RunCode mula sa listahan ng pagbagsak.
- Para sa Pangalan ng Function, isulat RunBirthdayReminders().
- I-save ang macro bilang AutoExec at i-click ang OK.
- Ngayon, subukan ang iyong Paalala sa Kaarawan.
Isara ang database at muling buksan ito. Kung may mga paparating na kaarawan, dapat na mag-pop up ang form ng paalala sa kaarawan. Kung wala, ang database ay tatakbo gaya ng dati.
Mabilis na Paalala
Ngayon para sa isang mabilis na paalala. Kung isang araw, hindi mo mabuksan ang iyong database, huwag mag-panic. Gawin ang mga kinakailangang hakbang upang mabawi ito. Kung hindi mo pa rin kaya, subukan ang third party na software na gagawin ayusin ang Access. May pag-asa pa.
Panimula ng May-akda:
Si Jayme Stack ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang sql paggaling at excel mga produkto ng pagbawi ng software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa