comment faire un setfocus avec before update ?

**mat75019** · 14/04/2006, 10h43

Bonjour je souhaiterais faire un setfocus quand une erreur de saisie est faite par l'utilisateur (evenement Avant maj).
lorsque je fait ca access met le message d'erreur 2108 : vous devez enregistrer le champ avant d'executer l'action AtteindreControle, la methode GoToControl ou SetFocus

je precise que j'ai essayé avec Apres MAJ, je n'est pas de message d'erreur mais le setfocus ne marche pas, de toute facon le apres MAJ ne me convient pas car l'utilsateur peut laisser la mauvaise valeur aprés le message d'erreur.

Comment faire ?
Merci d'avance !

**loufab** · 14/04/2006, 10h50

utilise sur Sortie pour contrôler la saisie.

avec un cancel = true l'utilisateur reste dans son jus. jusqu'à la bonne saisie.

**mat75019** · 14/04/2006, 10h56

J'ai le meme probleme qu'avec after update, l'utilisateur peu laisser la mauvaise saisie.
ou-ce que je place ton cancel = true ?
voila le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub tx_occ_Exit(Cancel As Integer)
Dim Nb As Long, lg As Long
Nb = Me.tx_occ
lg = Fix(log(Nb + 0.11) / log(10)) + 1
    If Nb > 100 Or Nb < 0 Then
        MsgBox "La valeur saisie pour le taux d'occupation n'est pas valable" & Chr(10) & "Veuillez saisir une valeur entre 0 et 100"
                Forms!f_EnregistrementNouvelemprunteur.Commande108.Enabled = False
        Me.tx_occ.SetFocus
    Else
        Forms!f_EnregistrementNouvelemprunteur.Commande108.Enabled = True
    End If
End Sub

Merci encore !]

**mat75019** · 14/04/2006, 11h04

personne n'a de solution ?

**loufab** · 14/04/2006, 11h15

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub tx_occ_Exit(Cancel As Integer)
Dim Nb As Long, lg As Long
Nb = Me.tx_occ
lg = Fix(log(Nb + 0.11) / log(10)) + 1
    If Nb > 100 Or Nb < 0 Then
        MsgBox "La valeur saisie pour le taux d'occupation n'est pas valable" & Chr(10) & "Veuillez saisir une valeur entre 0 et 100"
                Forms!f_EnregistrementNouvelemprunteur.Commande108.Enabled = False
        Me.tx_occ.SetFocus
    Else
        Forms!f_EnregistrementNouvelemprunteur.Commande108.Enabled = True
    End If
End Sub

Pour un controle aussi peut évolué je suggère ceci :

Dans le controle tx_occ
dans la propriété Valide si
Marque >=0 Et <=100
Met ton message d'erreur dans la propriété Message si erreur

Plus simple et plus efficace.