[pdhmos]

Αντωνη με αυτοματη αριθμιση δεν γινεται απο οτι γνωριζω.
Θα προσθεσεις ενα νεο πεδιο και οταν ξεκινας ενα νεο τιμολογιο / εγγραφη θα πας στο τελος του πινακα θα περνεις την τελευταια τιμη θα την κανεις + 1 και θα την αποθηκευεις . Σου στελνω ενα παραδειγμα απο την δικια μου εφαρμογη.

Dim RS As Recordset ' Ετσι περνω την νεα τιμη για να τυπωσω το παραστατικο
Set RS = New ADODB.Recordset
RS.CursorType = adOpenKeyset
RS.LockType = adLockOptimistic
RS.Open "ΠΑΡΑΣΤΑΤΙΚΑ", CurrentProject.Connection ' ΠΑΡΑΣΤΑΤΙΚΑ = ΠΙΝΑΚΑΣ ΠΑΡΑΣΤΑΤΙΚΩΝ
Me.ΜΔΕΛΤΙΟΕΠΙΣΚΕΥΗΣ = (RS.Fields(9).Value) + 1 ' Κανει το δελτιο (που ειναι ενατο στην σειρα πιω πριν
RS.Close ' εχω αποδειξεις πωλησης παροχης κλπ) +1 παραπανω
Set RS = Nothing


Dim RS4 As Recordset ' Εδω μολις τυπωθει το παραστατικο βαζω την νεα τιμη
Set RS4 = New ADODB.Recordset
RS4.CursorType = adOpenKeyset
RS4.LockType = adLockOptimistic
RS4.Open "ΠΑΡΑΣΤΑΤΙΚΑ", CurrentProject.Connection
RS4.Fields(9).Value = Me.ΜΔΕΛΤΙΟΕΠΙΣΚΕΥΗΣ '(RS.Fields(9).Value) + 1 ΚΑΝΕΙ ΤΟ ΔΕΛΤΙΟ 1 ΠΑΡΑΠΑΝΩ
RS4.Update
RS4.Close

Αν και δεν ειναι η καλυτερη λυση εχεις την δυνατοπητα να αλλαξεις την τιμη ενος τιμολογιου πχ εαν δεν εκδοθει σωστα.
Περιμενω νεα σου