Affichage d'une Boite de dialogue

**moilou2** · 10/07/2008, 16h14

Bonjour, je voudrais savoir comment afficher une boite de dialogue, c'est à dire une MsgBox, mais avec un champ dans lesquel on peut inscrire une valeur, en l'occurence dans mon cas une quantité et ensuite, pouvoir récuperer cette valeur pour mettre à jour une table.

Dans un premier temps déja comment afficher une boite de dialogue.

Ensuite je m'occuperais de la mise à jour dans la table avec une requête sql UPDATE.

Merci

**Jean-Philippe André** · 10/07/2008, 16h15

Bonjour,
regarde l'aide en ligne

pour InputBox

**moilou2** · 10/07/2008, 16h18

OK je regarde merci

**koyot3** · 10/07/2008, 16h26

Code :

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

résultat = InputBox("intitulé de la msgbox", "titre de la msgbox")

**moilou2** · 10/07/2008, 16h34

En fait j'arrive pas à mettre un titre à mon InputBox, j'ai essayé:

Code :

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

InputBox ("Veuillez indiquer la quantité réelement reçue pour l'article " & ID_Référence & "", "Quantité réelement reçue")

J'ai essayé

Code :

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

InputBox ("Veuillez indiquer la quantité réelement reçue pour l'article " & ID_Référence & "", [Quantité réelement reçue])

Pourtant dans l'aide ils mettent bien:

Code :

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

Inputbox(Invite, [Titre].....

**moilou2** · 10/07/2008, 16h44

Voila pour l'affichage, maintenant pour le traitement c'est autre chose...

message = "Veuillez entrer la quantité réelement reçue "
Titre = "Quantité réelement reçue"
ValeurInuptBox = InputBox(message, Titre)

**LUD734** · 10/07/2008, 16h49

Je n'ai pas très bien compris ton problème.
Le premier code que tu as mis fonctionne:

Maintenant, si tu veux te servir de cette valeur rentrée, tu travailles avec la variable affectée "résultat".

EDIT:
En outre, je viens de remarquer: c'est pas réelement, mais réellement xD

**koyot3** · 10/07/2008, 16h50

ma suggestion marchait...
tu récupères "résultat" et c'est bwen

**moilou2** · 10/07/2008, 16h55

Alors alors, j'ai un petit souci, j'ai récupéré la valeur du nombre saisi dans l'inputbox de la façon suivante:

Code :

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

ValeurInuptBox = InputBox(message, Titre)

Mais dans ma requête insert, j'ai un souci, car sa me dit que ma syntaxe de mon Insert est mauvaise.

Est ce que je me serai trompé quelque part?

Pourtant en mode débug, "ValeurInuptBox", prend bien la valeur de ce que j'ai rentré dans mon inputbox???

Merci, voici ma requête:

Code :

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

1
2
 sql = "Insert into tbl_Transaction values (" & ID_Transac & ", " & ID_Référence & ", 'Entrée','" & ValeurInuptBox & "','" & dateJours & "'," & ID_Emetteur & ")"
    odb.Execute (sql)

**koyot3** · 10/07/2008, 16h58

Code :

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

sql = "Insert into tbl_Transaction values ('" & ID_Transac & "',' " & ID_Référence"');"

**moilou2** · 10/07/2008, 17h09

Non non sa ne vient pas de sa je crois que j'ai trouvé, par contre comment sa s'écrit en vba, au lieu de dire

Code :

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

Quantité='" & ValeurInuptBox & "'

Est ce que je peut dire sa:

Code :

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

Quantité=" & quantité & "-'" & ValeurInuptBox & "'

C'est possible?

**moilou2** · 10/07/2008, 17h17

C'est bon sa marche, je suis content vu la taille du code!!!

Si quelqu'un veut mon code en entier mais je ne pense pas que cela serve!!!

En revanche, comment fair pour interdire dans l'inputBox un nombre négatif, sinon MsgBox, ATTENTION.....?

**moilou2** · 10/07/2008, 17h26

Ya pas moyen non plus sans trop se compliquer la vie avec un panel de code, d'integrer dans l'inputBox une liste déroulante qui va piocher dans une table la liste des personnes, ou sans aller piocher dans une table lui définir une liste de personne?