Discussion :

[vavavoum74]

Bonjour,

Je suis encore novice, merci d'en tenir compte.

Pour tester le remplissage de 3 cases dans un formulaire j'ai ce code qui fonctionne:

Code :

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

1
2
3
4
5
6
7
If (Nz(Me.DateEnlevement, "0") <> 0) And (((Nz(Me.NomRepreneur, "0") = 0) And (Nz(Me.VendeurRetour, "0") = 0))) _
Or (Nz(Me.NomRepreneur, "0") <> 0) And (((Nz(Me.DateEnlevement, "0") = 0) And (Nz(Me.VendeurRetour, "0") = 0))) _
Or (Nz(Me.VendeurRetour, "0") <> 0) And (((Nz(Me.DateEnlevement, "0") = 0) And (Nz(Me.NomRepreneur, "0") = 0))) _
Or (Nz(Me.VendeurRetour, "0") <> 0) And (((Nz(Me.DateEnlevement, "0") <> 0) And (Nz(Me.NomRepreneur, "0") = 0))) _
Or (Nz(Me.VendeurRetour, "0") <> 0) And (((Nz(Me.DateEnlevement, "0") = 0) And (Nz(Me.NomRepreneur, "0") <> 0))) _
Or (Nz(Me.VendeurRetour, "0") = 0) And (((Nz(Me.DateEnlevement, "0") <> 0) And (Nz(Me.NomRepreneur, "0") <> 0))) _
Then

Ce code étant utilisé sur plusieurs formulaires et à plusieurs occasions dans le même formulaire, je souhaiterais créer une fonction publique qui fasse ces tests.
J'ai créé la fonction:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Function Test3Remplis(Champ1 As String, Champ2 As String, Champ3 As String)
Dim TestOK As Integer
TestOK = 0
If (Nz(Champ1, "0") <> 0) And (((Nz(Champ2, "0") = 0) And (Nz(Champ3, "0") = 0))) _
Or (Nz(Champ2, "0") <> 0) And (((Nz(Champ1, "0") = 0) And (Nz(Champ3, "0") = 0))) _
Or (Nz(Champ3, "0") <> 0) And (((Nz(Champ1, "0") = 0) And (Nz(Champ2, "0") = 0))) _
Or (Nz(Champ3, "0") <> 0) And (((Nz(Champ1, "0") <> 0) And (Nz(Champ2, "0") = 0))) _
Or (Nz(Champ3, "0") <> 0) And (((Nz(Champ1, "0") = 0) And (Nz(Champ2, "0") <> 0))) _
Or (Nz(Champ3, "0") = 0) And (((Nz(Champ1, "0") <> 0) And (Nz(Champ2, "0") <> 0))) _
Then
    TestOK = TestOK + 1
End If
End Function

Ensuite j'essaie de faire appel à la fonction dans mon formulaire :

Code :

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

1
2
3
4
Private Sub Form_BeforeUpdate(Cancel As Integer)
Test3Remplis(Me.DateEnlevement, Me.NomRepreneur, Me.VendeurRetour)
 
If TestOK > 0 Then

Ici c'est une erreur de syntaxe, j'ai essayé plusieurs choses, sans arriver à faire fonctionner la fonction.

Merci d'avance pour vos lumières

[tee_grandbois]

bonjour,
essaie:

Code :

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

Public Function Test3Remplis(Champ1 As control, Champ2 As control, Champ3 As control)

[micniv]

Déjà la réponse de tee_grandbois doit te donner la solution.
Mais tu peux améliorer l’algorithme.
Si je comprends bien : tu veux que 1 ou 2 des 3 champs soient non nuls.
Ca peut se traduire comme :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Public Function Test3Remplis(Champ1 As control, Champ2 As control, Champ3 As control) as integer
 
If (  len(nz(Champ1))  +  len(nz(Champ2)) +  len(nz(Champ3)) > 0)  _
AND (  len(nz(Champ1))  *  len(nz(Champ2)) *  len(nz(Champ3)) = 0)
Then
    Test3Remplis= 1
else
Test3Remplis=0
End If
End Function

Ensuite, pour appeler la fonction dans ton formulaire :

Code :

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

1
2
3
4
Private Sub Form_BeforeUpdate(Cancel As Integer)
 
if Test3Remplis(Me.DateEnlevement, Me.NomRepreneur, Me.VendeurRetour) = 1 then
...

[vavavoum74]

Merci beaucoup Tee et Micniv, cela fonctionne maintenant parfaitement!

Je met résolu