Discussion :

[schwinny]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
            'Definition de la fonction SQL de mise a jour
            Dim RequeteSQL_FCT As String
            'Requete de MAJ de l'exploitant'
            RequeteSQL_FCT = "UPDATE Exploitants SET Exploitants.Nom = " & Nom_FCT & ", Exploitants.Prenom = " & Prenom_FCT & ", Exploitants.EVV = " & EVV_FCT & ", Exploitants.DateNaissance = " & DateNaissance_FCT & ", Exploitants.Adresse = " & Adresse_FCT & ", Exploitants.CodePostal = " & CodePostal_FCT & ", Exploitants.Commune = " & Commune_FCT & ", Exploitants.Telephone = " & Telephone_FCT & ", Exploitants.Fax = " & Fax_FCT & ", Exploitants.Courriel = " & Courriel_FCT & ", Exploitants.DossierHorsPlan = " & DossierHorsPlan_FCT & ", Exploitants.Commentaires = " & Commentaires_FCT & " WHERE (((Exploitants.CodeExploitant)=" & CodeExploitant_FCT & "));"
            'Execution de la requete
            MsgBox (RequeteSQL_FCT)
            'MajExploitant = DoCmd.RunSQL (RequeteSQL_FCT)

Bonjour a tous.
je cherche a mettre le signe " dans ma requete entre les valeurs de variable et et les nom car ma requete deconne aleatoirement et je pense que cela vient de l'absence de ces doubels quote.
je pense que c'est avec un \ mais je n'arrive pas a trouver la bonne equation;

pouvez vous me donner le saint grale qu'est la solution svp???????

[Jean-Philippe André]

salut,
si tu luttes pour la requete, mets déjà les quote de type texte dans la partie fixe, ensuite, tu peux faire un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

replace(champ,"'","''")

au final, ca donnerait ca (sauf type de champs mal interprété) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
'Definition de la fonction SQL de mise a jour
            Dim RequeteSQL_FCT As String
            'Requete de MAJ de l'exploitant'
            RequeteSQL_FCT = "UPDATE Exploitants SET Exploitants.Nom = '" & Replace(Nom_FCT,"'","''") & "', Exploitants.Prenom = '" & Replace(Prenom_FCT,"'","''") & "', Exploitants.EVV = '" & replace(EVV_FCT,"'","''") & "', Exploitants.DateNaissance = #" & DateNaissance_FCT & "#, Exploitants.Adresse = '" & Replace(Adresse_FCT,"'","''") & "', Exploitants.CodePostal = " & CodePostal_FCT & ", Exploitants.Commune = '" & Replace(Commune_FCT,"'","''") & "', Exploitants.Telephone = " & Telephone_FCT & ", Exploitants.Fax = " & Fax_FCT & ", Exploitants.Courriel = '" & Courriel_FCT & "', Exploitants.DossierHorsPlan = '" & replace(DossierHorsPlan_FCT,"'","''") & "', Exploitants.Commentaires = '" & Replace(Commentaires_FCT,"'","''") & "' WHERE (((Exploitants.CodeExploitant)=" & CodeExploitant_FCT & "));"
            'Execution de la requete
            MsgBox (RequeteSQL_FCT)
            'MajExploitant = DoCmd.RunSQL (RequeteSQL_FCT)

[schwinny]

Ok merci.

tous mes champs sont de type texte....

donc je vais tester pour voirsi ca marche.

merci

[schwinny]

j'arrive pas a faire marcher la technique...

on peux pas forcer access a mettre les " avant et apres les variables sans toucher a mon code?

[Jean-Philippe André]

ben il faut voir dejà tes variables, d'où elles sortent ?

[schwinny]

de formulaires.
mais je les recupere en passage de paramètre dans une fonctions.
depuis cette fonction, je lance cette requete.

toutes les variables sont de types texte lorsque je les recupere pour des raisons de facilité.
a la limite, ya 3 valeurs numérique que je pourrais recuperer comme num et non comme texte...

dans la table, les champs sont de ce type

CodeExploitants = Num
DateNaissance = Date/heure
DossierHorsPlan = Oui/Non
Commentaires = memo
Le reste est en string…

[Jean-Philippe André]

le true/false se transforme en -1/0 dans la requte...

[schwinny]

ca passe en valeur numérique effectivement.
mais le probleme vient bien de la syntaxe de mon code avec les " et '

[Jean-Philippe André]

tu peux nous faire un debug.print à la place du msgbox et nous dire ce que ca t'affiche, on ira plus vite que de tatonner stp

[schwinny]

cela m'affiche la requete avec les bonne valeur a la place des noms de fonctions mais sans les "

et comme je met des espaces dans mes champs, la requete plante...

