วิธีเพิ่มการแจ้งเตือนวันเกิดในฐานข้อมูลการเข้าถึงของคุณ

เรียนรู้วิธีเพิ่มการแจ้งเตือนวันเกิดในฐานข้อมูล Access ของคุณ รับแจ้งหากวันเกิดของลูกค้าหรือพนักงานของคุณกำลังจะมาถึงเพื่อให้คุณสามารถส่งคำอวยพรที่อบอุ่นให้พวกเขาได้

การส่งคำอวยพรวันเกิดเป็นวิธีที่ดีในการเชื่อมต่อและกระชับความสัมพันธ์กับลูกค้าหรือพนักงาน หากคุณกำลังจัดการฐานข้อมูล Access ที่มีบันทึกของลูกค้า / พนักงานคุณควรได้รับการแจ้งเตือนเป็นครั้งคราวหากวันเกิดของลูกค้าหรือพนักงานกำลังจะมาถึง ในบทช่วยสอนนี้คุณจะได้เรียนรู้วิธีสร้างฟังก์ชันที่จะแจ้งให้คุณทราบถึงวันพิเศษของใครบางคนทันทีที่คุณเปิดฐานข้อมูล

ดาวน์โหลดตอนนี้

ถ้าคุณต้องการ starเพื่อใช้คุณลักษณะนี้โดยเร็วที่สุดจากนั้นคุณสามารถ:

ดาวน์โหลดฐานข้อมูลตัวอย่างด้วยรหัส VBA ทันที

มิฉะนั้นหากคุณต้องการ DIY คุณสามารถอ่านเนื้อหาด้านล่าง

วิชาบังคับก่อน

บทช่วยสอนนี้จะถือว่าคุณมีตารางในฐานข้อมูลของคุณที่มี 3 ฟิลด์เหล่านี้ ได้แก่ ชื่อนามสกุลและวันเกิด

ขั้นตอนในการเพิ่มการแจ้งเตือนวันเกิดในฐานข้อมูล Access

1. สร้างตารางใหม่และตั้งชื่อ วันเกิด. สิ่งนี้จะทำหน้าที่เป็นพื้นที่เก็บข้อมูลสำหรับรายชื่อผู้ร่วมเฉลิมฉลองวันเกิด เพิ่ม 3 ช่องตามที่แสดงด้านล่าง ไม่จำเป็นต้องมีคีย์หลัก
2. สร้างแบบฟอร์มสำหรับ BirthdayCelebrants แบบฟอร์มนี้จะปรากฏขึ้นเมื่อเปิดฐานข้อมูลหากมีวันเกิดที่กำลังจะมาถึง

• ในบานหน้าต่างนำทางเลือกตาราง BirthdayCelebrants
• ไปที่สร้าง> แบบฟอร์ม
• แบบฟอร์มเดียวจะถูกสร้างขึ้นโดยอัตโนมัติสำหรับคุณ

เนื่องจากเราจะแสดงรายชื่อผู้ร่วมเฉลิมฉลองวันเกิดฉันขอแนะนำให้คุณเปลี่ยนมุมมองเริ่มต้นของแบบฟอร์มเป็นแผ่นข้อมูลหรือแบบฟอร์มต่อเนื่อง ด้วยวิธีนี้คุณสามารถดูภาพรวมของรายการได้อย่างรวดเร็ว

• ขณะอยู่ในมุมมองออกแบบให้เลือกแบบฟอร์ม
• เปิดแผ่นคุณสมบัติ (ALT + F11)
• ไปที่รูปแบบ> มุมมองเริ่มต้น
• เลือกมุมมองที่คุณต้องการไม่ว่าจะเป็นแผ่นข้อมูลหรือแบบฟอร์มต่อเนื่อง

หากคุณเลือกแบบฟอร์มต่อเนื่องให้แก้ไขการออกแบบเพื่อให้ตรงกับความต้องการของคุณ นี่คือลักษณะของฉัน:

ฉันได้แก้ไขรูปแบบของกล่องข้อความวันเกิดเพื่อให้แสดงค่าในรูปแบบ Long Date นอกจากนี้ฉันได้ทำการอัปเดตคุณสมบัติของแบบฟอร์มต่อไปนี้:

• อนุญาตให้เพิ่ม: ไม่
• อนุญาตให้ลบ: ไม่
• อนุญาตให้แก้ไข: ไม่

เมื่อเสร็จแล้วให้ปิดแบบฟอร์มและบันทึกเป็น frm_Birthday คนดัง

3. เพิ่มรหัสสำหรับการเตือนวันเกิด
   • เพิ่มโมดูลใหม่
   • เพื่อเปิด VBA Editor
   • เพิ่มรหัสต่อไปนี้และปรับเปลี่ยนให้เหมาะกับความต้องการของคุณ

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"

4. ในที่สุดเราจะสร้างมาโคร AutoExec สิ่งนี้จะเรียกใช้รหัสเมื่อเปิดฐานข้อมูล
   • ไปที่สร้าง> มาโคร
   • เลือก รันโค้ด จากรายการแบบเลื่อนลง
   • สำหรับชื่อฟังก์ชันให้เขียน RunBirthdayReminders ().
   • บันทึกมาโครเป็น ออโต้เอ็กเซค และคลิกตกลง

5. ตอนนี้ทดสอบการแจ้งเตือนวันเกิดของคุณ

ปิดฐานข้อมูลแล้วเปิดใหม่ หากมีวันเกิดที่กำลังจะมาถึงแบบฟอร์มการแจ้งเตือนวันเกิดจะปรากฏขึ้น ถ้าไม่มีฐานข้อมูลจะทำงานตามปกติ

การแจ้งเตือนด่วน

ตอนนี้สำหรับการแจ้งเตือนอย่างรวดเร็ว หากวันหนึ่งคุณไม่สามารถเปิดฐานข้อมูลของคุณได้อย่าตกใจ ทำตามขั้นตอนที่จำเป็นเพื่อกู้คืน หากคุณยังทำไม่ได้ให้ลองใช้ซอฟต์แวร์ของบุคคลที่สามที่สามารถทำได้ แก้ไขการเข้าถึง. ยังมีความหวัง

บทนำผู้เขียน:

Jayme Stack เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ การกู้คืน sql และผลิตภัณฑ์ซอฟต์แวร์กู้คืน excel ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.