[ασχετος]

Την καλημέρα μου στο forum.

Βαγγέλη, μου γράφεις τα κάτωθι.

1)Ο κανόνας είναι λίγο περίπλοκο για να το αποτυπώσουμε σε κώδικα πιστεύω.
Γενικά τα διπλώματα πλεον λήγουν ανά 25 χρόνια και αν είναι επαγγελματικό είναι ανά 5 χρόνια. Αλλά υπάρχουν πάντα και κάποιες εξαιρέσεις.
Εγώ απλά θέλω να το επιλέγω εγώ ανάλογα την κάθε περίπτωση.
2)Είδα στον κώδικα αυτό που έχεις γράψει αλλά πατώντας το κουμπί εκτύπωση δεν κάνει κάτι.
3)Έχεις δίκιο μπορείς να το δεις στη φόρμα μαθημάτων που υπάρχει.

Για το 1
Στη φόρμα Διαχείριση Διπλωμάτων και δίπλα στο πεδίο [ημερομηνία έκδοσης διπλώματος]
δημιούργησε ένα πεδίο combo μην το συνδέσεις με πίνακα αλλά βάλε στον μάγο τις τιμές ( με την σειρά) κενό,1,2,3,15 και στις ιδιότητες του πεδίου στο name βάλε cbo_end_dpl
Μόλις το δημιουργήσεις και το ονοματίσεις, πήγαινε στις ιδιότητες και στο tab συμβάντα και στο συμβάν AfterUpdate γράψε τον παρακάτω κώδικα.

    If IsNull(Me.Ημερομηνία_λήξης_διπλώματος) Then
       Me.cbo_end_dpl = ""
       Exit Sub
    End If
    
    If IsNull(Me.cbo_end_dpl) Or Me.cbo_end_dpl = "" Or IsNull(Me.Ημερομηνία_λήξης_διπλώματος) Then
       Exit Sub
    Else
        Me.Ημερομηνία_λήξης_διπλώματος = DateAdd("yyyy", Me.cbo_end_dpl, Me.Ημερομηνία_λήξης_διπλώματος)
    End If

Αν το πεδίο [Ημερομηνία_λήξης_διπλώματο ς] είναι κενό (πργαγματικά κενό και όχι να έχει spaces) τότε τ'οτε το πεδίο [cbo_end_dpl] ότι τιμή και να του δώσεις θα πάρει τιμή null

Αν το πεδίο [cbo_end_dpl] είναι κενό τότε δεν θα γίνει τίποτα αλλιώς θα προσθέση στην ημερομηνία την επιλογή σου.

Για το 2
αυτήν την ώρα που σου γράφω έχω την βάση που έστειλα και τρέχει μια χαρά.
Πρόσεξε αν τυχόν και μεταφέρεις τον κώδικα στα ονόματα των πεδίων.

Για το 3
φτιάξτε την φόρμα και στείλε δείγμα.


ΣΟΥ ΣΤΕΛΝΩ ΔΕΙΓΜΑ

Σημείωση:
[B]Ήμαρτον με τα ελληνικά ονόματα στα πεδία και μάλιστα με κενά... ΗΜΑΡΤΟΝ[/B
]