Access ma'lumotlar bazasiga tug'ilgan kun haqida eslatmalarni qanday qo'shish mumkinligini bilib oling. Sizning mijozingiz yoki xodimingizning tug'ilgan kuni yaqinlashayotganidan xabardor bo'ling, shunda siz ularga samimiy tabriklaringizni yuborishingiz mumkin.
Tug'ilgan kun tabriklarini yuborish mijoz yoki xodim bilan bog'lanish va munosabatlarni mustahkamlashning ajoyib usuli bo'lishi mumkin. Agar siz mijoz/xodimlar yozuvlarini o'z ichiga olgan Access ma'lumotlar bazasi bilan ishlayotgan bo'lsangiz, vaqti-vaqti bilan mijoz yoki xodimning tug'ilgan kuni yaqinlashayotganidan xabardor bo'lish juda yaxshi bo'ladi. Ushbu qo'llanmada siz ma'lumotlar bazasini ochganingizda kimningdir maxsus kuni haqida sizni xabardor qiladigan funktsiyani qanday yaratishingiz mumkinligini bilib olasiz.
Hozir yuklab olmoq
Agar siz ushbu funksiyadan iloji boricha tezroq foydalanishni boshlamoqchi bo'lsangiz, quyidagilarni qilishingiz mumkin:
VBA kodlari bilan namunaviy ma'lumotlar bazasini hozir yuklab oling
Aks holda, agar siz DIY qilishni istasangiz, quyidagi tarkibni o'qishingiz mumkin.
Talablar
Ushbu o'quv qo'llanma sizning ma'lumotlar bazasida ushbu 3 ta maydonni o'z ichiga olgan jadval mavjudligini nazarda tutadi: ism, familiya va tug'ilgan kun.
Access ma'lumotlar bazasida tug'ilgan kun eslatmalarini qo'shish qadamlari
- Yangi jadval yarating va unga nom bering Tug'ilgan kunni nishonlovchilar. Bu tug'ilgan kunni nishonlaydiganlar ro'yxati uchun ombor bo'lib xizmat qiladi. Quyida ko'rsatilgandek 3 ta maydon qo'shing. Asosiy kalit kerak emas.
- Tug'ilgan kunni nishonlash uchun shakl yarating. Agar yaqinlashib kelayotgan tug'ilgan kunlar bo'lsa, bu shakl ma'lumotlar bazasi ochilganda ochiladi.
- Navigatsiya panelida BirthdayCelebrants jadvalini tanlang.
- Yaratish > Shakl-ga o'ting.
- Yagona shakl siz uchun avtomatik ravishda yaratiladi.
Biz tug'ilgan kun nishonlovchilari ro'yxatini ko'rsatmoqchi bo'lganimiz sababli, men sizga formaning standart ko'rinishini Ma'lumotlar jadvali yoki Uzluksiz shakllarga o'zgartirishingizni maslahat beraman. Shunday qilib, siz ro'yxatni tezda ko'rib chiqishingiz mumkin.
- Dizayn ko'rinishida shaklni tanlang.
- Xususiyatlar varag'ini ochish (ALT + F11)
- Format > Standart ko‘rinishga o‘ting.
- Kerakli ko'rinishni tanlang - ma'lumotlar jadvali yoki doimiy shakllar.
Agar siz Continous Forms-ni tanlagan bo'lsangiz, dizaynni o'zingizning afzalliklaringizga mos ravishda tahrirlang. Mana meniki qanday ko'rinishga ega:
Men Tug'ilgan kun matn maydoni formatini tahrir qildim, shunda qiymatlar Long Date formatida ko'rsatiladi. Bundan tashqari, men formaning xususiyatlariga quyidagi yangilanishlarni kiritdim:
- Qo'shimchalarga ruxsat berish: Yo'q
- Oʻchirishga ruxsat berish: Yoʻq
- Tahrirlarga ruxsat berish: Yo'q
Tugallangach, shaklni yoping va uni shunday saqlang frm_BirthdayCelebrants.
- Tug'ilgan kunni eslatish uchun kod qo'shing.
- Yangi modul qo'shing.
- Bu VBA muharririni ochadi.
- Quyidagi kodni qo'shing va uni ehtiyojlaringizga mos ravishda o'zgartiring.
- Yangi modul qo'shing.
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
E'tibor bering, yuqoridagi kod joriy kun uchun tug'ilgan kun nishonlovchilari ro'yxatini oladigan so'rovdan foydalanadi. Agar joriy oyda tug'ilgan kuni yaqinlashayotgan odamlar ro'yxatini olishni istasangiz, uning o'rniga quyidagi so'rovdan foydalaning.
'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"
- Nihoyat, biz AutoExec makrosini yaratamiz. Bu ma'lumotlar bazasini ochishda kodni ishga tushiradi.
- Yaratish > Makros-ga o'ting.
- tanlang RunCode ochiladigan ro'yxatdan.
- Funktsiya nomi uchun yozing RunBirthday Reminders().
- Makrosni shunday saqlang AutoExec va OK tugmasini bosing.
- Endi tug'ilgan kuningiz haqida eslatmani sinab ko'ring.
Ma'lumotlar bazasini yoping va uni qayta oching. Agar yaqinlashib kelayotgan tug'ilgan kunlar bo'lsa, tug'ilgan kunni eslatish shakli paydo bo'lishi kerak. Agar yo'q bo'lsa, ma'lumotlar bazasi odatdagidek ishlaydi.
Tez eslatma
Endi tezkor eslatma uchun. Agar bir kun ma'lumotlar bazasini ocholmasangiz, vahima qo'ymang. Uni qayta tiklash uchun zarur choralarni ko'ring. Agar siz hali ham qila olmasangiz, uchinchi tomon dasturlarini sinab ko'ring Access-ni tuzatish. Hali umid bor.
Muallif kirish:
Jayme Stack - ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc sqlni tiklash va excel tiklash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com