Discussion :

[morobaboumar]

Bonsoir membres du forum,
La saisie de données est obligatoire dans la zone de texte TxtRecherche_ListeELEVES_ANNEE_CLASSE.
Comment faire en sorte au cas où je choisis de la quitter sans avoir entré de donnée ?



Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub TxtRecherche_ListeELEVES_ANNEE_CLASSE_Exit(Cancel As Integer)
If Tt(Me.TxtRecherche_ListeELEVES_ANNEE_CLASSE.Value) = "" Then
        MsgBox "Entrée Infos obligatoire", vbQuestion + vbYesNo + vbDefaultButton2, "ZONE OBLIGATOIRE"
Cancel = True
Else
If MsgBox("ATTENTION !!" & vbCrLf & "VOULEZ-VOUS VRAIMENT QUITTER CETTE ZONE ?", vbQuestion + vbYesNo + vbDefaultButton2, "MODIFICATION") = vbNo Then
    Cancel = True
 
 
    End If
End If
End Sub

Cordialement.

[morobaboumar]

Bonjour membres du forum,
Je viens d'écrire les codes suivants:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
Private Sub TxtRecherche_ListeELEVES_ANNEE_CLASSE_Exit(Cancel As Integer)
'If Tt(Me.TxtRecherche_ListeELEVES_ANNEE_CLASSE.Value) = "" Then
        'MsgBox "Entrée Infos obligatoire", vbQuestion + vbYesNo + vbDefaultButton2, "ZONE OBLIGATOIRE"
'Cancel = True
On Error GoTo WANDAKARA
    'If Me.Dirty Then
If Tt(Me.TxtRecherche_ListeELEVES_ANNEE_CLASSE.Value) = "" Then
        Select Case MsgBox("Entrée Infos obligatoire!!" _
                        & vbCrLf & "" _
                        & vbCrLf & "Vous devez entrer des données !" _
                        & vbCrLf & "" _
                        & vbCrLf & " ?" _
                        , vbYesNo Or vbExclamation Or vbDefaultButton2, "ZONE OBLIGATOIRE")
        Case vbYes
 
         MsgBox "Entrée Infos obligatoire", vbQuestion + vbYesNo + vbDefaultButton2, "ZONE OBLIGATOIRE"
       Cancel = True
 
          If ControleChampsVides = False Then
 
            Else
                TxtRecherche_ListeELEVES_ANNEE_CLASSE.SetFocus
            End If
 
        Case vbNo
 
                 TxtRecherche_ListeELEVES_Chiffre_Littre_Chiffre_Littre.SetFocus
        End Select
    Else
            Me.TxtRecherche_ListeELEVES_Chiffre_Littre_Chiffre_Littre.SetFocus
    End If
 
    Exit Sub
 
WANDAKARA:
    MsgBox err.Description
 
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Function ControleChampsVides() As Boolean
On Error Resume Next
 
'Contrôle de la zone de TxtRecherche_ListeELEVES_ANNEE_CLASSE
If IsNull(Me.TxtRecherche_ListeELEVES_ANNEE_CLASSE) Then
    ControleChampsVides = False
    MsgBox "ATTENTION !" & vbCrLf & "Aucune donnée saisie.", vbExclamation + vbOKOnly, "Entrez des Données"
    Me.TxtRecherche_ListeELEVES_ANNEE_CLASSE.SetFocus
    'Me.TxtRecherche_ListeELEVES_ANNEE_CLASSE.Dropdown  **** Pour dérouler le combobox à l'aide de la méthode DROPDOWN
    SendKeys "{F4}"      '*** Pour dérouler le combobox à l'aide de l'envoi de touche clavier (F4)
Exit Function
End If
ControleChampsVides = True
End Function

Piece jointe



Erreur constatée: comment gerer les boites à message qui s'affichent ?

Cordialement.

[morobaboumar]

Bonsoir membres du forum,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
Private Sub TxtRecherche_ListeELEVES_ANNEE_CLASSE_Exit(Cancel As Integer)
'If Tt(Me.TxtRecherche_ListeELEVES_ANNEE_CLASSE.Value) = "" Then
        'MsgBox "Entrée Infos obligatoire", vbQuestion + vbYesNo + vbDefaultButton2, "ZONE OBLIGATOIRE"
