Problème requête ajout/select en VBA

Version imprimable

1 pièce(s) jointe(s)

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:

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...).
Pièce jointe 146713

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

23/05/2014, 04h03
ClaudeLELOUP

Bonjour,

Citation:

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.
23/05/2014, 11h28
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 :(
23/05/2014, 14h13
ClaudeLELOUP

D'ici, pas d'idée.

Un échantillon de ta BdD en Access2000 ?
23/05/2014, 14h28
Begon0

bonjour

il ne faudrait pas plutôt utiliser Me!ID_Devis ?
23/05/2014, 21h05
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.
23/05/2014, 21h11
madefemere

Bonsoir,

J'ai ce genre de problème de temps en temps en vba et je n'ai jamais compris pourquoi.
En fait, il doit y avoir un problème dans la référence à Me.
Les solutions que j'ai trouvé : soit Compacter et décompiler la base, soit reconstruire le formulaire et recopier le code dessus, soit reprendre le code à 0.

C'est embêtant, mais j'ai jamais compris la cause.

Bonne continuation

J'ai remarqué quelque chose d'effectivement similairement incompréhensible pour moi;
Exemple:
Code:

1 2 3 4 5 6 Private Sub Form_Current() If IsNull(Forms.F_Clients_Factures.Form!SF_Factures.Form!ID_Facture) Then: Me.Lst_Cat.Visible = False If IsNull(Forms.F_Clients_Factures.Form!SF_Factures.Form!ID_Facture) Then: Me.Lst_Design.Visible = False If Forms.F_Clients_Factures.Form!SF_Factures.Form!ID_Facture <> 0 Then: Me.Lst_Cat.Visible = True If Forms.F_Clients_Factures.Form!SF_Factures.Form!ID_Facture <> 0 Then: Me.Lst_Design.Visible = True End Sub
Ce code fonctionne habituellement MAIS parfois lorsque je réouvre mon application, il arrive qu'une erreur soit mentionnée alors que il ne semble pas y en avoir (il suffit de fermer la fenêtre VBA et c'est bon)

Et pour mon soucis de switch devis/factures, ça semble être dans le même genre, mais plus capricieux car je n'arrive pas à faire fonctionner le code... Qui fonctionne sur une autre appli avec moins de fonctionnalités, ça me rend chèvre!

23/05/2014, 21h23
madefemere

Comme je disais, c'est l'objet (le formulaire) qui est un peu corrompu. A force de faire des corrections des codes VBA dessus, il doit perdre la tête :fou:. Donc il faut le soigner.
23/05/2014, 21h27
Defaultuser01

Quelle impolitesse, je ne t'ai même pas salué surtout que c'était toi qui m'avait filé le code pour le switch au départ lol. Donc bonsoir à toi haha.

Oui j'ai fais pas mal de correction modification, cela serait bien possible que quelques éléments soit corrompus... Je pense que je vais essayer de revoir tout cela ce soir.

Bon.... j'ai refais l'objet au complet, je viens de finir et ça fonctionne!

Si c'est stable je ne sais pas, mais pour le moment c'est bon :)

Juste une chose si l'un de vous peut me dire si quelque chose semble étrange la dedans:
Code:

1 2 3 4 5 6 Private Sub Form_Current() If IsNull(Forms.F_Clients_Factures.Form!SF_Factures.Form!ID_Facture) Then: Me.Lst_Cat.Visible = False If IsNull(Forms.F_Clients_Factures.Form!SF_Factures.Form!ID_Facture) Then: Me.Lst_Design.Visible = False If Forms.F_Clients_Factures.Form!SF_Factures.Form!ID_Facture <> 0 Then: Me.Lst_Cat.Visible = True If Forms.F_Clients_Factures.Form!SF_Factures.Form!ID_Facture <> 0 Then: Me.Lst_Design.Visible = True End Sub
J'ai à nouveau eu des conflits là dedans pendant que je refaisais mon objet, et je reconnais moi même que ça ne semble pas très propre, mais je ne savais pas comment l'écrire mieux (je souhaitais simplement rendre 2 listes du détails invisible ou inactive tant qu'un numéro de devis n'était pas sélectionné).

Merci pour vos réponses à tous.

Bonjour,

Il te faut regrouper les instructions par condition et comme tes conditions ne concernent qu'un seul contrôle, il faut essayer de les combiner.

Je verrai :
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub Form_Current() If IsNull(Forms.F_Clients_Factures.Form!SF_Factures.Form!ID_Facture) _ Or Forms.F_Clients_Factures.Form!SF_Factures.Form!ID_Facture = 0 Then Me.Lst_Cat.Visible = False Me.Lst_Design.Visible = False Else Me.Lst_Cat.Visible = True Me.Lst_Design.Visible = True End If End Sub
Bonne continuation