Utiliser valeur InputBox pour un MsgBox

Bonjour !

J'aurais besoin d'aide sur quelque chose de tout simple mais qui pourtant me rebute. Voici mon code VBa créé sur Access :

Code:

---

1 2 3 4 5 6

Dim lecteur as String lecteur = InputBox("Saisissez la lettre correspondant à la clé insérée (exemple: F)", "Saisir votre lecteur")   Dim Msg Msg = MsgBox("Attention : Vous avez choisi le lecteur " & lecteur & " êtes-vous sûr de votre choix ?", "", 1000)

---

En gros, ce que je veux faire c'est récupérer la valeur de l'InputBox (une lettre pour être plus précis) et utiliser cette valeur pour la mettre dans le message d'un MsgBox afin que la personne puisse vérifier son choix. Cependant, quand je fais ce code (ou quels que soient les modifications que je fais), j'ai un message d'erreur :

Erreur d'exécution '13' : Incompatibilité de type

J'ai essayé de changer le type de mes différentes variables mais pas moyen. Je suis débutant dans Access mais là, ce qui m'a l'air tout simple ne fonctionne pas.

Avez-vous une idée ?

Merci d'avance !

Bonjour.

À priori c'est le deuxième paramètre qui n'est pas correct.

Essaye :

Code:

---

MsgBox("Attention : Vous avez choisi le lecteur " & lecteur & " êtes-vous sûr de votre choix ?", vbQuestion+vbYesNo+vbDefaultButton2, "Confirmation")

---

J'ai supposé que tu veux afficher un point d'intérogation et une réponse en Oui/Non et que la réponse par défaut est Non. Le titre sera "Confirmation"

Si tu n'a pas besoin d'un paramètre, il faut simplement ne pas le renseigner. Dans ton exemple, en supposant que tes autres paramètres sont corrects, cela donnerai :

Code:

---

MsgBox("Attention : Vous avez choisi le lecteur " & lecteur & " êtes-vous sûr de votre choix ?", , 1000)

---

Pour info les retours de MsgBox sont des entiers longs donc dim msg devrait être dim msg as long.


A+

En effet ça marche, merci beaucoup !

Voici mon code final pour ceux qui ont le même problème que moi :

Code:

---

1 2 3 4 5 6

Dim lecteur lecteur = InputBox("Saisissez la lettre correspondant à la clé insérée (exemple: F)", "Saisir votre lecteur")   Dim Msg Msg = MsgBox("Attention : Vous avez choisi le lecteur " & lecteur & " êtes-vous sûr de votre choix ?", vbQuestion + vbYesNo + vbDefaultButton2, "Titre de la fenêtre")

---

J'ai enlevé la précision sur le dim et ça marche nickel :D

Merci encore, hop résolu !

Citation:

---

J'ai enlevé la précision sur le dim et ça marche nickel

---

Ce n'est pas recommandé. Préciser le type des données utilisées aide à prévenir des érreurs de dépassement de capacité ou de mauvaise interprétation des données. Par exemple cela permet de s'assurer que si on attend une date, on reçoit bien une date.

Autre exemple pour :

Code:

---

debug.print v1+v2

---

si v1 et v2 sont des nombres tu vas obtenir la somme (ex v1=10, v2=20, résutat=30)
si v1 et v2 sont des chaînes de caractères tu vas obtenir la concaténation (ex v1="10", v2="20", résutat="1020")
et il est possible que selon la façon dont Access reçoit les données il ne soit pas capable de deviner si c'est une chaîne ou un nombre.

Voici ce que je te suggères :

Code:

---

1 2 3

Dim lecteur as string dim Msg as long

---

Un point à propos du +, il est recommandé d'utiliser & quand on concatène (met bout à bout) des chaînes de caractères afin d'éviter la confusion entre l'adition et la concaténation.

A+