Ανανέωση ιστοσελίδας

[NIC]

Καλησπέρα. Μπράβο για την συνέχεια της καλής σας προσπάθειας. Έχω κάνει μια ερασιτεχνική βάση σε Access 2007 Ελληνικά για διαχείριση προσωπικού. Στην φόρμα καταχώρισης του προγράμματος για κάθε εργαζόμενο έβαλα σε VB έναν περιορισμό μετά από ενημέρωση στο πεδίο ΥΠΑΛΛΗΛΟΣ. Δηλαδή μετά την ενημέρωση του πεδίου υπάλληλος τρέχει ο παρακάτω περιορισμός

Private Sub ΥΠΑΛΛΗΛΟΣ. _AfterUpdate()
If ΥΠΑΛΛΗΛΟΣ. = "ΝΙΚΟΛΑΟΥ" Then ΗΜΕΡΑ ΚΟΛΛΗΜΑΤΟΣ = " Ο ΥΠΑΛΛΗΛΟΣ ΕΧΕΙ ΚΟΛΛΗΜΑ ΕΡΓΑΣΙΑΣ ΤΗΝ ΜΕΡΑ ΑΥΤΗ"

End Sub


Αυτό όμως απαιτεί κάθε φορά που υπάρχει ένα κόλλημα από υπάλληλο να πηγαίνω στον κώδικα και να γράφω εκ’ νέου το επιπλέον κόλλημα. Υπάρχει τρόπος να καταχωρώ το κόλλημα σε ένα πλαίσιο κειμένου και να καταχωρείτε μονό του. Έχω μόνο έναν πίνακα στην βάση με όνομα υπάλληλοι μήπως θα πρέπει να φτιάξω και έναν άλλων για τα κολλήματα;
ΕΥΧΑΡΙΣΤΩ

[Meteora]

Καλησπέρα

Φτιάξε ένα κουμπί (πχ εντολή3) στη φόρμα σου που να κάνει κάτι σαν αυτό που έχεις ήδη αναφέρει

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

If Not IsNull(Κείμενο1) Then
Κείμενο1 = Null
Exit Sub
Else
Κείμενο1 = "Ο υπάλληλος θα απουσιάσει"
End If

End sub


Με το παραπάνω κώδικα σβήνεις -αν υπάρχει κάτι γραμμένο- στο πλαίσιο κειμένου (Κείμενο1) και φυσικά γράφεις τη φράση 'Ο ύπάλληλος απουσιάζει', όταν το πλαίσιο κειμένου ειναι άδειο.


Μπορείς και με αρκετούς άλλους τρόπους πχ1 με σύνθετο πλαίσιο, πχ2 με το που 'μπαίνεις' σε κάποιο πεδίο ή πλαίσιο κειμένου να σου γεμίσει ένα πεδίο με κάποιο κείμενο ...

...αυτά απο μένα Νικ
Φιλικά Νίκος

Σημείωση: Τα παραπάνω έχουν νόημα υπο την προυπόθεση να αφορούν VBA Acces