[ Φόρμες ] default value

[teotrip603]

Καλησπέρα σας και καλή χρονιά.

Έχω ένα πίνακα ο οποίος έχει δυο πεδία ως ημερομηνία. Επειδή απο τις ιδιότητες του πεδίου δεν μπορώ να επιλέξω ως προεπιλεγμένη τιμή την ημερομηνία απο το πρώτο, προσπαθώ να το κάνω απο την φόρμα του πίνακα. Δλδ θέλω με το που εισάγω την ημερομηνία στο πρώτο πεδίο θέλω να εμφανιστεί στο δεύτερο ως προεπιλεγμένη τιμή. Από ότι φαντάζομαι σίγουρα γίνεται με VBA αλλά δυστυχώς δεν την γνωρίζω, τουλάχιστον να τη γράφω, https://www.ms-office.gr/forum/images/smilies/pchit.gif να την διαβάσω κάτι γίνεται.

Σας ευχαριστώ.

[kapetang]

Καλή χρονιά.

Δοκίμασε αν σε καλύπτει ο παρακάτω κώδικας:

Private Sub fDate1_AfterUpdate()
    If Nz(Me.[fDate2], 0) = 0 Then Me.[fDate2] = Me.[fDate1]
End Sub

Στον κώδικα υπέθεσα ότι το 1ο πεδίο ημερομηνίας ονομάζεται fDate1 και το 2ο fDate2.

Ο κώδικας επισυνάπτεται στο συμβάν: "Μετά από ενημέρωση" (AfterUpdate) του πεδίου fDate1 της φόρμας.

Είναι πολύ απλός (μία γραμμή) και πιστεύω θα μπορέσεις να τον προσαρμόσεις στα δικά σου δεδομένα.

[teotrip603]

Καλησπέρα Γιώργο και σε ευχαριστώ, ναι δουλεύει αλλά παρατήρησα με το που ξεκινάω καινούρια εγγραφή βγάζει #σφαλμα στο πεδιο2, μένει εκεί μέχρι να εισάγω την ημερομηνία. Μπορείς να μου πεις γιατί οι δικός μου κώδικας " Me.[field2].defaultvalue=me.[field1] " και το είχα βάλει και εγώ στην μετά την ενημέρωση του πεδίου field1 έβγαζε στην καινούρια πια εγγραφή στο πεδίο field2 και ΜΟΝΟ στην επόμενη εγγραφή , δλδ όχι με το που εισήγαγα δεδομένα στο πρώτο να δείξει κάτι στο άλλο πεδίο, την ημερομηνία 30/12/1899 που απο ότι διάβασα στο ίντερνετ έχει να κάνει με το ότι το πρώτο πεδίο δεν το καταλαβαίνει ως δεδομένα ημερομηνίας και το επιστρέφει ως 01/01/1900 -1.

Σε ευχαριστώ και πάλι.

[kapetang]

Τον κώδικα τον δοκίμασα στη συνημμένη ΒΔ.

Στη βάση αυτή όταν δημιουργώ νέα εγγραφή δεν προκαλείται σφάλμα.

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

Στα υπόλοιπα δεν μπορώ να βοηθήσω.

[teotrip603]

Καλησπέρα Γιώργο.

Και πάλι σε ευχαριστώ. Δοκίμασα και εγώ τις δικές σου ρυθμίσεις στα πεδία αλλά και πάλι τίποτα...#Σφάλμα, μάλλον προφανώς επειδή υπάρχουν και άλλοι διακόπτες στην φόρμα. Δεν πειράζει τουλάχιστον η ημερομηνία πήγε και στο δεύτερο πεδίο, αυτό που ήθελα. Θεωρώ το θέμα λήξαν.