Discussion :

[Marcopololo]

Bonjour,


J'ai un petit soucis avec le bout de code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub NomEntreprise_LostFocus()
 
        If Me.NomEntreprise Like ("*'*") Then       'Interdit le caractère mentionné dans la saisie du nom
            Me.NomEntreprise.SetFocus
            MsgBox ("Caractère ' interdit")
        Else
        End If
 
End Sub

Si le caractère ' est saisi dans le champ NomEntreprise j'envoie un msgbox et je veux que le focus revienne sur le champ NomEntreprise.
Et là cela ne fonctionne pas, il se place sur le champ suivant de la tabulation.

J'ai essayé de mettre le même code sur la réception du champ suivant sur réception focus, là cela fonctionne mais ne me convient pas totalement.
Quelqu'un aurait une idée du problème ?

Merci d'avance

Marcopololo

[marot_r]

Je suis surpris qu'il ne marche pas mais je déplacerai simplement ton code de contrôle sur Après MAJ (after update). Ça devrait donner le même résultat.

A+

[LedZeppII]

Bonjour,

je pense que l'événement "sur sortie" est plus approprié que "sur perte de focus".

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub NomEntreprise_Exit(Cancel As Integer)
 
        If Me.NomEntreprise Like ("*'*") Then       'Interdit le caractère mentionné dans la saisie du nom
            Cancel=True  ' Annule sortie du contrôle
            MsgBox ("Caractère ' interdit")
        Else
        End If
 
End Sub

A+

[Marcopololo]

Effectivement cela devrait marcher. J'ai aussi essayé l'idée de LedZepII, et cela fait la même chose.

Plus que bizarre !!

Marcopololo

[LE VIEUX]

bonjour,
testé chez moi ça marche :

Code :

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

1
2
3
4
5
6
7
8
Private Sub NomEntreprise_Exit(Cancel As Integer)
If Me.NomEntreprise Like ("*'*") Then
 
 MsgBox ("caractère ' interdit"), vbCritical
 Cancel = True
 
End If
End Sub

c'est la même que LedZeppII à l'exeption du cancel après MsgBox, il est possible que la validation de MsgBox passe le focus au champ suivant
voir chez vous,
à +

[LE VIEUX]

plus probable,
cancel = true annule la procédure évenement c'est pour cela probablement que le focus retourne au champ en cours, à confirmer par spécialiste !

[Marcopololo]

J'ai refais le test, mais toujours le même soucis. Donc pour l'instant je reste avec ce bout de code sur la réception focus du champ suivant. Et la c'et OK.

Encore plus étonnant j'ai testé avec un formulaire presuqe identique et la ca fonctionne.

Marcopololo

[javelot69]

Bonsoir,

Si le caractère ' est saisi dans le champ NomEntreprise j'envoie un msgbox et je veux que le focus revienne sur le champ NomEntreprise.
Et là cela ne fonctionne pas, il se place sur le champ suivant de la tabulation.

Aberration classique d'Access ! La solution : envoyer le focus sur un autre champ puis le renvoyer sur le champ que tu vises

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub NomEntreprise_LostFocus()
 
        If Me.NomEntreprise Like ("*'*") Then       'Interdit le caractère mentionné dans la saisie du nom
            Me.AutreChamp.SetFocus
            Me.NomEntreprise.SetFocus
            MsgBox ("Caractère ' interdit")
        Else
        End If
 
End Sub

Cela se passe tellement vite que tu ne vois rien à l'écran. Espérant que cela t'aidera.

Bonne soirée.