champ indépandant et test

**x0249** · 10/05/2007, 11h43

Bonjour,

J'ai créer pour faire une recherche dans un formulaire plusieurs champ indépandant(pour ne pas allez dans ma table),

A chaque champ, je voudrais faire une vérification, j'ai fais cela mais cela ne fonctionne pas !!! et voudrais aussi qu'il se repositionne dans le champ tant que le champ est vide

Code :

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

1
2
3
4
Private Sub AnneePromotion_beforeUpdate(cancel as Integer)
If (AnneePromotion) = "" Then
MsgBox "erreur"
End If

End Sub

**appocallypseman** · 10/05/2007, 11h53

tu rajoute un

Code :

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

DoCmd.CanCelEvent

à l'intérieur de ton bloc if et je pense que ça devrai fonctionner.

**ft035580** · 10/05/2007, 11h58

Salut,

Code :

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

1
2
3
4
5
6
7
Private Sub AnneePromotion_beforeUpdate(cancel as Integer)
If (AnneePromotion) = "" Then
MsgBox "erreur"
Cancel=true
End If

End Sub

**x0249** · 10/05/2007, 13h06

Désolé mais meme avec cela ne fonctionne, je fais la tabulation pour passer d'un champ à l'autre. Attention ce sont des champs indépendants dans mon formulaire !

**ft035580** · 10/05/2007, 13h11

Et sur perte de focus?

Code :

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

1
2
3
4
5
Private Sub AnneePromotion_LostFocus()
If IsNull(Me.AnneePromotion) Then
MsgBox "Erreur"
End If
End Sub

**x0249** · 10/05/2007, 13h19

Cela fonctionne mais :

Code :

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

1
2
3
4
5
Private Sub AnneePromotion_LostFocus()
If IsNull(Me.AnneePromotion) Then
MsgBox "Erreur"
End If
End Sub

La seul chose je voudrais ne quitte ce champ tant que le champ est vide ! Merci pour ce début de réponse. Je débute. Quel livre me conseillez vous pour tout ce qui est des vba, et autres en access...

**mout1234** · 10/05/2007, 13h44

Bonjour,

Envoyé par x0249

Quel livre me conseillez vous pour tout ce qui est des vba, et autres en access...

Regardes par ici
http://access.developpez.com/livres/

et biensur les faq, tutos, sources, contributions, forum de developpez.com

http://access.developpez.com/

Pour ton souci, tu peux essayer un setfocus ...

Code VBA :

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

1
2
3
4
5
6
7
Private Sub AnneePromotion_LostFocus()
If IsNull(Me.AnneePromotion) Then
MsgBox "Erreur"
On error resume next
Me!AnneePromotion.SetFocus
End If
End Sub

**x0249** · 10/05/2007, 13h45

code :

Code :

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

1
2
3
4
5
6
7
Private Sub AnneePromotion_LostFocus()
If IsNull(Me.AnneePromotion) Then
MsgBox "Erreur"
On error resume next
Me!AnneePromotion.SetFocus
End If
End Sub

**x0249** · 10/05/2007, 13h52

Désolé mais il passe tjs au champ suivant :

Code :

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

1
2
3
4
5
6
7
Private Sub AnneePromotion_LostFocus()
If IsNull(Me.AnneePromotion) Then
MsgBox "Erreur"
On error resume next
Me!AnneePromotion.SetFocus
End If
End Sub

**ft035580** · 10/05/2007, 17h11

Code :

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

1
2
3
4
5
6
7
Private Sub AnneePromotion_LostFocus()
If IsNull(Me.AnneePromotion) Then
MsgBox "Erreur"
Me.AutreControle.SetFocus
Me.AnneePromotion.SetFocus
End If
End Sub

**x0249** · 10/05/2007, 22h19

Code :

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

1
2
3
4
5
6
7
Private Sub AnneePromotion_LostFocus()
If IsNull(Me.AnneePromotion) Then
MsgBox "Erreur"
Me.AutreControle.SetFocus
Me.AnneePromotion.SetFocus
End If
End Sub