Μάθετε πώς μπορείτε να προσθέσετε υπενθυμίσεις γενεθλίων στη βάση δεδομένων της Access. Ενημερωθείτε για τα γενέθλια του πελάτη ή του υπαλλήλου σας, ώστε να μπορείτε να τους στείλετε τον θερμό σας χαιρετισμό.
Η αποστολή χαιρετισμών γενεθλίων μπορεί να είναι ένας πολύ καλός τρόπος σύνδεσης και ενίσχυσης της σχέσης με πελάτη ή υπάλληλο. Εάν χειρίζεστε μια βάση δεδομένων της Access που περιέχει αρχεία πελατών / υπαλλήλων, μπορεί να είναι υπέροχο να ενημερώνεστε κατά καιρούς εάν έρχονται τα γενέθλια του πελάτη ή του υπαλλήλου. Σε αυτό το σεμινάριο, θα μάθετε πώς μπορείτε να δημιουργήσετε μια λειτουργία που θα σας ειδοποιεί για την ειδική μέρα κάποιου τη στιγμή που ανοίγετε τη βάση δεδομένων.
Κατεβάστε το Δωρεάν Τώρα
Αν θέλετε να αρχίσετε να χρησιμοποιείτε τη λειτουργία το συντομότερο δυνατό, τότε μπορείτε να κάνετε τα εξής:
Κάντε λήψη του δείγματος βάσης δεδομένων με κωδικούς VBA τώρα
Διαφορετικά, αν θέλετε να κάνετε DIY, μπορείτε να διαβάσετε τα παρακάτω περιεχόμενα.
Προαπαιτούμενο
Αυτό το σεμινάριο προϋποθέτει ότι έχετε έναν πίνακα στη βάση δεδομένων σας που περιέχει αυτά τα 3 πεδία: όνομα, επώνυμο και γενέθλια.
Βήματα για να προσθέσετε υπενθυμίσεις γενεθλίων στη βάση δεδομένων πρόσβασης
- Δημιουργήστε έναν νέο πίνακα και ονομάστε τον Γενέθλια. Αυτό θα χρησιμεύσει ως αποθετήριο για τη λίστα των εορταστικών γενεθλίων. Προσθέστε 3 πεδία όπως φαίνεται παρακάτω. Δεν χρειάζεται πρωτεύον κλειδί.
- Δημιουργήστε μια φόρμα για BirthdayCelebrants. Αυτή η φόρμα θα εμφανιστεί κατά το άνοιγμα της βάσης δεδομένων εάν υπάρχουν επερχόμενα γενέθλια.
- Στο παράθυρο πλοήγησης, επιλέξτε τον πίνακα BirthdayCelebrants.
- Μεταβείτε στη Δημιουργία> Φόρμα.
- Μια ενιαία φόρμα θα δημιουργηθεί αυτόματα για εσάς.
Δεδομένου ότι πρόκειται να εμφανίσουμε μια λίστα με εορταστές γενεθλίων, θα πρότεινα να αλλάξετε την Προεπιλεγμένη προβολή της φόρμας σε φύλλο δεδομένων ή σε συνεχείς φόρμες. Με αυτόν τον τρόπο, μπορείτε να έχετε μια γρήγορη επισκόπηση της λίστας.
- Ενώ βρίσκεστε σε προβολή σχεδίασης, επιλέξτε τη φόρμα.
- Άνοιγμα του φύλλου ιδιοτήτων (ALT + F11)
- Μεταβείτε στη Μορφή> Προεπιλεγμένη προβολή.
- Επιλέξτε την επιθυμητή προβολή - είτε φύλλο δεδομένων είτε συνεχείς φόρμες.
Εάν έχετε επιλέξει συνεχείς φόρμες, επεξεργαστείτε τη σχεδίαση ώστε να ταιριάζει με τις προτιμήσεις σας. Δείτε πώς είναι το δικό μου:
Έχω επεξεργαστεί τη μορφή του πλαισίου κειμένου Γενεθλίων, έτσι ώστε οι τιμές να εμφανίζονται σε μορφή Long Date. Επίσης, έκανα τις ακόλουθες ενημερώσεις σχετικά με τις ιδιότητες της φόρμας:
- Να επιτρέπονται προσθήκες: Όχι
- Να επιτρέπονται διαγραφές: Όχι
- Να επιτρέπονται οι τροποποιήσεις: Όχι
Όταν τελειώσετε, κλείστε τη φόρμα και αποθηκεύστε την ως frm_BirthdayCelebrants.
- Προσθέστε τον κωδικό για την υπενθύμιση γενεθλίων.
- Προσθέστε μια νέα ενότητα.
- Αυτό θα ανοίξει το πρόγραμμα επεξεργασίας 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"
- Τέλος, θα δημιουργήσουμε μια μακροεντολή AutoExec. Αυτό θα τρέξει τον κωδικό κατά το άνοιγμα της βάσης δεδομένων.
- Μεταβείτε στο Δημιουργία> Μακροεντολή.
- Αγορά RunCode από την αναπτυσσόμενη λίστα.
- Για το όνομα λειτουργίας, γράψτε RunBirthdayReminders ().
- Αποθηκεύστε τη μακροεντολή ως AutoExec και κάντε κλικ στο OK.
- Τώρα, δοκιμάστε την υπενθύμιση γενεθλίων σας.
Κλείστε τη βάση δεδομένων και ανοίξτε την ξανά. Εάν υπάρχουν επερχόμενα γενέθλια, θα εμφανιστεί η φόρμα υπενθύμισης γενεθλίων. Εάν δεν υπάρχει, η βάση δεδομένων θα λειτουργεί κανονικά.
Γρήγορη υπενθύμιση
Τώρα για μια γρήγορη υπενθύμιση. Εάν μια μέρα, δεν μπορείτε να ανοίξετε τη βάση δεδομένων σας, μην πανικοβληθείτε. Λάβετε τα απαραίτητα μέτρα για να το ανακτήσετε. Εάν εξακολουθείτε να μην μπορείτε, δοκιμάστε λογισμικό τρίτων που θα το κάνει διορθώστε την πρόσβαση. Υπάρχει ακόμα ελπίδα.
Εισαγωγή συγγραφέα:
Ο Jayme Stack είναι ειδικός στην ανάκτηση δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων ανάκτηση sql και υπερέχουν προϊόντα λογισμικού ανάκτησης. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com