Bonjour,
Je sais pas coder en VB, mais apparemment ce que je veux faire ne peut pas se faire autrement donc je cherche à droite à gauche sur le net et sur le forum et je prend des bouts de codes mais quand ça marche pas, c'est dur de débugger pour une débutante! D'où mon post ...
J'ai un sous formulaire avec un menu déroulant dans lequel apparait appel1, appel2, ...
Ce menu déroulant est lié au champ type de ma table appel.
Dans ma table appel, ce champ type est un identifiant relié à ma table type_appels.
Dans ma table type_appels, j'ai l'identifiant et le nom de l'appel (ex: appel1, appel2, ...) que je fais apparaitre dans mon menu déroulant.
Quand l'utilisateur remplit le formulaire, au moment ou il clique sur le bouton valider, je veux qu'il ait un message "champ type non rempli" ou "base mise à jour".
Voici 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
24
25
26
27
28
29 Private Sub Valider_Click() Dim msgResult As Integer //1er essai: ça marche pas, ça ne rentre pas dans le if If Len(Me.appel_type) = 0 Then MsgBox "Champ type non rempli" End If //2eme essai: ça marche pas, ça ne rentre pas dans le if If Nz(Me.appel_type, "") = "" Then MsgBox "Champ type non rempli" End If //ça affiche toujours ce message: msgResult = MsgBox("Base mise à jour", vbOKOnly, "Message") On Error GoTo Err_Validation DoCmd.Close Exit_Valider_Click: Exit Sub Err_Validation: MsgBox Err.Description Resume Exit_Valider_Click End Sub
Voilà, comment donc controler que mon menu déroulant est vide ?
Merci
Partager