Uzziniet, kā jūs varat pievienot dzimšanas dienas atgādinājumus savai Access datu bāzei. Esiet informēts, ja tuvojas klienta vai darbinieka dzimšanas diena, lai jūs varētu nosūtīt viņiem savu silto apsveikumu.
Dzimšanas dienas apsveikumu sūtīšana var būt lielisks veids, kā izveidot un stiprināt attiecības ar klientu vai darbinieku. Ja apstrādājat Access datu bāzi, kurā ir klienta / darbinieka ieraksti, var būt lieliski, ja laiku pa laikam saņemat paziņojumu, ja tuvojas klienta vai darbinieka dzimšanas diena. Šajā apmācībā jūs uzzināsiet, kā jūs varat izveidot funkciju, kas paziņos par kāda īpašo dienu brīdī, kad atverat datu bāzi.
Lejupielādēt tagad
Ja vēlaties sākt lietot šo funkciju pēc iespējas ātrāk, varat:
Lejupielādējiet paraugdatu bāzes ar VBA kodiem tūlīt
Pretējā gadījumā, ja vēlaties DIY, varat izlasīt tālāk sniegto saturu.
Priekšnosacījums
Šajā apmācībā tiek pieņemts, ka jūsu datu bāzē ir tabula, kurā ir šie 3 lauki: vārds, uzvārds un dzimšanas diena.
Darbības, lai pievienotu dzimšanas dienas atgādinājumus piekļuves datu bāzē
- Izveidojiet jaunu tabulu un nosauciet to Dzimšanas dienaSvinētāji. Tas kalpos kā dzimšanas dienas svinētāju saraksta krātuve. Pievienojiet 3 laukus, kā parādīts zemāk. Nav nepieciešama primārā atslēga.
- Izveidojiet veidlapu BirthdayCelebrants. Šī forma parādīsies, atverot datubāzi, ja ir gaidāmas dzimšanas dienas.
- Navigācijas rūtī atlasiet tabulu BirthdayCelebrants.
- Dodieties uz Izveidot> Veidlapa.
- Jums automātiski tiks izveidota vienota veidlapa.
Tā kā mēs parādīsim dzimšanas dienas svinētāju sarakstu, es iesaku jums mainīt veidlapas noklusējuma skatu uz datu lapu vai nepārtrauktām veidlapām. Tādā veidā jūs varat ātri pārskatīt sarakstu.
- Atrodoties noformējuma skatā, atlasiet formu.
- Atvērt rekvizītu lapu (ALT + F11)
- Dodieties uz Formatēt> Noklusējuma skats.
- Atlasiet vēlamo skatu - datu lapu vai nepārtrauktas veidlapas.
Ja esat atlasījis Nepārtrauktas veidlapas, rediģējiet noformējumu, lai tas atbilstu jūsu vēlmēm. Lūk, kā mans izskatās:
Es esmu rediģējis tekstlodziņa Dzimšanas diena formātu tā, lai vērtības tiktu parādītas garā datuma formātā. Es arī veicu šādus veidlapas rekvizītu atjauninājumus:
- Atļaut papildinājumus: Nē
- Atļaut dzēšanu: nē
- Atļaut labojumus: nē
Kad esat pabeidzis, aizveriet veidlapu un saglabājiet to kā frm_Birthday Celebrants.
- Pievienojiet dzimšanas dienas atgādinājuma kodu.
- Pievienojiet jaunu moduli.
- Tādējādi tiks atvērts VBA redaktors.
- Pievienojiet šo kodu un modificējiet to atbilstoši savām vajadzībām.
- Pievienojiet jaunu moduli.
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
Lūdzu, ņemiet vērā, ka iepriekš minētajā kodā tiek izmantots vaicājums, kas iegūst pašreizējās dienas dzimšanas dienas svinētāju sarakstu. Ja vēlaties iegūt sarakstu ar cilvēkiem, kuru dzimšanas diena ir nākamajā mēnesī, izmantojiet šo vaicājumu.
'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"
- Visbeidzot, mēs izveidosim AutoExec makro. Tas palaidīs kodu, atverot datu bāzi.
- Dodieties uz Izveidot> Makro.
- Izvēlēties RunCode no nolaižamā saraksta.
- Funkcijas nosaukumam ierakstiet RunBirthdayReminders ().
- Saglabājiet makro kā AutoExec un noklikšķiniet uz Labi.
- Tagad pārbaudiet savu dzimšanas dienas atgādinājumu.
Aizveriet datu bāzi un atkārtoti atveriet to. Ja ir gaidāmās dzimšanas dienas, vajadzētu parādīties dzimšanas dienas atgādinājuma veidlapai. Ja tāda nav, datu bāze darbosies kā parasti.
Ātrais atgādinājums
Tagad par ātru atgādinājumu. Ja kādu dienu jūs nevarat atvērt savu datu bāzi, nekrītiet panikā. Veiciet nepieciešamās darbības, lai to atgūtu. Ja jūs joprojām nevarat, izmēģiniet trešās puses programmatūru noteikt piekļuvi. Vēl ir cerība.
Autora ievads:
Džeims Steks ir datu atkopšanas eksperts DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp sql atgūšana un Excel atkopšanas programmatūras produkti. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar