Discussion :

[xeron33]

Bonjour à tous et bonne année 2018,
Je voudrais récuperer la valeur d'un bouton option dans une requête d'insertion:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
csql4 = "insert into [TAB_Insertions_Hist] ([N°Insertion],[Num_Archives],[DM],[Adress_Doss],[DATE_Cloture],[OPERATEUR],[Succes])" & _
           "values ("
          csql4 = csql4 & Chr(34) & Texte35.Value & Chr(34)
          csql4 = csql4 & "," & Chr(34) & Texte6.Value & Chr(34)
          csql4 = csql4 & "," & Chr(34) & Texte27.Value & Chr(34)
          csql4 = csql4 & "," & Chr(34) & Texte11.Value & Chr(34)
          csql4 = csql4 & "," & Chr(34) & Date & Chr(34)
          csql4 = csql4 & "," & Chr(34) & Modifiable64.Value & Chr(34)
          csql4 = csql4 & "," & Chr(34) & Option75.Value & Chr(34)
          csql4 = csql4 & ");"
DoCmd.RunSQL csql4

Ou [Succes] est un champ de type OUI/NON et Option75 un bouton option lié au champ Succes. Valeur par défault : -1 (oui)
J'ai une erreur de conversion de type
Si quelqu'un peut m'aider.
Merci

[Jean-Philippe André]

Salut,

commence par regarder ce que vaut ta variable csql4 avant son exécution.

Je vois déjà des erreurs de format pour :
- les valeurs numériques (pas d'apostrophes)
- les valeurs de dates (#MM/JJ/AAAA#)
- les valeurs booléennes (prefere TRUE/FALSE)

[Invité]

Bonjour,
Utilises l'apostrophe pas besoin de chr(34)!

Code :

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

1
2
csql4 = csql4 & "'" & Texte35.Value & "','" 
csql4 = csql4 & Texte6.Value & "'"

[tee_grandbois]

Bonjour,
Je pense qu'il manque un espace entre la 1ère ligne de code et la seconde (je le mettrai avant values) :

Code :

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

1
2
csql4 = "insert into [TAB_Insertions_Hist] ([N°Insertion],[Num_Archives],[DM],[Adress_Doss],[DATE_Cloture],[OPERATEUR],[Succes])" & _
           " values ("

[xeron33]

Merci à tous pour votre aide, après pas mal de temps passé à chercher j'ai trouvé la bonne syntaxe :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
csql5 = "insert into [TAB_Insertions_Hist] ([N°Insertion],[Num_Archives],[DM],[Adress_Doss],[DATE_Cloture],[OPERATEUR],[Succes])" & _
    "values ("
          csql5 = csql5 & Chr(34) & Texte35.Value & Chr(34) ' N° Insertion Numérique
          csql5 = csql5 & "," & "'" & Texte6.Value & "'" ' N° Dossier Texte
          csql5 = csql5 & "," & "'" & Texte27.Value & "'" 'DM Texte
          csql5 = csql5 & "," & "'" & Texte11.Value & "'" 'Adresse_Doss Texte
          csql5 = csql5 & "," & Date       '[DATE_Cloture]
          csql5 = csql5 & "," & Chr(34) & Modifiable64.Value & Chr(34)   'Opérateur Texte
          csql5 = csql5 & "," & Option75.Value  ' Succes OUI/NON
          csql5 = csql5 & ");"
DoCmd.RunSQL csql5

La ça marche !

[Jean-Philippe André]

Salut

j'ai peur pour ton

Code :

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

csql5 = csql5 & "," & Date       '[DATE_Cloture]

force le format

Code :

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

csql5 = csql5 & ",#" & Format(Date,"DD/MM/YYYY") & "#"       '[DATE_Cloture]

[xeron33]

Salut

j'ai peur pour ton

Code :

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

csql5 = csql5 & "," & Date       '[DATE_Cloture]

force le format

Code :

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

csql5 = csql5 & ",#" & Format(Date,"DD/MM/YYYY") & "#"       '[DATE_Cloture]

**************************************************************
Merci pour ta remarque en effet le format était mauvais, par contre j'ai codé :

Code :

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

1
2
 
csql5 = csql5 & ",#" & Format(Date, "MM/DD/YYYY") & "#" '[DATE_Cloture]

autrement le mois était en première position, surement une histoire de format américain...
Merci et à +