Forum

Forum (https://www.ms-office.gr/forum/)
-   Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)
-   -   Υπενθυμίσεις! (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/511-ypenthymiseis.html)

stavros2244 24-03-10 08:14
Υπενθυμίσεις!
 
Ξέρει κανείς εάν υπάρχει κάποιο πρόγραμμα ως birthday reminder που συνεργάζεται με την ms access και τραβάει την ημερομηνία γενεθλίων από πίνακα?

Ευχαριστώ

Tasos 24-03-10 10:31
Καλημέρα Σταύρο και καλωσόρισες στο φόρουμ!
Birthday Reminder, θα βρεις στο Internet.
Tο πόσο είναι εξυπηρετικά τα προγράμματα αυτά δεν μπορώ να γνωρίζω αφού εγώ προσωπικά χρησιμοποιώ Outlook γι αυτή τη δουλειά.

Μπορείς να χρησιμοποιήσεις είτε με την ίδια την εφαρμογή Access είτε με το Microsoft Outlook να παρακολουθείς επετείους γενεθλίων (και όχι μόνο).

Το πως θα το κάνεις εξαρτάται από την ενέργεια που θα ακολουθήσει την ημέρα της επαιτίου.

Έστω ότι ο Γιώργος έχει γενέθλια σε 7 μέρες από σήμερα.

  • Από πότε και για πόσο διάστημα θα πρέπει να ειδοποιείσαι;
  • Τι είδους ειδοποίηση θα είναι αυτή;
  • Τι θα γίνει αν ο χρήστης επικυρώσει την ειδοποίηση;
  • Τι θα γίνει αν ο χρήστης αγνοήσει ή δεν επικυρώσει την ειδοποίηση;
  • Η λίστα Γενεθλίων στην Access, είναι fix. ή ανανεώνεται συνεχώς;
Αν θελήσεις να χρησιμοποιήσεις πρόγραμμα του Microsoft Office ως Birthday Reminder,
τότε λάβε την παραπάνω λίστα υπόψη σου, ξεκίνησε την εφαρμογή και για οποιαδήποτε βοήθεια εδώ είμαστε.
Καλή αρχή!

Φιλικά

Τάσος

mdragon 25-03-10 01:07
1 Συνημμένο(α)
Σταύρο,
Δεν ξέρω τι μπορείς να κάνεις με την υπενθύμηση, σου στέλνω όμως ένα αρχειο που αναγνωρίζει τον μήνα του συστήματός σου και σου δείχνει ποιός έχει γενέθλια τον συγκεκριμένο μήνα.


Φιλικά,

Μάρω

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

Κώδικας:

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.
Νάχετε όλοι σας μια καλή ήμέρα...
Με εκτίμηση / Νίκος Δ

stavros2244 25-03-10 19:21
Πολύ καλός ο κώδικας!Βολεύει πάρα πολύ και είναι σύντομος και λειτουργικός!

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

eleni 05-12-10 16:48
Καλησπέρα παιδιά. Δοκίμασα τον κώδικα, αντικαθιστώντας τα ονοματα στα πεδία και τον πίνακα και μου δινει πρόβλημα στη γραμμή Set rs = CodeDb.OpenRecordset(strQuery). Τι κάνω λάθος;

Επίσης, μπορεί να ανοίγει αυτόματα με το άνοιγμα της φόρμας, ανά μέρα; Τι ρύθμιση πρέπει να κάνω; Ευχαριστώ

Meteora 05-12-10 22:11
Καλησπέρα...
Ελένη, "φέρε" σε περιβάλλον σχεδίασης τον πίνακα και αντέγραψε το όνομα του πεδίου [Γεννηση] (ή όπως το έχεις ονομάσει) και κάνε copy-paste στον κώδικα. Μετά κάνε το ίδιο για το πεδίο [Επιθετο]...
Για το δεύτερο ερώτημά σου, δες αν σε καλύπτει ο κώδικας (στο συμβάν με τη φόρτωση, της φόρμας):
Κώδικας:
Private Sub Form_Load()
    Εντολή12_click
End Sub
Πρόσεχε ! Το Εντολή12_click ειναι το όνομα της ρουτίνας, η οποία περιέχει τον κώδικα...

Αυτά αγαπητή μου. Ελπίζω να έχεις τη λύση που θέλεις.
Με εκτίμηση
Νίκος Δ.

editolis 06-12-10 00:35
1 Συνημμένο(α)
Σου επισυναπτω μια ΒΔ για υπενθυμιση γενεθλιων στην οποια θα μπορουσες να βασιστεις ωστε να φτιαξεις οπως θελεις την δικη σου εφαρμογη.

Καλη συνεχεια...

kapetang 06-12-10 08:49
Καλημέρα σ’ όλους τους φίλους

Ελένη η γραμμή κώδικα: Set rs = CodeDb.OpenRecordset(strQuery), θα πρέπει να αντικατασταθεί από την: Set rs = CurrentDb.OpenRecordset(strQuery).

Φιλικά/Γιώργος

