Discussion :

[stagolee]

Salut à tous! j'essaie d'alimenter un champ texte (T_Remuneration.NumeroCheque) à partir du texte saisi dans un inputbox :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim varitem As Variant
Dim nbselection As Long
Dim LResponse2 As String
...
Rem ajout des numéros de chèque
LResponse2 = InputBox("veuillez saisir le numéro de chèque svp", "choix numéro de chèque")
 
For Each varitem In Me.Lst_Rem.ItemsSelected
    DoCmd.SetWarnings False
    DoCmd.RunSQL "UPDATE T_Remuneration SET T_Remuneration.NumeroCheque = " & LResponse2 & " WHERE NumeroRemuneration = " & Me.Lst_Rem.Column(0, varitem)
    DoCmd.SetWarnings False
    nbselection = nbselection + 1
Next varitem
...

quand je saisi des chiffres dans l'inputbox, ça passe. Si c'est du texte, la valeur de l'inputbox passe en paramètre au lieu d'alimenter le champ en cascade. Pourquoi????

merci

[pkrvz]

avec du texte il faut faire précéder et suivre ton argument de guillemets "

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Dim reponse as string
Dim strSQL as string
 
 
reponse= inputbox("message")
 
reponse=chr(34) & reponse & chr(34)
 
strSQL="SELECT ...." & reponse & "WHERE ..."

Je pense que tu devrais t'en sortir comme ca.

[stagolee]

pkrvz, merci pour ta réponse rapide! ça marche.