Discussion :

[[ZiP]]

Bonjour,

Voici mon code :

Code :

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

1
2
3
4
 
Dim Confirmation As Boolean
 
Confirmation = MsgBox "Confirmez-vous l'enregistrement de l'observation ?" & vbCrLf & "L'observation n'est plus modifiable par la suite !", vbYesNo + vbDefaultButton2 + vbQuestion, "Confirmation"

J'ai le message d'erreur suivant :

Erreur de compilation:
Erreur de syntaxe

Si je ne récupère pas la valeur, je n'ai pas d'erreur :

Code :

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

1
2
 
MsgBox "Confirmez-vous l'enregistrement de l'observation ?" & vbCrLf & "L'observation n'est plus modifiable par la suite !", vbYesNo + vbDefaultButton2 + vbQuestion, "Confirmation"

Comment récupérer le choix de l'utilisateur dans ce cas ?

Merci,
ZiP

[Invité]

Bonjour

Msgbox ne renvoie pas un booléen, change ton type en Long.

Philippe

[[ZiP]]

Bonjour Philippe,

J'ai effectué le changement de type et je rencontre l'erreur suivante :


Merci,
ZiP

[[ZiP]]

J'ai réussi à faire fonctionner mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Private Sub cmd_enregistrer_observation_Click()
    Dim Confirmation As Long
 
    If IsNull(txtObservationDescription.Value) Then
        MsgBox "Veuillez saisir la description de l'observation !", vbOKOnly + vbInformation, "Attention"
    ElseIf IsNull(lstObservationType.Value) Then
        MsgBox "Veuillez sélectionner le type de l'observation !", vbOKOnly + vbInformation, "Attention"
    ElseIf IsNull(lstCategorie.Value) Then
        MsgBox "Veuillez sélectionner la catégorie de l'observation !", vbOKOnly + vbInformation, "Attention"
    ElseIf IsNull(lstCategorieSous.Value) Then
        MsgBox "Veuillez sélectionner la sous-catégorie de l'observation !", vbOKOnly + vbInformation, "Attention"
    ElseIf IsNull(txtAction1Description.Value) Then
        MsgBox "Veuillez renseigner la première action de l'observation !", vbOKOnly + vbInformation, "Attention"
    ElseIf IsNull(lstAction1Type.Value) Then
        MsgBox "Veuillez sélectionner le type de l'action de la première action !", vbOKOnly + vbInformation, "Attention"
    Else
        Confirmation = MsgBox("Confirmez-vous l'enregistrement de l'observation ?" & vbCrLf & "L'observation n'est plus modifiable par la suite !", vbYesNo + vbDefaultButton2 + vbQuestion, "Confirmation")
        If Confirmation = vbYes Then
            DoCmd.Close
        End If
    End If
End Sub

- Changement de Boolean en Long
- Ajout de parenthèses à MsgBox
- Ajout du "= vbYes" dans le test de confirmation

Cordialement,
ZiP

[tarnx]

Si tu souhaites récupérer le résultat du MessageBox, dans ce cas la c'est une fonction. Il faut donc mettre les parenthèses.

Code :

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

Confirmation = MsgBox ( "Confirmez-vous l'enregistrement de l'observation ?" & vbCrLf & "L'observation n'est plus modifiable par la suite !", vbYesNo + vbDefaultButton2 + vbQuestion, "Confirmation" )

[[ZiP]]

Merci pour cette précision, je ne savais pas que dans le cas d'une fonction il fallait mettre les parenthèses et ai trouvé la solution un peu par hasard

ZiP