Хандалтын мэдээллийн сандаа төрсөн өдрийн сануулагчийг хэрхэн нэмэх вэ

Хандалтын шийдлүүд Есдүгээр сарын 29, 2025
Одоо хуваалцах:

Та өөрийн Access мэдээллийн санд төрсөн өдрийн сануулагчийг хэрхэн нэмэх талаар мэдэж аваарай. Таны үйлчлүүлэгч эсвэл ажилтны төрсөн өдөр ойртож байгаа бол мэдэгдээрэй, ингэснээр та тэдэнд халуун мэндчилгээ илгээх боломжтой.

Төрсөн өдрийн мэндчилгээ илгээх нь үйлчлүүлэгч эсвэл ажилтантайгаа холбогдох, харилцаа холбоогоо бэхжүүлэх сайхан арга байж болох юм. Хэрэв та харилцагч/ажилтны бүртгэлийг агуулсан Access мэдээллийн сантай ажиллаж байгаа бол үйлчлүүлэгч эсвэл ажилтны төрсөн өдөр ойртож байгаа тухай үе үе мэдэгдэх нь сайхан хэрэг болно. Энэ зааварт та мэдээллийн санг нээх мөчид хэн нэгний онцгой өдрийг танд мэдэгдэх функцийг хэрхэн үүсгэх талаар сурах болно.

Одоо Татах

Хэрэв та энэ функцийг аль болох хурдан ашиглаж эхлэхийг хүсвэл дараах зүйлсийг хийж болно:

VBA кодтой мэдээллийн сангийн дээжийг одоо татаж аваарай

Үгүй бол, хэрэв та DIY хийхийг хүсвэл доорхи агуулгыг уншиж болно.

Урьдчилан таамаглах

Энэхүү заавар нь таны өгөгдлийн санд нэр, овог, төрсөн өдөр гэсэн 3 талбарыг агуулсан хүснэгттэй гэж үздэг.

Access мэдээллийн санд төрсөн өдрийн сануулагч нэмэх алхамууд

  1. Шинэ хүснэгт үүсгээд түүнд нэр өгнө үү Төрсөн өдөр тэмдэглэгчид. Энэ нь төрсөн өдрийн тэмдэглэлт хүмүүсийн жагсаалтыг хадгалах газар болно. Доор үзүүлсэн шиг 3 талбар нэмнэ үү. Үндсэн түлхүүр хэрэггүй.Хүснэгтийн төрсөн өдрийг тэмдэглэгчид
  2. Төрсөн өдрийн баярт зориулсан маягт үүсгэ. Хэрэв удахгүй төрсөн өдөр тохиох бол мэдээллийн санг нээхэд энэ маягт гарч ирнэ.Төрсөн өдрийн баярт зориулсан маягт үүсгэх
  • Навигацийн самбараас Төрсөн өдрийн тэмдэглэлт хүснэгтийг сонгоно уу.
  • Үүсгэх > Маягт руу очно уу.
  • Нэг маягт танд автоматаар үүсгэгдэх болно.

Бид төрсөн өдрийн тэмдэглэлт хүмүүсийн жагсаалтыг харуулах гэж байгаа тул маягтын өгөгдмөл харагдацыг Datasheet эсвэл Continuous Forms болгон өөрчлөхийг танд зөвлөж байна. Ингэснээр та жагсаалтыг хурдан тоймлох боломжтой болно.Маягтын өгөгдмөл харагдах байдлыг өөрчлөх

  • Загварын харагдац дээр байхдаа маягтыг сонгоно уу.
  • Өмчийн хуудсыг нээх (ALT + F11)
  • Format > Default View руу очно уу.
  • Хүссэн харагдацаа сонгоно уу - Datasheet эсвэл Continous Forms.

Хэрэв та "Үргэлжилсэн маягт"-ыг сонгосон бол өөрийн сонголтод нийцүүлэн дизайныг засаарай. Минийх дараах байдалтай байна.Тасралтгүй маягтуудыг сонгоод дизайныг засна уу

Би Төрсөн өдрийн текст хайрцагны форматыг зассан бөгөөд ингэснээр утгуудыг Урт огноо форматаар харуулах болно. Мөн би маягтын шинж чанаруудын талаар дараах шинэчлэлтүүдийг хийсэн:

  • Нэмэлт оруулахыг зөвшөөрөх: Үгүй
  • Устгахыг зөвшөөрөх: Үгүй
  • Засвар хийхийг зөвшөөрөх: Үгүй

Хийж дууссаны дараа маягтыг хааж хадгална уу frm_Төрсөн өдрийн баяр.

  1. Төрсөн өдрийн сануулагчийн кодыг нэмнэ үү.
    • Шинэ модуль нэмнэ үү.Шинэ модуль нэмнэ үү
    • Энэ нь 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"
  1. Эцэст нь бид AutoExec макро үүсгэх болно. Энэ нь мэдээллийн санг нээх үед кодыг ажиллуулна.AutoExec макро үүсгэх
    • Үүсгэх > Макро руу очно уу.
    • сонгоно уу RunCode унах жагсаалтаас.
    • Функцийн нэрийн хувьд бичнэ үү Төрсөн өдрийн санамжийг ажиллуулах().
    • Макрог дараах байдлаар хадгал AutoExec OK дарна уу.
  1. Одоо төрсөн өдрийн сануулагчаа туршиж үзээрэй.

Өгөгдлийн санг хаагаад дахин нээнэ үү. Хэрэв удахгүй төрсөн өдөр байгаа бол төрсөн өдрийг сануулах маягт гарч ирэх ёстой. Хэрэв байхгүй бол мэдээллийн сан ердийнхөөрөө ажиллана.

Түргэн сануулагч

Одоо хурдан сануулъя. Хэрэв нэг өдөр та мэдээллийн сангаа нээж чадахгүй бол бүү сандар. Үүнийг сэргээхийн тулд шаардлагатай арга хэмжээг авна уу. Хэрэв та чадахгүй хэвээр байгаа бол гуравдагч талын програмыг ашиглаж үзээрэй хандалтыг засах. Найдвар хэвээр байна.

Зохиогчийн танилцуулга:

Jayme Stack бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. sql сэргээх болон excel сэргээх програм хангамжийн бүтээгдэхүүнүүд. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com

Одоо хуваалцах:

Тайлбарууд нь хаалттай байна.