Discussion :

[Defaultuser01]

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...).


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

[ClaudeLELOUP]

Bonjour,

Membre de méthode ou de donnée introuvable" .ID_Devis est surligné en bleu dans le code à sa première apparition...

C'est donc que le formulaire dans lequel se trouve le bouton BtnCreerFacture ne contient pas de contrôle qui porte le nom ID_Devis.

Vérifie l'orthographe du nom du contrôle auquel tu veux te référer.

[Defaultuser01]

Bonjour Claude merci pour ta réponse.

J'avais effectivement déduit que le contrôle ID_Devis devait être faux et pourtant dans mon formulaire, j'ai bien un ID_Devis (qui contient la valeur ID_Devis; mon contôle et le nom de mon contrôle ont le même nom).
Il semblerait que l'erreur soit hélas pour moi plus subtile que ça

[ClaudeLELOUP]

D'ici, pas d'idée.

Un échantillon de ta BdD en Access2000 ?

[Begon0]

bonjour

il ne faudrait pas plutôt utiliser Me!ID_Devis ?

[Defaultuser01]

Bonjour à vous deux.


Pour la conversion en version 2000 ça ca être dur dur pour moi, travaillant avec AC2013, je fais l'effort d'utiliser les fonctionnalités avancées (qui sont pour certaines clairement et uniquement des simplifications de ce qu'on pouvait déjà faire avec les autres versions, mais que je ne saurais justement pas mettre en place avec les anciennes versions).
Si je ne trouve aucune solution, je regarderais pour pouvoir reproduire les éléments nécessaire en version 2000.

Concernant le Me!, à ma connaissance, cela revient à Me. sauf qu'il est plus restrictif .Dans le doute j'ai essayé, mais cela ne change rien.