[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

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

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