Discussion :

[gnenema]

Bonjour les amis,

Encore un souci, lorsque je saisis les caractères comme APOSTROPHE dans formulaire access ça signale une erreur. Comment faire ? le code ci-dessous

Code :

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

1
2
3
dbs.Execute " INSERT INTO Degustation " _
        & "(N°ordre_Ajout_Code, N°Frequence2, Num_Projet2, Condition_evaluat, Date_Sortie_Reel, N°Degustateur, Sec_Apparence, Cmtaire_Sec_Apparence, Sec_Texture, Cmtaire_Sec_Texture, Bouill_Apparence, Cmtaire_Bouill_Apparence, Bouill_Arome, Cmtaire_Bouill_Arome, Bouill_Gout, Cmtaire_Bouill_Gout, Bouill_Arriere_Gout, Cmtaire_Arriere_Gout) VALUES " _
        & "('" & Me.N°ordre_Ajout_Code.Value & "','" & Me.N°Frequence2.Value & "','" & Me.Num_Projet2.Value & "','" & Me.Condition_evaluat.Value & "','" & Me.Date_Sortie_Reel.Value & "','" & Me.N°_Paneliste.Value & "','" & Me.GroupeAppSec.Value & "','" & Me.Cmtaire_Sec_Apparence.Value & "','" & Me.GroupeTextSec.Value & "','" & Me.Cmtaire_Sec_Texture.Value & "','" & Me.GroupeAppBouill.Value & "','" & Me.Cmtaire_Bouill_Apparence.Value & "','" & Me.GroupeAromeBouill.Value & "','" & Me.Cmtaire_Bouill_Arome.Value & "','" & Me.GroupeGoutBouill.Value & "','" & Me.Cmtaire_Bouill_Gout.Value & "','" & Me.GroupeArrGoutBouill.Value & "','" & Me.Cmtaire_Arriere_Gout.Value & "');"

[tee_grandbois]

Bonjour,

ça signale une erreur. Comment faire ?

le minimum serait de nous donner le message d'erreur (le descriptif, pas son numéro) ...

[bertiny]

En complément avec ce que tee_grandbois a dit, quel est le champ qui fais problème? quel est son type de données?

[gnenema]

En complément avec ce que tee_grandbois a dit, quel est le champ qui fais problème? quel est son type de données?

Bonsoir,
ltype est " TEXT COUT "

j'ai saisis " L' "

[tee_grandbois]

Bonsoir,
ltype est " TEXT COUT "

j'ai saisis " L' "

On ne sait toujours pas quel est le champ dans la requête : "TEXT COUT" n'en fait pas partie
Ce n'est pas grave, je prend le dernier champ pour l'exemple. Il faut doubler l'apostrophe dans l'expression avec Replace :

Code :

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

... "','" & Replace(Me.Cmtaire_Arriere_Gout.Value,"'","''") & "');"

[gnenema]

On ne sait toujours pas quel est le champ dans la requête : "TEXT COUT" n'en fait pas partie
Ce n'est pas grave, je prend le dernier champ pour l'exemple. Il faut doubler l'apostrophe dans l'expression avec Replace :

Code :

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

... "','" & Replace(Me.Cmtaire_Arriere_Gout.Value,"'","''") & "');"

Merci pour votre reponse prompt,
Voici les champs concernés. ils sont de type TEXT

'" & Me.Cmtaire_Sec_Apparence.Value & "','" & Me.Cmtaire_Sec_Texture.Value & "','" & Me.Cmtaire_Bouill_Apparence.Value & "','" & Me.Cmtaire_Bouill_Arome.Value & "','" & Me.Cmtaire_Bouill_Gout.Value & "','" & Me.Cmtaire_Arriere_Gout.Value & "');"

[tee_grandbois]

J'ai donné la solution, à toi de modifier ton code pour les champs contenant des apostrophes ... Ou alors évite d'en mettre dans tes données.

[gnenema]

J'ai donné la solution, à toi de modifier ton code pour les champs contenant des apostrophes ... Ou alors évite d'en mettre dans tes données.

Merci bcp