Discussion :

[Marcello5255]

Bonjour à tous,


Avec ce code, je n'obtiens pas ce que je voudrais:

Code :

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

1
2
3
4
5
Private Sub NumOR_BeforeUpdate(Cancel As Integer)
 If NumClient <> ORE_NumClient Then
      MsgBox "Les clients ne correspondent pas", vbApplicationModal
 End If             
End Sub

Je pensais que avec "vbApplicationModal" je ne pourrais pas continuer, si je ne réponds pas au message. Or, le curseur étant automatiquement positionné sur OK, si je tape enter, la boîte de dialogue est fermée, et je continue la saisie dans mon formulaire.

Merci pour vos réponses.

[RobiPMS]

Bonjour.

Si je comprends bien, tu veux obliger l'utilisateur à "corriger" son encodage si les clients ne correspondent pas, et à l'empêcher de continuer la saisie tant que ce n'est pas correct? Si c'est bien cela, j'appliquerais plutôt la méthode Undo (beforeUpdate) ou OldValue (AfterUpdate).

Quel champ vient d'être saisi au moment où tu veux lancer la vérification et afficher le message?

Cordialement.

[Marcello5255]

Oui Robert, c'est bien celà, et je voudrais effectuer la vérification après la saisie du champ "NumOR"

[RobiPMS]

Dans ce cas, j'essaierais :

Code :

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

1
2
3
4
5
6
7
Private Sub NumOR_BeforeUpdate(Cancel As Integer)
 If NumClient <> ORE_NumClient Then
      MsgBox "Les clients ne correspondent pas"
      Cancel = True
      Me.NumOR.Undo
 End If             
End Sub

Le message sera affiché, et la saisie qui vient d'être faite annulée après le clic sur OK.

[Marcello5255]

Voilà la différence entre un confirmé et un habitué.

J'ai mis le code sur l'événement "Exit", parce que sur "Before update" si je tape deux fois "Enter", il laisse continuer alors que l'erreur de correspondance n'a pas été corrigée.

Un grand merci à toi, Robert.