Discussion :

[Romanodi13]

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 :

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

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 !

[marot_r]

Bonjour.

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

Essaye :

Code :

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

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 :

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

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+

[Romanodi13]

En effet ça marche, merci beaucoup !

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

Code :

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

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

Merci encore, hop résolu !

[marot_r]

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 :

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

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 :

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

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+