Discussion :

[morobaboumar]

Bonsoir membres du forum,
J'ai écrit un code afin de renseigner obligatoirement le champ DateDepenseFA si seulement celui du montant est renseigné.

Code :

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

1
2
3
4
5
Private Sub Montant_Depense_LostFocus()
If ControleChampsVides = False Then     'Au moins 1 champs obligatoire est vide
        Exit Sub
    End If
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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
Function ControleChampsVides() As Boolean
On Error Resume Next
'Contrôle du champ Montant_Depense
If IsNull(Me.Montant_Depense) Then
    ControleChampsVides = False
    MsgBox "ATTENTION !" & vbCrLf & "Le Montant_Depense n'est pas sélectionné.", vbExclamation + vbOKOnly, "Entrez le Montant_Depense"
    Me.Montant_Depense.SetFocus
    'Me.Montant_Depense.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
'Contrôle du champ DateDepenseFA
If IsNull(Me.DateDepenseFA) Then
    ControleChampsVides = False
    MsgBox "ATTENTION !" & vbCrLf & "La DateDepenseFA " & vbCrLf & _
    "n'est pas sélectionnée.", _
    vbExclamation + vbOKOnly, _
    "Enregistrer La DateDepenseFA"
    Me.DateDepenseFA.SetFocus
    'Me.DateDepenseFA.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
 
'Contrôle du champ ObservationFA
''If IsNull(Me.ObservationFA) Then
    ''ControleChampsVides = False
    ''MsgBox "ATTENTION !" & vbCrLf & "L'ObservationFA n'est pas sélectionnée.", vbExclamation + vbOKOnly, "Enregistrer L'ObservationFA"
    ''Me.ObservationFA.SetFocus
    'Me.ObservationFA.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

La difficulté est que quand curseur va sur un autre champ qui n'est pas celui du Montant_Depense le code ne marche pas.



Cordialement.

[loufab]

Bonjour,

C'est normal, tu demandes à ce que cette vérification soit faite au moment de la perte du focus de la zone.

Si tu veux que cela soit fait avant l'enregistrement tu dois le brancher Before_update du formulaire.

Cordialement,

[hyperion13]

Salut
Ici un sujet qui ouvre une piste à votre problème.

[morobaboumar]

Bonjour loufab,
bonjour hyperion13,
Merci pour votre aide. Je suis entrain de faire des tests.
Cordialement.

[morobaboumar]

Merci infiniment membres du forum,
À bientôt pour une nouvelle discussion.
Cordialement.