[Meteora]

Καλημέρα και χρόνια πολλά
Στις εφαρμογές που μέχρι σήμερα έχω φτιάξει, χρησιμοποιώ -ως πλέον σύντομη διαχείριση , εντοπισμού γενεθλίων τον παρακάτω κώδικα.

 
Private Sub Εντολή12_Click()

Dim strQuery As String
    strQuery = "SELECT * FROM TABLE WHERE Month([Γεννηση])=Month(Date())"
    Dim rs As Recordset
    Dim strMessage As String
            Set rs = CodeDb.OpenRecordset(strQuery)
    Do While Not rs.EOF
           strMessage = strMessage & rs.Fields("Επιθετο").Value & "    " & rs.Fields("Γεννηση").Value _
                                & vbCrLf        'Θέλουμε να εμφανίζονται τα επώνυμα στο πλαίσιο της msgbox!
        rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
    If Len(strMessage) > 1 Then
        MsgBox strMessage, vbInformation, "Γενέθλια αυτό τον μήνα !"
    Else
        MsgBox "Δεν υπάρχουν άτομα που έχουν γενέθλια αυτό το μήνα !", vbInformation, "ΕΛΕΓΧΟΣ"
    End If

End Sub

Δίνω πρόσθετες πληροφορίες για όσους θελήσουν να κάνουν χρήση της παραπάνω ρουτίνας.

• TABLE = ο πίνακας
• [Γεννηση] = ημερομηνία γέννησης
• [Επιθετο] = επίσης πεδίου του παραπάνω πίνακα
• Επιπλέον η φόρμα που περιέχει το κουμπί Εντολή12, 'κάθεται' στον πίνακα TABLE.

Νάχετε όλοι σας μια καλή ήμέρα...
Με εκτίμηση / Νίκος Δ