Alert.Προειδοποιητικό μήνυμα μετά το πέρας μιας ημερομηνίας.

[sakis297]

Γεια σας παιδιά!
Ας υποθέσουμε ότι έχω έναν πίνακα όπου καταχωρώ τα ποσά οφειλής προς εμένα και για κάθε ποσό έχω κι ένα πεδίο ημερομηνία το οποίο εκφράζει την προθεσμία αποπληρωμής του ποσού.
Πως γίνεται να μου βγαίνει αυτόματα ένα μήνυμα όταν η τρέχουσα ημερομηνία φτάσει 5 μέρες πριν την προθεσμία;
Φαντάζομαι ότι θα πρέπει να χρησιμοποιήσω κάποιο if και κάποια συνάρτηση msgbox.
Το πρόβλημα είναι ότι δε γνωρίζω vba και ότι δεν ξέρω σε ποιο συμβάν να βάλω τον κώδικα, ώτσε το μήνυμα να βγαίνει αυτόματα με το άνοιγμα της βάσης δεδομένων.
Μπορεί κανείς να βοηθήσει;
Ευχαριστώ!

[dva_dev]

Φτιάχνεις μια νέα λειτουργική μονάδα βάζεις τον παρακάτω κώδικα, και την αποθηκεύεις με ότι όνομα θέλεις

Κώδικας: Επιλογή όλων

Option Compare Database
Option Explicit

'Το query που φέρνει τις εγγραφές
Const strQuery As String = "SELECT * FROM mytable WHERE Now() Between (date1 - 5) And (date1)"

Public Function CheckDates()

    Dim rs As Recordset
    Dim strMessage As String
    
    Set rs = CodeDb.OpenRecordset(strQuery)
    Do While Not rs.EOF
        'Φτιάχνουμε ένα string με τις περιγραφές
        strMessage = strMessage & rs.Fields("descr").Value _
                                & vbCrLf
        rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing

    If Len(strMessage) > 0 Then
        MsgBox strMessage
    End If

End Function

Φτιάχνεις μια νέα μακροεντολή με όνομα "AutoExec" (για να τρέχει όταν ανοίγεις τη βάση) και βάζεις μια ενέργεια "Εκτέλεση κώδικα" και στο Ονομα συνάρτησης θα δώσεις το "CheckDates ()".

Το query άλλαξε το ώστε να φέρνει τα δικά σου πίνακα/πεδία όπως και στο "rs.Fields("descr").Value" βάζεις το πεδίο που θέλεις να διαβάσει για να φτιάξει το μήνυμα που θα εμφανίσει.

[sakis297]

Σε ευχαριστώ πολύ!!!

[dimitrakr]

Μήπως θα μπορούσες να γίνεις λίγο πιο συγκεκριμένος? Που φτιάχνω την λειτουργική μονάδα?? τι query χρειάζομαι για να δουλεψει κανονικα..?τέλος, με μια μακροεντολή πως θα το έκανα να δουλέψει κατευθείαν?