Cara Menambahkan Pengingat Ulang Tahun di Access Database Anda

Solusi Akses September 29, 2025
Bagikan sekarang:

Pelajari bagaimana Anda bisa menambahkan pengingat ulang tahun ke database Access Anda. Diberitahu jika klien atau karyawan Anda berulang tahun sebentar lagi sehingga Anda dapat mengirimkan salam hangat Anda kepada mereka.

Mengirim ucapan selamat ulang tahun bisa menjadi cara yang bagus untuk menghubungkan dan memperkuat hubungan dengan klien atau karyawan. Jika Anda menangani database Access yang berisi catatan pelanggan / karyawan, akan sangat menyenangkan untuk diberi tahu dari waktu ke waktu jika ulang tahun klien atau karyawan akan datang. Dalam tutorial ini, Anda akan belajar bagaimana Anda dapat membuat fungsi yang akan memberi tahu Anda tentang hari istimewa seseorang saat Anda membuka database.

Unduh Sekarang

Jika Anda ingin mulai menggunakan fitur ini sesegera mungkin, Anda dapat melakukan hal berikut:

Unduh Contoh Database dengan Kode VBA Sekarang

Kalau tidak, kalau mau DIY bisa baca isinya di bawah ini.

Prasyarat

Tutorial ini mengasumsikan bahwa Anda memiliki tabel di database Anda yang berisi 3 bidang berikut: nama depan, nama belakang, dan ulang tahun.

Langkah-langkah untuk Menambahkan Pengingat Ulang Tahun di Access Database

  1. Buat tabel baru dan beri nama Perayaan Ulang Tahun. Ini akan berfungsi sebagai gudang untuk daftar perayaan ulang tahun. Tambahkan 3 bidang seperti yang ditunjukkan di bawah ini. Tidak perlu kunci utama.Ulang Tahun Meja
  2. Buat formulir untuk BirthdayCelebrants. Formulir ini akan muncul saat membuka database jika ada hari ulang tahun yang akan datang.Buat Formulir Untuk BirthdayCelebrants
  • Di panel navigasi, pilih tabel BirthdayCelebrants.
  • Pergi ke Buat> Formulir.
  • Formulir Tunggal akan dibuat secara otomatis untuk Anda.

Karena kita akan menampilkan daftar perayaan ulang tahun, saya sarankan Anda mengubah Tampilan Default formulir menjadi Lembar Data atau Formulir Berkelanjutan. Dengan cara ini, Anda dapat memiliki gambaran umum singkat tentang daftar tersebut.Ubah Tampilan Default Formulir

  • Saat dalam tampilan desain, pilih formulir.
  • Buka Lembar Properti (ALT + F11)
  • Masuk ke Format> Tampilan Default.
  • Pilih tampilan yang Anda inginkan - Lembar Data atau Formulir Berkelanjutan.

Jika Anda telah memilih Formulir Berkelanjutan, edit desain agar sesuai dengan preferensi Anda. Begini tampilan saya:Pilih Formulir Berkelanjutan dan Edit Desain

Saya telah mengedit format kotak teks Ulang Tahun sehingga nilai-nilai akan ditampilkan dalam format Tanggal Panjang. Juga, saya membuat pembaruan berikut pada properti formulir:

  • Izinkan Penambahan: Tidak
  • Izinkan Penghapusan: Tidak
  • Izinkan Pengeditan: Tidak

Setelah selesai, tutup formulir dan simpan sebagai frm_BirthdayCelebrants.

  1. Tambahkan kode untuk pengingat ulang tahun.
    • Tambahkan modul baru.Tambahkan Modul Baru
    • Ini akan membuka Editor VBA.
    • Tambahkan kode berikut dan modifikasi agar sesuai dengan kebutuhan Anda.
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

Harap dicatat bahwa kode di atas menggunakan kueri yang mendapatkan daftar perayaan ulang tahun untuk hari ini. Jika Anda ingin mendapatkan daftar orang yang ulang tahunnya akan datang untuk bulan ini, gunakan kueri berikut sebagai gantinya.

'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. Terakhir, kita akan membuat makro AutoExec. Ini akan menjalankan kode saat membuka database.Buat Makro AutoExec
    • Pergi ke Buat> Makro.
    • Pilih Kode Jalan dari daftar dropdown.
    • Untuk Nama Fungsi, tulis RunBirthdayReminders ().
    • Simpan makro sebagai Eksekusi Otomatis dan klik OK.
  1. Sekarang, uji Pengingat Ulang Tahun Anda.

Tutup database dan buka kembali. Jika ada hari ulang tahun yang akan datang, formulir pengingat ulang tahun akan muncul. Jika tidak ada, database akan berjalan seperti biasa.

Pengingat Cepat

Sekarang untuk pengingat cepat. Jika suatu hari, Anda tidak bisa membuka database Anda, jangan panik. Ambil langkah-langkah yang diperlukan untuk memulihkannya. Jika Anda masih tidak bisa, coba perangkat lunak pihak ketiga yang akan melakukannya memperbaiki Akses. Masih ada harapan.

Pengantar Penulis:

Jayme Stack adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk pemulihan sql dan unggul dalam produk perangkat lunak pemulihan. Untuk informasi lebih lanjut kunjungi www.datanumen.com

Bagikan sekarang:

Komentar ditutup.