'Cancel = True
On Error GoTo WANDAKARA
    'If Me.Dirty Then
If Tt(Me.TxtRecherche_ListeELEVES_ANNEE_CLASSE.Value) = "" Then
        Select Case MsgBox("Entrée Infos obligatoire!!" _
                        & vbCrLf & "" _
                        & vbCrLf & "Vous devez entrer des données !" _
                        & vbCrLf & "" _
                        & vbCrLf & " ?" _
                        , vbYesNo Or vbExclamation Or vbDefaultButton2, "ZONE OBLIGATOIRE")
        Case vbYes
 
         MsgBox "Entrée Infos obligatoire", vbQuestion + vbYesNo + vbDefaultButton2, "ZONE OBLIGATOIRE"
       Cancel = True
 
          If ControleChampsVides = False Then
 
            Else
                TxtRecherche_ListeELEVES_ANNEE_CLASSE.SetFocus
            End If
 
        Case vbNo
 
                 Exit Sub
        End Select
    Else
                Exit Sub
    End If
 
    Exit Sub
 
WANDAKARA:
    MsgBox err.Description
 
End Sub

Erreur constatée: aidez moi à gérer les boites à message qui s'affichent ?
Cordialement.

[tee_grandbois]

bonsoir,
le code corrigé sur l'évènement Exit de TxtRecherche_ListeELEVES_ANNEE_CLASSE:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub TxtRecherche_ListeELEVES_ANNEE_CLASSE_Exit(Cancel As Integer)
On Error GoTo WANDAKARA
 
    If Tt(Me.TxtRecherche_ListeELEVES_ANNEE_CLASSE.Value) = "" Then
        Select Case MsgBox("Entrée Infos obligatoire!!" _
                    & vbCrLf & "" _
                    & vbCrLf & "Vous devez entrer des données !" _
                    & vbCrLf & "" _
                    & vbCrLf & " ?" _
                    , vbYesNo + vbExclamation + vbDefaultButton2, "ZONE OBLIGATOIRE")
 
            Case vbYes:    Cancel = True
            Case vbNo:     TxtRecherche_ListeELEVES_Chiffre_Littre_Chiffre_Littre.SetFocus
        End Select
    Else
        Me.TxtRecherche_ListeELEVES_Chiffre_Littre_Chiffre_Littre.SetFocus
    End If
 
    Exit Sub
 
WANDAKARA:
    MsgBox Err.Description
 
End Sub

la correction de la fonction ControleChampsVides:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Function ControleChampsVides() As Boolean
On Error Resume Next
 
'Contrôle de la zone de TxtRecherche_ListeELEVES_ANNEE_CLASSE
If IsNull(Me.TxtRecherche_ListeELEVES_ANNEE_CLASSE) Then
    ControleChampsVides = False
    MsgBox "ATTENTION !" & vbCrLf & "Aucune donnée saisie.", vbExclamation + vbOKOnly, "Entrez des Données"
    Me.TxtRecherche_ListeELEVES_ANNEE_CLASSE.SetFocus
    '=====>>> DROPDOWN est préférable à Sendkeys et de toute façon n'est utile que pour les combobox, pas pour les zones de texte
    'Me.TxtRecherche_ListeELEVES_ANNEE_CLASSE.Dropdown  **** Pour dérouler le combobox à l'aide de la méthode DROPDOWN
    'SendKeys "{F4}"      '*** Pour dérouler le combobox à l'aide de l'envoi de touche clavier (F4)
 
Else
    ControleChampsVides = True
End If
End Function

cette fonction doit être appelée Avant mise à jour de TxtRecherche_ListeELEVES_ANNEE_CLASSE:

Code :

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

1
2
3
Private Sub TxtRecherche_ListeELEVES_ANNEE_CLASSE_BeforeUpdate(Cancel As Integer)
    If Not ControleChampsVides Then Cancel = True
End Sub

on aurait pu aussi mettre:

Code :

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

1
2
3
Private Sub TxtRecherche_ListeELEVES_ANNEE_CLASSE_BeforeUpdate(Cancel As Integer)
Cancel = Not ControleChampsVides
End Sub

[morobaboumar]

Bonsoir tee_grandbois,
Votre code marche !
Merci infiniment.
Bien à vous.