ma requete actuelle est:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 RequeteSQL_FCT = "UPDATE Exploitants SET Exploitants.Nom = " & Nom_FCT & ", Exploitants.Prenom = " & Prenom_FCT & ", Exploitants.EVV = " & EVV_FCT & ", Exploitants.DateNaissance = " & DateNaissance_FCT & ", Exploitants.Adresse = " & Adresse_FCT & ", Exploitants.CodePostal = " & CodePostal_FCT & ", Exploitants.Commune = " & Commune_FCT & ", Exploitants.Telephone = " & Telephone_FCT & ", Exploitants.Fax = " & Fax_FCT & ", Exploitants.Courriel = " & Courriel_FCT & ", Exploitants.DossierHorsPlan = " & DossierHorsPlan_FCT & ", Exploitants.Commentaires = " & Commentaires_FCT & " WHERE (((Exploitants.CodeExploitant)=" & CodeExploitant_FCT & "));"

il ne me manque plus que savoir comment mettre dans ma requete le signe " pour que cela marche....

[Jean-Philippe André]

euh, le résultat du debug.print stp
la requete en vba on l'a déjà eu dans les précédents post >_<"

[schwinny]

voila...

ma nouvelle requete est:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
 RequeteSQL_FCT = "UPDATE Exploitants SET Exploitants.Nom = ?" & Nom_FCT & "?, Exploitants.Prenom = ?" & Prenom_FCT & "?, Exploitants.EVV = ?" & EVV_FCT & "?, Exploitants.DateNaissance = ?" & DateNaissance_FCT & "?, Exploitants.Adresse = ?" & Adresse_FCT & "?, Exploitants.CodePostal = ?" & CodePostal_FCT & "?, Exploitants.Commune = ?" & Commune_FCT & "?, Exploitants.Telephone = " & Telephone_FCT & ", Exploitants.Fax = " & Fax_FCT & ", Exploitants.Courriel = ?" & Courriel_FCT & "?, Exploitants.DossierHorsPlan = " & DossierHorsPlan_FCT & ", Exploitants.Commentaires = ?" & Commentaires_FCT & "? WHERE (((Exploitants.CodeExploitant)=" & CodeExploitant_FCT & "))"
 
 
            RequeteSQL_FCT = Replace(RequeteSQL_FCT, "?", "''")

[schwinny]

je precise que cela plante car il me dit que nom nom mn'est pas correct edans la syntaxe car un opérateur est absent ...

[Jean-Philippe André]

je dois mal m'exprimer en afit

que s'affiche-t-il dans la fenetre d'execution de ce code stp ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
'Definition de la fonction SQL de mise a jour
            Dim RequeteSQL_FCT As String
            'Requete de MAJ de l'exploitant'
            RequeteSQL_FCT = "UPDATE Exploitants SET Exploitants.Nom = '" & Replace(Nom_FCT,"'","''") & "', Exploitants.Prenom = '" & Replace(Prenom_FCT,"'","''") & "', Exploitants.EVV = '" & replace(EVV_FCT,"'","''") & "', Exploitants.DateNaissance = #" & DateNaissance_FCT & "#, Exploitants.Adresse = '" & Replace(Adresse_FCT,"'","''") & "', Exploitants.CodePostal = " & CodePostal_FCT & ", Exploitants.Commune = '" & Replace(Commune_FCT,"'","''") & "', Exploitants.Telephone = " & Telephone_FCT & ", Exploitants.Fax = " & Fax_FCT & ", Exploitants.Courriel = '" & Courriel_FCT & "', Exploitants.DossierHorsPlan = '" & replace(DossierHorsPlan_FCT,"'","''") & "', Exploitants.Commentaires = '" & Replace(Commentaires_FCT,"'","''") & "' WHERE (((Exploitants.CodeExploitant)=" & 
CodeExploitant_FCT & "));"
            'Execution de la requete
            Debug.Print RequeteSQL_FCT
            'MajExploitant = DoCmd.RunSQL (RequeteSQL_FCT

les valeurs mises dans un champs de type texte sont de simples quote, des fois que ca soit aussi d'ici que débute le pb

[schwinny]

Probleme résolu en utilisant cette fonction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 RequeteSQL_FCT = "UPDATE Exploitants SET Exploitants.Nom = ?" & Nom_FCT & "?, Exploitants.Prenom = ?" & Prenom_FCT & "?, Exploitants.EVV = ?" & EVV_FCT & "?, Exploitants.DateNaissance = ?" & DateNaissance_FCT & "?, Exploitants.Adresse = ?" & Adresse_FCT & "?, Exploitants.CodePostal = ?" & CodePostal_FCT & "?, Exploitants.Commune = ?" & Commune_FCT & "?, Exploitants.Telephone = " & Telephone_FCT & ", Exploitants.Fax = " & Fax_FCT & ", Exploitants.Courriel = ?" & Courriel_FCT & "?, Exploitants.DossierHorsPlan = " & DossierHorsPlan_FCT & ", Exploitants.Commentaires = ?" & Commentaires_FCT & "? WHERE Exploitants.CodeExploitant=" & CodeExploitant_FCT & ""

et en remplacant les ? par des ' de cette sorte

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

RequeteSQL_FCT = Replace(RequeteSQL_FCT, "?", "'")

Merci Beaucoup de m'avoir accordé de ton temps
Tu ne peux pas savoir a quel point tu m'aide

Merci merci merci merci.....



Du coup je vais meme enlever le replace et remplacer les ? par des '.