[AC-2007] Msgbox problème affichage [Résolu]

[unrafu]

Bonjour à vous toutes et tous,

Je suis novice dans le vba. J'aimerais ouvrir une msgbox, récupérer la valeur et si = o alors Msgbox "vous ne pouvez pas..." sinon informer les divers champs comme suit:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Commande141_Click()
Dim varnumber As Integer
varnumber = InputBox_("Entrez le nombre d'employé qui était prévu")
If varnumber = 0 Then
MsgBox ("Ce nombre ne peut être 0, veuillez insérer un numéro > 0; Buttons As VbMsgBoxStyle=vbOKOnly")
Else
Me![Annonces Ldèt eo] = varnumber
Me![Salaires à dét] = 0
Me![Salaires vac et JF à dét] = 0
Me![Horaires à dét] = 0
Me![Suppléments à dét] = 0
Me![Indemnités à dét] = 0
Me![Indemnités temps dépl à dét] = 0
Me![Autorisation à dét] = 0
Me![Indépendant à dét] = 0
 
End If
End Sub

Access 2007

Merci de m'aider et bonne continuation.

[unrafu]

Re, j'ai trouvé ma bourde... il me faut absolument des loupes pour mes yeux... bonne continuation à vous toutes et tous.