je n'arrive pas à aller sur le dernier enregistrement, je vais a l'avant dernier ou souvent il est au premier enregistrement, j'utulise une Base de donnée acces.
voici le code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 AdoFacture.Recordset.MoveLast 'Aller au Dernier Enregistrement AdoFacture.Refresh cDernierNumero = Trim(Right(AdoFacture.Recordset![Code_Facture], 4)) nNouveauNumero = Val(cDernierNumero) + 1 cNouveauNumero = Trim(Str(nNouveauNumero)) cNumeroFacture = "FAC" & Left("0000", 4 - Len(cNouveauNumero)) & cNouveauNumero
Partager