Re: Ajouter le chiffre de l'année à un n° de facture

Bonjour,

Suite à mon précédent message concernant les n° de facture, voici la fonction...qui fonctionne:
Private Sub Commande13_Click()
Dim rst As Recordset, maBD As Database, Lannée As String
Lannée = DatePart("yyyy", [Date facture])
MsgBox "" & Lannée
Set maBD = CurrentDb
Set rst = maBD.OpenRecordset("Facturation", dbOpenDynaset)
With rst
Do Until rst.EOF
.Edit
!NFact_an = Lannée & "/" & !Numfact
.Update
rst.MoveNext
Loop
End With
rst.Close
Set maBD = Nothing
Set rst = Nothing
End Sub

Il ne me reste plus qu'à copier toutes tables facturation dans une table commune.
Dis-moi si je me trompe dans ma démarche, Hervé, si tu veux bien.

@+

Guy FALESSE