eleni 06-12-10 11:38
Καλημέρα σε όλους.
Γιώργο αντικατέστησα και μου εμφανίζει πάλι σφάλμα στην ίδια γραμμη.
Τόλη, θα την κοιτάξω το βράδυ, ευχαριστώ θερμά.
Νίκο, το έκανα αντιγραφή αλλά πάλι βγάζει σφάλμα. Το 2ο μέρος είναι αυτό που θέλω. Ευχαριστώ.
Αν έχετε καμιά ιδέα για το τι φταίει μου λέτε. Ευχαριστώ κι πάλι για τη βοήθεια.

eleni 06-12-10 11:51
Δεν ξέρω αν βοηθήσει στο σφάλμα δίνει για τη συγκεκριμένη γραμμή type mismatch

Meteora 06-12-10 14:08
1 Συνημμένο(α)
Καλημέρα.
Ελένη, δες το επισυναπτόμενο αρχείο.Κάνε τις όποιες συγκρίσεις - διορθώσεις.
Επανέρχεσαι αν χρειαστεί...
Νίκος Δ.

kapetang 06-12-10 16:16
Φίλε μου Νίκο, μιλάμε για γενέθλια, αλλά έχουμε και τις ονομαστικές γιορτές.
ΣΕ !!! εύχομαι να είσαι καλά και να συνεχίσεις να προσφέρεις στο φόρουμ.
Γιώργος

kapetang 06-12-10 16:39
Καλησπέρα

Ελένη με το αρχείο που ανέβασε ο Νίκος πιστεύω ότι θα εντοπίσεις το λάθος.
Το πρόβλημα βρίσκεται στην πρόταση:
strQuery = "SELECT * FROM TABLE WHERE Month([Γεννηση])=Month(Date())"
Θα πρέπει να ελέγξεις προσεκτικά τις αντικαταστάσεις των TABLE και Γεννηση (είναι πεδίο ημερομηνίας) που έκανες , αν έγραψες σωστά τη συνάρτηση Month, που δίνει το μήνα μιας ημερομηνίας, τη συνάρτηση Date(), που δίνει την τρέχουσα ημερομηνία και τις παρενθέσεις.

Φιλικά/Γιώργος.

kapetang 07-12-10 18:27
1 Συνημμένο(α)
Καλησπέρα στην παρέα

Ελένη, Νίκο και Τόλη κοιτάζοντας τα θέματα του φόρουμ ξαναείδα τα μηνύματα τα σχετικά με τον προσδιορισμό των γενεθλίων.
Φίλε Τόλη κατά τη γνώμη μου η λύση σου, την οποία την υιοθέτησα και την πρότεινα στην Ελένη, παρουσιάζει προβλήματα.
Γενέθλια έχουμε κάθε χρόνο το μήνα και τη μέρα που ισούνται με τα αντίστοιχα της ημερομηνίας γέννησής μας.
Η λύση που προτείναμε δίνει σωστά αποτελέσματα μόνο για μωρά :icon_baby:(άτομο που γεννιούνται το τρέχον έτος ).
Στη βάση δεδομένων που επισυνάπτω έκανα τη σχετική διόρθωση, για να γιορτάσουν γενέθλια και οι μεγαλύεροι και να μη τους αδικήσουμε :lolol:.

Φιλικά/Γιώργος

editolis 07-12-10 19:19
Φιλε Γιωργο,

Νομιζω οτι προτρεχεις λιγο.

Ολοι και ολες οι αποψεις ειναι σεβαστες σε αυτο το φορουμ.

Πρεπει να δουμε τελικα τι ακριβως θελει να κανει η Ελενη και οχι να προτρεχουμε δινοντας λυσεις σε "ψευτο-εφαρμογες" που εχουμε φτιαξει "στο ποδι" και που δεν αφορουν κανεναν εκτος απο την Ελενη στην παρουσα φαση.

Εν αναμονη λοιπον.

Φιλικα..

ΥΓ. Και εαν θελει μονο υπενθυμισεις? Οπως λεει και το θρεντ...

kapetang 07-12-10 23:43
1 Συνημμένο(α)
Καλό βράδυ σ’ όλους

Στο προηγούμενο μήνυμά μου επισυνάπτεται ένα δείγμα ΒΔ με ένα ερώτημα, το οποίο προσδιορίζει αυτούς που έχουν γενέθλια την τρέχουσα ημερομηνία και τις επόμενες 10 μέρες.
Στα κριτήρια του ερωτήματος, δεν έλαβα υπόψη μου την περίπτωση που η προσθήκη των 10 ημερών, στην τρέχουσα ημερομηνία, προκαλεί αλλαγή μήνα, γι’ αυτό και την τροποποίησα.
Την τροποποιημένη ΒΔ, εκτός από αυτό το μήνυμα, την επισύναψα και στο προηγούμενο .

Φιλικά/Γιώργος
ΥΓ Το πρόβλημα αποδείχθηκε "ζόρικο"


Η ώρα είναι 07:35.

Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2