[pdhmos]

Καλημερα σε ολους
Αντωνη συγνωμη αλλα σε απαντησα γρηγορα και κατι μαλλων δεν εκανα (χαζομαρα) και δεν ανεβηκε η απαντηση.
Εγω εχω κανει το εξης
Κατ αρχας ολα στην φορμα ειναι αδεσμευτα και εχω βαλει ενα Μ στην αρχη.
Δηλαδη το ΚΩΔΙΚΟΣ το εκανα ΜΚΩΔΙΚΟΣ
το ΤΥΠΟΣ το ονοματησα ΜΤΥΠΟΣ κλπ
Με την επιλογη νεας εγγραφης
DoCmd.GoToRecord , , acLast ' παει στο τελος του πινακα
ΚΩΔΙΚΟΣ = ΜΚΩΔΙΚΟΣ + 17 'Σε μια μεταβλητη κανει τον κωδικο μεγαλυτερο κατα 17

Και μετα οταν ερθει η ωρα την αποθηκευσης κανει τα παρακατω με λιγα λογια (ανεβαζω τον κωδικα που εχω
δες τον και πες μου εαν εαν οτι θελεις.
ΔΗΜΟΣ

DoCmd.GoToRecord , , acNewRec
Me.ΚΩΔΙΚΟΣ = ΜΚΩΔΙΚΟΣ
Me.ΤΙΜΗΧ = ΜΤΙΜΗΧ
Me.Refresh

Σου εστειλα και πμ .