Nommer des fichiers d'un formulaire ACCESS

Fermé
elisa1991 Messages postés 1 Date d'inscription jeudi 12 février 2009 Statut Membre Dernière intervention 12 février 2009 - 12 févr. 2009 à 11:38
Bonjour,


J'utilise ACCESS pour éditer des factures aussi j'ai une base composée de plusieurs tables et requête (je ne suis pas experte!!)

Mon souci est le suivant :
J'ai créé un bouton dans le formulaire me permettant d'ouvrir les factures clients à éditer et faire apparaitre à chaque changement de client la fenêtre "enregistrer sous"

Cette programmation n'est pas très pratique car le nombre de clients à facturer augmente aussi je souhaiterai que dans le pop-up d'"enregistrer sous" en plus du nom de fichier il y ajoute l'entité à facturer. Mais là, je ne trouve malheureusement pas la solution.

Le champ à récupérer se trouve dans un table T00 de cette même base de données

Voici le code écrit

Private Sub Btn_impression_factures_Click()
'===========================================
Dim Enreg1, Cpt As Long
Set Enreg1 = CurrentDb.OpenRecordset("SELECT * FROM T00_Table_edition_facture")
Enreg1.MoveLast
Enreg1.MoveFirst

For Cpt = 1 To Enreg1.RecordCount
On Error Resume Next
DoCmd.Close acReport, "NewFacture_forfait_SAS_VF"
DoCmd.OpenReport "NewFacture_forfait_SAS_VF", acViewNormal, , "D_CFACTCLI = '" & Enreg1("D_CFACTCLI") & "'"
Enreg1.MoveNext
On Error GoTo 0
Next Cpt

Set Enreg1 = Nothing
End Sub

Je vous remercie par avance
Cordialement