Bienvenue! Identification Créer un nouveau profil

Recherche avancée

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

05/11/13 11:02
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.smiling smiley

@+

Guy FALESSE
SujetAuteurEnvoyé le

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

Guy Falesse04/11/13 17:00

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

Guy Falesse05/11/13 11:02

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

Hervé Inisan06/11/13 12:35

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

Guy Falesse06/11/13 13:57

Seuls les utilisateurs enregistrés peuvent poster des messages dans ce forum.

Cliquez ici pour vous connecter