[kapetang]

Ανθή, Καλησπέρα

Για να μπαίνει αυτόματα στο τελευταίο τμήμα του πρωτεύοντος κλειδιού η ημερομηνία καταχώρησης, δοκίμασε το εξής:

1. Στην προβολή σχεδίασης του πίνακα θέσε προεπιλεγμένη τιμή (Default Value) την παράσταση:
"/" & Format(Date();"yymmdd")

2. Στη φόρμα καταχώρησης των στοιχείων πρόσθεσε τον κώδικα:

Private Sub ID_GotFocus()
    Me.ID.SelStart = 0
End Sub

Το ID, θα πρέπει να αντικατασταθεί με το πραγματικό όνομα του πλαισίου κειμένου.

Η ημερομηνία καταχώρησης λαμβάνεται από το χρονόμετρο του PC

Για βιβλία VBA έχει ξαναγίνει συζήτηση στο φόρουμ και παλιότερα. Δες το σύνδεσμο.

http://www.ms-office.gr/forum/visual...ions-help.html

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