Қатынау деректер қорына туған күн туралы еске салғыштарды қалай қосуға болады

Қол жеткізу шешімдері Қыркүйек 29, 2025

Access дерекқорына туған күн туралы еске салғыштарды қалай қосуға болатындығын біліңіз. Сіздің клиентіңіздің немесе қызметкеріңіздің туған күні жақындаған кезде хабардар болыңыз, сонда сіз оларға жылы лебізіңізді жолдай аласыз.

Туған күнмен құттықтаулар жіберу клиентпен немесе қызметкермен байланыс орнатудың және қарым-қатынасты нығайтудың тамаша тәсілі болуы мүмкін. Егер сіз клиенттер мен қызметкерлер туралы жазбалардан тұратын Access дерекқорымен жұмыс жасасаңыз, онда клиенттің немесе қызметкердің туған күні жақындағаны туралы анда-санда хабарлау өте жақсы болады. Бұл оқулықта сіз дерекқорды ашқан сәтте біреудің ерекше күні туралы хабардар ететін функцияны қалай құруға болатындығын білесіз.

Енді жүктеп

Егер сіз бұл мүмкіндікті мүмкіндігінше тезірек пайдалана бастағыңыз келсе, онда сіз:

VBA кодтары бар дерекқор үлгісін қазір жүктеп алыңыз

Әйтпесе, егер сіз өзіңіздің қолыңызбен жасағыңыз келсе, төмендегі мазмұнды оқи аласыз.

Алғышарт

Бұл оқу құралы сіздің мәліметтер базаңызда кесте бар деп болжайды, онда үш өріс бар: аты, тегі және туған күні.

Access дерекқорына туған күн туралы еске салғыштарды қосу қадамдары

Жаңа кесте құрыңыз және оған ат қойыңыз Туған күн мерекелер. Бұл туған күн мерекесіне арналған репозитарий ретінде қызмет етеді. Төменде көрсетілгендей 3 өрісті қосыңыз. Негізгі кілт қажет емес.
Туған күн мерекесіне арналған үлгі жасаңыз. Жақын туған күндер болса, бұл үлгі деректер базасын ашқан кезде пайда болады.

Шарлау аумағында Туған күнді мерекелеу кестесін таңдаңыз.
Жасау> Пішім тармағына өтіңіз.
Сіз үшін автоматты түрде Бірыңғай форма жасалады.

Біз туған күнді мерекелейтіндердің тізімін көрсететін болғандықтан, мен сізге форманың әдепкі көрінісін деректер кестесіне немесе үздіксіз формаларға өзгертуді ұсынамын. Осылайша, сіз тізімге жылдам шолу жасай аласыз.

Дизайн көрінісінде форманы таңдаңыз.
Сипат парағын ашыңыз (ALT + F11)
Пішім> Әдепкі көрініс тармағына өтіңіз.
Қажетті көріністі таңдаңыз - деректер кестесін немесе үздіксіз формаларды.

Егер сіз үздіксіз пішіндерді таңдаған болсаңыз, дизайнды өз қалауыңызға сәйкес өңдеңіз. Міне менің көрінісім:

Мен «Туған күн» мәтіндік жәшігінің форматын өзгерттім, сонда мәндер ұзақ мерзім форматында көрсетіледі. Сондай-ақ, мен форманың қасиеттері туралы келесі жаңартуларды жасадым:

Қосымшаларға рұқсат беру: Жоқ
Жоюға рұқсат: Жоқ
Өңдеуге рұқсат беру: Жоқ

Аяқтағаннан кейін, форманы жауып, келесідей сақтаңыз frm_Туған күн мерекелері.

Туған күн туралы еске салу кодын қосыңыз.
- Жаңа модуль қосыңыз.
- Бұл VBA редакторын ашады.
- Келесі кодты қосып, оны сіздің қажеттіліктеріңізге сәйкес өзгертіңіз.

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 макросын жасаймыз. Бұл дерекқорды ашқаннан кейін кодты іске қосады.
- Жасау> Макро тармағына өтіңіз.
- таңдау RunCode ашылмалы тізімнен.
- Функция атауы үшін жазыңыз RunBirthdayReminders ().
- Макросты келесідей сақтаңыз AutoExec OK түймесін басыңыз.

Енді туған күн туралы еске салғышты тексеріп көріңіз.

Дерекқорды жауып, оны қайта ашыңыз. Егер туылған күндер болса, туған күн туралы еске салу формасы қалқымалы болуы керек. Егер жоқ болса, мәліметтер базасы әдеттегідей жұмыс істейді.

Жылдам еске салу

Енді жылдам еске салу үшін. Егер бір күні сіз өзіңіздің мәліметтер қорыңызды аша алмасаңыз, үрейленбеңіз. Оны қалпына келтіру үшін қажетті әрекеттерді жасаңыз. Егер сіз әлі жасай алмасаңыз, үшінші тарап бағдарламалық жасақтамасын пайдаланып көріңіз Access бағдарламасын түзету. Әлі де үміт бар.

Автордың кіріспесі:

Джейм Стек - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. SQL қалпына келтіру және excel қалпына келтіру бағдарламалық жасақтама өнімдері. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com