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

[kosta]

Καλησπέρα σε όλους. Ξεκίνησα να φτιάξω μια βάση ώστε να μπορώ να περνάω τις άδειες του προσωπικού μου. Χρησιμοποίησα από τον Τάσο και την απίστευτη εφαρμογή Διαχείριση αδειών και την τροποποίησα στις δικές μου ανάγκες. Αυτό που ζητάω είναι να βλέπω πόσες άδειες έχουν απομείνει στον καθένα στην φόρμα tbAbsencesΠΡΟΣΩΠΙΚΟ στο πεδίο ΥΠΟΛ ΗΜΕΡ 1/3 άλλα και να ενημερώνεται ταυτόχρονα το πεδίο του πίνακα ΠΡΟΣΩΠΙΚΟ ΥΠΟΛ ΗΜΕΡ 1/3.δεν ξέρω αν την έχω στήσει σωστά όμως και επειδή δεν έχω αρχίσει να περνάω δεδομένα ακόμα οποιαδήποτε αλλαγή στην σχεδίαση δεν θα με πείραζε προκειμένου να επιτευχθεί το ζητούμενο.

[kosta]

Καλησπέρα σε όλο το Forum. Προσπάθησα να δουλέψω λίγο μόνος μου το πρόβλημα που είχα ζητήσει πριν λίγες μέρες αλλά οι γνώσεις μου δεν με βοηθάνε να το τελειώσω,έχω κολήσει γι'αυτό και ζητάω την βοήθεια σας ,δεν ξέρω πως οι τιμές του πεδίου ΜΕΡΕΣ ΠΟΥ ΑΠΟΜΕΝΟΥΝ της φόρμας tbAbsencesΠΡΟΣΩΠΙΚΟ να εγγράφονται και στο πεδίο ΥΠΟΛ ΗΜΕΡ 1/3 του πίνακα ΠΡΟΣΩΠΙΚΟ δηλαδή να γίνεται ενα update των τιμών του συγκεκριμένου πεδίου της φόρμας και στον πίνακα για περαιτέρω χρήση ευχαριστώ πολύ.

[kapetang]

Καλησπέρα

Κώστα σχετικά με τη σχεδίαση της ΒΔ:

1)Τα ονόματα που χρησιμοποιείς περιέχουν κενά κλάσματα και γενικά δε βοηθούν στο χειρισμό τους με κώδικα.

2) Στον πίνακα tbAbsences δεν όρισες πρωτεύον κλειδί.

Το υπόλοιπο της άδειας, για κάθε εργαζόμενο, θα μπορούσε να δίνεται από ένα ερώτημα και συνεπώς δε χρειάζεται αποθήκευση σε πίνακα.

Αν παρ’ όλα αυτά θέλεις να το αποθηκεύεις δοκίμασε τα εξής:

1)Στην προέλευση του πλαισίου κειμένου total της δευτερεύουσας φόρμας βάλε τον τύπο: =Nz(Sum([NettoAbsenceDays]);0)

2) Στα συμβάντα AfterDelConfirm και AfterUpdate της δευτερεύουσας φόρμας, βάλε τον παρακάτω κώδικα.

Private Sub Form_AfterDelConfirm(Status As Integer)
    Me.Refresh
    UpdateYpoloipo Me
End Sub

Private Sub Form_AfterUpdate()
    UpdateYpoloipo Me
End Sub

3) Πρόσθεσε στον κώδικα της δευτερεύουσας φόρμας και την παρακάτω διαδικασία

Private Sub UpdateYpoloipo(frm As Form)
    frm.Parent.Refresh
    frm.Parent.[ΥΠΟΛ ΗΜΕΡ 1/3] = frm.Parent.[Κείμενο24]
    frm.Parent.Dirty = False
End Sub

Ελπίζω να καλύφτηκες.

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

[kosta]

Γιώργο μόλις γύρισα και είδα την απάντηση σου και σ' ευχαριστώ πάρα πολύ έκανα ότι μου γράφεις ελπίζω, όμως ενώ δουλεύει μια χαρά και είναι πράγματι αυτό που θέλω όταν αλλάζω ημερομηνίες ενημερώνεται ο πίνακας κανονικά όμως το πεδίο της φόρμας ΜΕΡΕΣ ΠΟΥ ΑΠΟΜΕΝΟΥΝ εξαρτάται και από το πεδίο ΔΙΚΑΙΟΥΜΕΝΕΣ και ΥΠΟΛ ΠΕΡΣΙΝΑ που όταν αλλάζω τις τιμές ανάλογα με τον υπάλληλο και τα χρόνια του δεν ενημερώνεται ανεβαζω την βάση για να δεις αν κάνω κάτι λάθος ;

[kapetang]

Καλημέρα

Κώστα, έχεις δίκιο.

Νομίζω ότι το πρόβλημα θα λυθεί, αν στην κύρια φόρμα προσθέσεις, στο συμβάν AfrerUpdate των πεδίων ΔΙΚΑΙΟΥΜΕΝΕΣ και ΥΠΟΛ_ΠΕΡΣΙΝΑ, τον παρακάτω κώδικα:

Private Sub ΔΙΚΑΙΟΥΜΕΝΕΣ_AfterUpdate()
    UdateYpoloipo
End Sub

Private Sub ΥΠΟΛ_ΠΕΡΣΙΝΑ_AfterUpdate()
    UdateYpoloipo
End Sub

και ακολούθως προσθέσεις και τη διαδικασία:

Public Sub UdateYpoloipo()
    Me.Κείμενο24.Requery
    Me.[ΥΠΟΛ ΗΜΕΡ 1/3] = Me.[Κείμενο24]
End Sub

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

[kosta]

Γιώργο,έχεις απόλυτο δίκιο και πάλι σ'ευχαριστώ πολύ.