freestuff.gr αρχική σελίδα
 FAQFAQ    ΑναζήτησηΑναζήτηση   Λίστα ΜελώνΛίστα Μελών   Ομάδες ΜελώνΟμάδες Μελών   <b>Εγγραφή Μέλους</b>Εγγραφή Μέλους 
 ΠροφίλΠροφίλ   Επιλογές μέλους Επιλογές   Τα bookmarks μου Τα bookmarks μου   Προσωπικά μηνύματαΠροσωπικά μηνύματα 
  διαφήμιση  

Καλώς ήρθατε στο forum μας! Για να συμμετάσχετε στις συζητήσεις θα πρέπει να είσαστε μέλος. Γίνετε μέλος τώρα!.

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


 Forum index » Δημιουργία Web Sites, Γραφικών & Προγραμματισμός » SQL και SQL Servers (RDBMS) » MS Access
Moderators:  Super-Moderators, WebDev Moderators
Εισαγωγή νέου Θέματος   Απάντηση στο Θέμα Σελίδα 1 από 1 [4 Μηνύματα]      Bookmarks Tags: Μήνυμα Mark the topic unread :: Προηγούμενο θέμα :: Επόμενο θέμα
ΑποστολέαςΜήνυμα
sakis297


Μέλος από: 09 Μαη 2007
Μηνύματα: 20

View users profile Send email to user
ΜήνυμαΣτις: 05 Μαρ 2008 10:19    Θέμα: Alert.Προειδοποιητικό μήνυμα μετά το πέρας μιας ημερομηνίας.
Περιγραφή θέματος: Alert.Προειδοποιητικό μήνυμα μετά το πέρας μιας ημερομηνίας.
Απάντηση με παράθεση  Mark this post and the followings unread

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

Μέλος από: 16 Σεπ 2005
Μηνύματα: 256+

View users profile Visit posters website
blog deviantART facebook linkedin 
ΜήνυμαΣτις: 05 Μαρ 2008 22:17    Θέμα: Απάντηση με παράθεση  Mark this post and the followings unread

Φτιάχνεις μια νέα λειτουργική μονάδα βάζεις τον παρακάτω κώδικα, και την αποθηκεύεις με ότι όνομα θέλεις
κώδικας:
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


Μέλος από: 09 Μαη 2007
Μηνύματα: 20

View users profile Send email to user
ΜήνυμαΣτις: 06 Μαρ 2008 11:03    Θέμα: Απάντηση με παράθεση  Mark this post and the followings unread

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


Μέλος από: 19 Μαρ 2013
Μηνύματα: 2

View users profile
ΜήνυμαΣτις: 19 Μαρ 2013 12:27    Θέμα: Απάντηση με παράθεση  Mark this post and the followings unread

Μήπως θα μπορούσες να γίνεις λίγο πιο συγκεκριμένος? Που φτιάχνω την λειτουργική μονάδα?? τι query χρειάζομαι για να δουλεψει κανονικα..?τέλος, με μια μακροεντολή πως θα το έκανα να δουλέψει κατευθείαν?
Εμφάνιση Μηνυμάτων:   
Εισαγωγή νέου Θέματος   Απάντηση στο Θέμα Σελίδα 1 από 1 [4 Μηνύματα] Mark the topic unread :: Προηγούμενο θέμα :: Επόμενο θέμα
 Forum index » Δημιουργία Web Sites, Γραφικών & Προγραμματισμός » SQL και SQL Servers (RDBMS) » MS Access
Τώρα είναι 07 Δεκ 2016 16:21 | All times are UTC + 2


Email This Page to Someone! add to Favorites

     Powered by p h p B B © 2001,2005 p h p B B Group
Για άμεση επικοινωνία με τον διαχειριστή του freestuff.gr στο email: freestuff.gr(παπάκι)gmail.com


Copyright © 1999-2013 Freestuff.gr All Rights Reserved  
Version Aegean, designed by N. Tsaganos