Access veritabanınıza nasıl doğum günü hatırlatıcıları ekleyebileceğinizi öğrenin. Müşterinizin veya çalışanınızın doğum günü yaklaşıyorsa haberdar olun, böylece onlara sıcak selamlarınızı gönderebilirsiniz.
Doğum günü tebrikleri göndermek, bir müşteri veya çalışanla bağ kurmanın ve ilişkiyi güçlendirmenin harika bir yolu olabilir. Müşteri/çalışan kayıtlarını içeren bir Access veritabanını yönetiyorsanız, bir müşterinin veya çalışanın doğum günü yaklaştığında zaman zaman bilgilendirilmek harika olabilir. Bu eğitimde, veritabanını açtığınız anda birinin özel gününü size bildirecek bir işlevi nasıl oluşturabileceğinizi öğreneceksiniz.
Hemen İndir
Bu özelliği mümkün olan en kısa sürede kullanmaya başlamak istiyorsanız, şunları yapabilirsiniz:
VBA Kodları ile Örnek Veritabanını Şimdi İndirin
Aksi takdirde, DIY yapmak istiyorsanız aşağıdaki içeriği okuyabilirsiniz.
Önkoşul
Bu öğretici, veritabanınızda şu 3 alanı içeren bir tablonuz olduğunu varsayar: ad, soyadı ve doğum günü.
Access Veritabanında Doğum Günü Hatırlatıcıları Ekleme Adımları
- Yeni bir tablo oluşturun ve adlandırın Doğum GünüÜnlüleri. Bu, doğum günü kutlayanların listesi için depo görevi görecek. Aşağıda gösterildiği gibi 3 alan ekleyin. Birincil anahtara gerek yok.
- Doğum Günü Kutlamaları için bir form oluşturun. Bu form, yaklaşan doğum günleri varsa, veritabanı açıldığında açılır.
- Gezinti bölmesinde Doğum Günü Kutlamaları tablosunu seçin.
- Oluştur > Form'a gidin.
- Sizin için otomatik olarak Tek Form oluşturulacaktır.
Doğum gününü kutlayanların bir listesini görüntüleyeceğimiz için, formun Varsayılan Görünümünü Veri Sayfası veya Sürekli Formlar olarak değiştirmenizi öneririm. Bu şekilde, listeye hızlı bir şekilde göz atabilirsiniz.
- Tasarım görünümündeyken formu seçin.
- Özellik Sayfasını açın (ALT + F11)
- Biçim > Varsayılan Görünüm'e gidin.
- İstediğiniz görünümü seçin - Veri Sayfası veya Sürekli Formlar.
Sürekli Formlar'ı seçtiyseniz, tasarımı tercihlerinize göre düzenleyin. İşte benimki nasıl görünüyor:
Doğum günü metin kutusunun biçimini, değerlerin Uzun Tarih biçiminde görüntülenmesi için düzenledim. Ayrıca, formun özelliklerinde aşağıdaki güncellemeleri yaptım:
- Eklemelere İzin Ver: Hayır
- Silme İşlemlerine İzin Ver: Hayır
- Düzenlemelere İzin Ver: Hayır
Bittiğinde, formu kapatın ve farklı kaydedin frm_BirthdayCelebrants.
- Doğum günü hatırlatıcısı için kodu ekleyin.
- Yeni bir modül ekleyin.
- Bu, VBA Editörünü açacaktır.
- Aşağıdaki kodu ekleyin ve ihtiyaçlarınıza uyacak şekilde değiştirin.
- Yeni bir modül ekleyin.
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ütfen yukarıdaki kodun, geçerli gün için doğum günü kutlayanların bir listesini alan bir sorgu kullandığını unutmayın. İçinde bulunduğunuz ay için doğum günü yaklaşan kişilerin bir listesini almak istiyorsanız, bunun yerine aşağıdaki sorguyu kullanın.
'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"
- Son olarak, bir AutoExec makrosu oluşturacağız. Bu, veritabanını açtıktan sonra kodu çalıştıracaktır.
- Oluştur > Makro'ya gidin.
- Seç Kodu Çalıştır açılır listeden.
- İşlev Adı için şunu yazın RunDoğum GünüHatırlatıcıları().
- Makroyu farklı kaydet Otomatik Yürütme ve Tamam'ı tıklayın.
- Şimdi, Doğum Günü Hatırlatıcınızı test edin.
Veritabanını kapatın ve yeniden açın. Yaklaşan doğum günleri varsa, doğum günü hatırlatma formu açılır. Hiçbiri yoksa, veritabanı her zamanki gibi çalışacaktır.
Hızlı Hatırlatma
Şimdi hızlı bir hatırlatma için. Bir gün veritabanınızı açamazsanız paniğe kapılmayın. Kurtarmak için gerekli adımları atın. Hala yapamıyorsanız, üçüncü taraf yazılımları deneyin. erişimi düzelt. Hala umut var.
Yazar Tanıtımı:
Jayme Stack, veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. sql kurtarma ve excel kurtarma yazılımı ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com