Siit saate teada, kuidas saate Accessi andmebaasi sünnipäeva meeldetuletusi lisada. Olge kursis, kui teie kliendi või töötaja sünnipäev on tulemas, et saaksite talle oma soojad tervitused saata.
Sünnipäevatervituste saatmine võib olla suurepärane viis kliendi või töötajaga ühenduse loomiseks ja suhete tugevdamiseks. Kui käsitlete Accessi andmebaasi, mis sisaldab klientide/töötajate kirjeid, võib olla hea, kui teid aeg-ajalt teavitatakse, kui kliendil või töötajal on tulemas sünnipäev. Sellest õpetusest saate teada, kuidas saate luua funktsiooni, mis annab teile andmebaasi avamise hetkel teada kellegi erilisest päevast.
Download Now
Kui soovite starKui soovite funktsiooni võimalikult kiiresti kasutada, saate teha järgmist.
Laadige kohe alla VBA koodidega näidisandmebaas
Vastasel juhul, kui soovite ise teha, saate lugeda allpool olevat sisu.
Eeldus
See õpetus eeldab, et teie andmebaasis on tabel, mis sisaldab neid kolme välja: eesnimi, perekonnanimi ja sünnipäev.
Juhised sünnipäevameeldetuletuste lisamiseks Accessi andmebaasi
- Looge uus tabel ja andke sellele nimi Sünnipäeva tähistajad. See on sünnipäeva tähistajate nimekirja hoidla. Lisage 3 välja, nagu allpool näidatud. Primaarvõtit pole vaja.
- Looge BirthdayCelebrantsi jaoks vorm. See vorm avaneb andmebaasi avamisel, kui on tulemas sünnipäevad.
- Valige navigeerimispaanil tabel Birthday Celebrants.
- Avage Loo > Vorm.
- Teie jaoks luuakse automaatselt ühtne vorm.
Kuna kuvame sünnipäeva tähistajate loendi, soovitan teil muuta vormi vaikevaade kas andmeleheks või pidevaks vormiks. Nii saate nimekirjast kiire ülevaate.
- Kujundusvaates valige vorm.
- Avage atribuutide leht (ALT + F11)
- Avage Vorming > Vaikevaade.
- Valige soovitud vaade – kas andmeleht või pidevad vormid.
Kui olete valinud Pidevad vormid, muutke kujundust vastavalt oma eelistustele. Minu oma näeb välja järgmine:
Olen muutnud sünnipäeva tekstikasti vormingut nii, et väärtused kuvatakse pika kuupäeva vormingus. Samuti tegin vormi atribuutides järgmised värskendused:
- Luba täiendusi: ei
- Luba kustutamised: ei
- Luba muudatused: ei
Kui olete valmis, sulgege vorm ja salvestage see nimega frm_Birthday Celebrants.
- Lisage sünnipäeva meeldetuletuse kood.
- Lisage uus moodul.
- See avab VBA redaktori.
- Lisage järgmine kood ja muutke seda vastavalt oma vajadustele.
- Lisage uus moodul.
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
Pange tähele, et ülaltoodud kood kasutab päringut, mis saab praeguse päeva sünnipäevaliste loendi. Kui soovite saada nimekirja inimestest, kelle sünnipäev on jooksval kuul tulemas, kasutage selle asemel järgmist päringut.
'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"
- Lõpuks loome AutoExeci makro. See käivitab andmebaasi avamisel koodi.
- Valige Loo > Makro.
- valima RunCode ripploendist.
- Funktsiooni nime jaoks kirjutage RunBirthday Reminders().
- Salvestage makro nimega AutoExec ja klõpsake nuppu OK.
- Nüüd testige oma sünnipäeva meeldetuletust.
Sulgege andmebaas ja avage see uuesti. Kui on tulemas sünnipäevad, peaks ilmuma sünnipäeva meeldetuletuse vorm. Kui seda pole, töötab andmebaas nagu tavaliselt.
Kiire meeldetuletus
Nüüd kiire meeldetuletus. Kui te ühel päeval oma andmebaasi avada ei saa, ärge sattuge paanikasse. Võtke selle taastamiseks vajalikud meetmed. Kui te ikka ei saa, proovige kolmanda osapoole tarkvara, mis seda teeb parandage juurdepääs. On veel lootust.
Autori sissejuhatus:
Jayme Stack on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas sql taastamine ja Exceli taastamise tarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom