Discussion :

[freshman]

Bonjour à tous,

je suis débutant en VBA Access. j'ai crée une petite base de donnée pour m'exercer. j'ai crée un formulaire pour saisir le nom et le prénom d'une personne. j'ai ensuite écrit un code vba pour ne pas laisser un champs vide. je veux que dès que le champs nom par exemple perd le focus, qu'il soit fait une vérification pour s'assurer que le champs n'est resté vide. si c'est le cas le il faudra ramener l'utilisateur sur le champs en question. Mon souci c'est j'ai utilisiter SetFocus, DoCmd.GoToControl et même cancel=true, aucun ne marche. ci-dessous les lignes de codes saisies. Merci de me mettre sur la voie.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Sub Ch_NomStagiaire_LostFocus()
 
If Len(Ch_NomStagiaire.Value) = 0 Then
   MsgBox "Le champs NOM DE STAGIAIRE est resté vide. Merci de le renseigner"
   'Me.Ch_NomStagiare.SetFocus
   'DoCmd.GoToControl ("Ch_NomStagiaire")
   ' Annuler la suite des opérations
   Cancel = True
Else
   MsgBox "Vous saisie '" & Ch_NomStagiaire.Value & "' dans le champs NOM DE STAGIAIRE."
 
End If
 
End Sub

[ClaudeLELOUP]

Bonjour,

je suis débutant en VBA Access. j'ai créé une petite base de données pour m'exercer.

Ça, c’est une bonne idée !

Par contre pour empêcher une valeur Null ou vide dans une colonne de table, oriente-toi plutôt vers la définition de la table : dans les propriétés de la colonne, tu peux interdire le Null et le vide.




Et, d'une manière générale, pour contrôler une valeur avant de l'accepter, vois l'événement Avant mise à jour.

[freshman]

C'est bien ce que j'ai finalement. Merci de me conforter dans ce choix. Mais j'espérais trouver une méthode pour le faire autrement surtout que le nom du champs dans la table s'affiche dans le message d'erreur qui apparait quand le champs est vide. Pour revenir à mon code, que lui manque pour faire ce que je demande?? j'espère que je ne vous agace pas???

[ClaudeLELOUP]

j'espère que je ne vous agace pas???

Pas de souci : j'ai été débutant avant toi !

Mais que veux-tu au juste ?

Explique avec un exemple, ce que l'utilisateur fait comme actions et comment voudrais-tu qu'Access réagisse.

[freshman]

ok! Merci!
Mon projet d'apprentissage est le suivant:
je voudrais faire une petite base de donnée access avec tables, formulaires, les requetes et états pour un suivi de stagiaire dans un service donné
la 1ere étape, celle des tables T_Stagiaire et T_Service. c'est fait.
je suis à présent à la 2ème étape, celle des formulaires. j'ai créé un formulaire Fm_Stagiaire qui permet à l'utilisateur de saisir simplement le nom et le prénom du stagiaire. j'ai écrit un code VBA avec l'évement LostFocus() sur le champs "nomStagiaire" qui devrait obliger l'utilisateur à renseigner le nom du stagiaire en lui envoyant un message d'erreur pour lui demander de remplir le champ et en le remenant sur le champs "nomStagiaire" qu'il doit obligatoirement remplir.
Mon souci c'est que je n'arrive pas à faire bloquer l'utilisateur sur le champs en question. j'ai utiliser le SetFocus, DoCmd.GoToControl par de résultat. pouvez-vous me dire ce que j'aurais du mettre dans mon code pour arriver à mes fins?? merci encore pour votre aide.

[ClaudeLELOUP]

Bonjour,

Sur la perte de focus du contrôle NomStagiaire :

Code :

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

1
2
3
4
5
Private Sub NomStagiaire_LostFocus()
  If IsNull(Me.NomStagiaire) = True Then
    MsgBox "Le champ NOM DE STAGIAIRE est resté vide. Merci de le renseigner"
  End If
End Sub

Le message sera affiché si NomStagiaire a la valeur Null.

Mais le curseur se positionne automatiquement sur le contrôle suivant dans l'ordre de tabulation.

Si tu veux que le curseur « reste » sur le contrôle NomStagiaire, il faut un peu ruser !

Sur l'événement Réception de focus du contrôle qui suit dans l'ordre de tabulation, tu places ce code :

Code :

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

1
2
3
4
5
Private Sub CtlQuiSuit_GotFocus()
  If IsNull(Me.NomStagiaire) = True Then
      DoCmd.GoToControl "NomStagiaire"
  End If
End Sub

L'utilisateur aura ainsi l'illusion que le curseur n'a pas bougé.

[freshman]

Merci ClaudeLELOUP, ca fonctionnent parfaitement. Merci bien. j'espère pouvoir compter sur vous les autres fois... Merci encore.

[rnd]

Bonjour,

Une autre alternative est d'utiliser l’événement sur sortie du controle

Code :

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

1
2
3
4
5
6
Private Sub NomStagiaire_Exit(Cancel As Integer)
  If IsNull(Me.NomStagiaire) = True Then
    MsgBox "Le champ NOM DE STAGIAIRE est resté vide. Merci de le renseigner"
    Cancel = True
  End If
End Sub

Cdt, Renaud.

[morobaboumar]

Bonjour,

Une autre alternative est d'utiliser l’événement sur sortie du controle

Code :

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

1
2
3
4
5
6
Private Sub NomStagiaire_Exit(Cancel As Integer)
  If IsNull(Me.NomStagiaire) = True Then
    MsgBox "Le champ NOM DE STAGIAIRE est resté vide. Merci de le renseigner"
    Cancel = True
  End If
End Sub

Cdt, Renaud.

Bonjour membres du forum,
comment empêcher le curseur de quitter une zone de recherche tant que l'on n' pas finit d'entrer
au moins un mot de é ou 3 ?



Cordialement.