[pdhmos]

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

Ανοιγει τον πινακα με τα παραστατικα και περνει το τελευταιο αριθμο και τον κανει + 1
Dim RS1 As Recordset
Set RS1 = New ADODB.Recordset
RS1.CursorType = adOpenKeyset
RS1.LockType = adLockOptimistic
RS1.Open "PINAKAS_PARASTATIKVN", CurrentProject.Connection
ARIUMOS_TIMOLOGIOY = (RS1.Fields(1).Value) + 1
RS1.Close
Set RS1 = Nothing

Μολις (!) τυπωθει το παραστατικο ξανα ανοιγει τον πινακα και αλλαζει τον αριθμο με τον καινουργιο.

Dim RS1 As Recordset
Set RS1 = New ADODB.Recordset
RS1.CursorType = adOpenKeyset
RS1.LockType = adLockOptimistic
RS1.Open "PINAKAS_PARASTATIKVN", CurrentProject.Connection
RS1.Fields(1).Value = ARIUMOS_TIMOLOGIOY
RS1.Update
RS1.Close
Set RS1 = Nothing