Mësoni se si mund të shtoni përkujtues për ditëlindjen në bazën e të dhënave tuaja të Access. Informohuni nëse është ditëlindja e klientit ose punonjësit tuaj, në mënyrë që t'i dërgoni atyre urimin tuaj të ngrohtë.
Dërgimi i urimeve për ditëlindje mund të jetë një mënyrë e shkëlqyer për të lidhur dhe forcuar marrëdhëniet me një klient ose punonjës. Nëse po trajtoni një bazë të dhënash të Access që përmban të dhënat e klientëve/punonjësve, mund të jetë mirë të njoftoheni herë pas here nëse vjen ditëlindja e një klienti ose punonjësi. Në këtë tutorial, do të mësoni se si mund të krijoni një funksion që do t'ju njoftojë për ditën e veçantë të dikujt në momentin që hapni bazën e të dhënave.
Shkarkojeni Tani
Nëse doni të filloni ta përdorni këtë funksion sa më shpejt të jetë e mundur, atëherë mund të:
Shkarkoni bazën e të dhënave të mostrës me kodet VBA Tani
Përndryshe, nëse dëshironi të bëni DIY, mund të lexoni përmbajtjen më poshtë.
kusht paraprak
Ky tutorial supozon se ju keni një tabelë në bazën e të dhënave tuaja që përmban këto 3 fusha: emrin, mbiemrin dhe ditëlindjen.
Hapat për të shtuar kujtesën e ditëlindjes në bazën e të dhënave të Access
- Krijoni një tabelë të re dhe emërtoni atë Festorët e ditëlindjes. Kjo do të shërbejë si depo për listën e festuesve të ditëlindjes. Shtoni 3 fusha siç tregohet më poshtë. Nuk ka nevojë për një çelës primar.
- Krijo një formular për Ditëlindjet Festës. Ky formular do të shfaqet me hapjen e bazës së të dhënave nëse ka ditëlindje të ardhshme.
- Në panelin e lundrimit, zgjidhni tabelën BirthdayCelebrants.
- Shkoni te Krijo > Formulari.
- Një formular i vetëm do të krijohet automatikisht për ju.
Meqenëse do të shfaqim një listë të festuesve të ditëlindjes, unë do t'ju sugjeroja që të ndryshoni pamjen e paracaktuar të formularit ose në Fletë të dhënash ose në Forma të vazhdueshme. Në këtë mënyrë, ju mund të keni një pasqyrë të shpejtë të listës.
- Ndërsa jeni në pamjen e dizajnit, zgjidhni formularin.
- Hapni fletën e vetive (ALT + F11)
- Shkoni te Formati > Pamja e parazgjedhur.
- Zgjidhni pamjen tuaj të dëshiruar - ose fletë të dhënash ose formularë të vazhdueshëm.
Nëse keni zgjedhur Format e vazhdueshme, modifikoni modelin që të përputhet me preferencat tuaja. Ja si duken e imja:
Kam modifikuar formatin e kutisë së tekstit të Ditëlindjes në mënyrë që vlerat të shfaqen në formatin Long Date. Gjithashtu, bëra përditësimet e mëposhtme për vetitë e formularit:
- Lejo shtesat: Jo
- Lejo fshirjet: Jo
- Lejo modifikimet: Jo
Kur të keni mbaruar, mbyllni formularin dhe ruajeni si frm_DitëlindjaFestorë.
- Shto kodin për kujtesën e ditëlindjes.
- Shto një modul të ri.
- Kjo do të hapë Redaktuesin VBA.
- Shtoni kodin e mëposhtëm dhe modifikoni atë për t'iu përshtatur nevojave tuaja.
- Shto një modul të ri.
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
Ju lutemi vini re se kodi i mësipërm përdor një pyetje që merr një listë të festuesve të ditëlindjes për ditën aktuale. Nëse dëshironi të merrni një listë të njerëzve, ditëlindja e të cilëve po vjen për muajin aktual, përdorni pyetjen e mëposhtme.
'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"
- Më në fund, ne do të krijojmë një makro AutoExec. Kjo do të ekzekutojë kodin pas hapjes së bazës së të dhënave.
- Shkoni te Krijo > Makro.
- zgjedh RunCode nga lista rënëse.
- Për emrin e funksionit, shkruani RunBirthdayReminders().
- Ruaje makro si AutoExec dhe kliko OK.
- Tani, testoni kujtesën tuaj të ditëlindjes.
Mbyllni bazën e të dhënave dhe rihapni atë. Nëse ka ditëlindje të ardhshme, duhet të shfaqet formulari i kujtesës së ditëlindjes. Nëse asnjë, baza e të dhënave do të funksionojë si zakonisht.
Kujtesë e shpejtë
Tani për një kujtesë të shpejtë. Nëse një ditë, nuk mund të hapni bazën e të dhënave, mos u frikësoni. Merrni hapat e nevojshëm për ta rikuperuar atë. Nëse ende nuk mundeni, provoni softuerin e palës së tretë që do ta bëjë rregulloni aksesin. Ka ende shpresë.
Hyrje e autorit:
Jayme Stack është një ekspert për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë shërim sql dhe produkte softuerike të rimëkëmbjes excel. Për më shumë informacion vizitoni www.datanumen.com