Discussion :

[outilsuiviedegestion]

Bonjour,

j'ai crée un code VBA qui exécute un msgbox sous une condition.
Si le champ est rempli alors le msgbox apparaît.
Si le champ n'est pas rempli alors il ne se passe rien.

Je ne sais pas pourquoi mais le msgbox s'affiche mais il ne disparait jamais quand je clique sur OK, il revient tout de suite après.
Quand j'essaye d'enregistrer je ne peux pas car le msgbox revient encore.

J'ai remarqué également une croix rouge sur le côté, une croix qui n'est pas censé apparaître pour un msgbox, en tout cas qui n'apparait pas sur mes autres msgbox.

Code :

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

1
2
3
4
5
6
Private Sub champ_BeforeUpdate(Cancel As Integer)
If Not IsNull(Me.champ) Then
         MsgBox ".......", vbCritical
         Cancel = True
        End If
End Sub

[tee_grandbois]

bonjour,

Je ne sais pas pourquoi mais le msgbox s'affiche mais il ne disparait jamais quand je clique sur OK, il revient tout de suite après.

C'est pourtant bien ce que tu demandes au code de faire: If Not IsNull(Me.champ) Then Msgbox
donc tant que le champ sera renseigné la MsgBox apparaitra

J'ai remarqué également une croix rouge sur le côté

c'est à cause de vbCritical

[outilsuiviedegestion]

D'accord je comprend mieux... Je dois changer mon code de façon à ce que si le champs est rempli alors la msgbox apparait pour indiquer à l'utilisateur les changements à effectuer dans le formulaire ou dans d'autres formulaires mais il ne doit pas rester. Est-ce que c'est possible ?

Code :

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

1
2
3
4
5
6
7
Private Sub champ_BeforeUpdate(Cancel As Integer)
 
If Me.champ = "20/07/2018" Then 
         MsgBox "Vous avez renseigné [...]. Rappel : Dans l'onglet [...], modifiez [...]."
         Cancel = True
End If
End Sub

Sauf que je ne veux pas pointer une date précise mais n'importe quelle date qui pourrait être inscrite.
J'ai cherché comment spécifier en VBA un champ rempli mais sans succès, encore moins lorsqu'il s'agit d'une date.

[tee_grandbois]

Je dois changer mon code de façon à ce que si le champs est rempli alors la msgbox apparait pour indiquer à l'utilisateur les changements à effectuer dans le formulaire ou dans d'autres formulaires mais il ne doit pas rester. Est-ce que c'est possible ?

C'est possible mais dans ce cas, la saisie doit être annulée en effaçant le contenu du champ (avec la touche Echap) pour faire disparaitre le message .

Sauf que je ne veux pas pointer une date précise mais n'importe quelle date qui pourrait être inscrite.
J'ai cherché comment spécifier en VBA un champ rempli mais sans succès, encore moins lorsqu'il s'agit d'une date

si c'est un champ du formulaire :

Code :

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

If Me.champ = Me.UnautreChamp Then

Si c'est dans un autre formulaire (obligatoirement ouvert) :

Code :

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

If Me.champ = Forms.AutreFormulaireOuvert.UnautreChamp Then

Si c'est dans une table, on peut utiliser une fonction de domaine :

Code :

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

If me.champ = DLookup("Nomchamp", "Nomtable","WhereCondition") Then

ou un Recordset:

Code :

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

1
2
3
4
5
6
7
Dim oRS As Recordset
Set oRS = CurrentDb.OpenRecordset("select monchamp from matable where (Wherecondition)")
if not oRS.EOF Then
    If Me.champ = ors!monchamp Then
        ....
    End If
End if

[outilsuiviedegestion]

Merci j'ai pu régler mon soucis !