Bonjour à tous,


Je cherche à switcher des devis en factures.
Une aide m'avait été donnée quelques temps au préalable mais aujourd'hui j'ai pas mal modifié mon appli et je rencontre des problèmes pour adapter l'aide qui m'avait été donnée... J'ai pas mal cherché, essayé, je n'arrive à rien.

Voici mon code qui me permet via un bouton de transférer mes informations devis vers factures:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Sub BtnCreerFacture_Click()
Dim strSQL As String
Dim NumFact As Long
Dim rstsform As DAO.Recordset
'Rajouter dans la table facture le numéro de client et de devis.
strSQL = "INSERT INTO T_Factures ( ID_Devis_FK_Fact, ID_Client ) SELECT " & Me.ID_Devis & "," & Me.ID_Client & ";"
DoCmd.RunSQL strSQL ' Exécuter la requête
'Récupérer le numéro de la facture
NumFact = DMax("[ID_Facture]", "[T_Factures]")
'Parcourir le sous-formulaire
Set rstsform = Me.SF_Devis_Details.Form.RecordsetClone
With rstsform
    .MoveFirst
    While Not .EOF
    'Insérer les détails du devis dans la facture NumFact
    strSQL = "INSERT INTO T_Factures_Details " _
            & "( ID_Facture, ID_Prod_FK_Fact, Designation, Quantite, Prix_Unitaire," _
            & "Remise, TVA )" _
            & " SELECT " & NumFact & "," & rstsform![ID_Prod_FK_Devis] & ",'" & rstsform![Designation] & "'," _
            & Replace(rstsform![Quantite], ",", ".") & "," & Replace(rstsform![Prix_Unitaire], ",", ".") & "," _
            & Replace(rstsform![Remise], ",", ".") & "," & Replace(rstsform![TVA], ",", ".") & ";"
'Debug.Print strSQL
    DoCmd.RunSQL strSQL
    .MoveNext
    Wend
End With
Set rstsform = Nothing
'Ouvrir le formulaire de facturation sur le client
DoCmd.OpenForm "F_Clients_Factures", , , "[ID_Client] =" & Me.ID_Client
Lorsque je clique sur mon bouton l'erreur est: "erreur de compilation: Membre de méthode ou de donnée introuvable" .ID_Devis est surligné en bleu dans le code à sa première apparition...
Je ne comprends pas pourquoi...
Voici également un screen de mes relations (donc on peut également voir le nom de mes champs...).
Nom : Sans titre.png Affichages : 169 Taille : 107,3 Ko

Merci d'avance à celui qui me sortira de la.
A bientôt.