filtre multicritere avec z texte de recherche d'un autre formulaire

Version imprimable

26/06/2019, 14h26
jamital

filtre multicritere avec z texte de recherche d'un autre formulaire

Bonjour,
j'ai un filtre multicritere vba pour formulaire qui marche a meveille mais, en voulant l'associer à des zones de texte d'un formulaire de navigation,le filtre bug avec le message "erreur 2427".
en fait je suis tres mauvais en vb et je demande si quelqu'un pourrait corriger cette erreur et Merci
26/06/2019, 15h14
hyperion13

Salut
Le Formulaire de navigation disponible depuis Acc2013 ? Alors mauvaise limonade si vous cherchez des valeurs dans les contrôles de navigation qui ne sont pas actifs, d'où très certainement votre erreur 2427 (pas de valeur dans l'expression) !
Une capture de votre form serait la bienvenue ainsi que la syntaxe vba de votre filtre ou vos filtres

1 pièce(s) jointe(s)

Bonjour, voici le form et le code.

Code:

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
Private Sub Commande258_Click()
'formulaire tansFert
 
'filtre remis a zero
f = ""
 
'produit..................................................................................................................
If Not IsNull(Me.RCHPRODUIT) And Me.RCHPRODUIT <> "" Then
	If f <> "" Then
		f = f & " AND produitnaf = """ & Me.RCHPRODUIT & """"
	Else
		f = "produitnaf = """ & Me.RCHPRODUIT & """"
	End If
End If
 
'DATE..................................................................................................................
If Not IsNull(Me.rchDATEDEBUT) And Me.rchDATEDEBUT <> "" And Not IsNull(Me.rchDATEFIN) And Me.rchDATEFIN <> "" Then
	If f <> "" Then
		f = f & " AND clng([DAT]) BETWEEN " & CLng(Me.rchDATEDEBUT) & " AND " & CLng(Me.rchDATEFIN) & ""
	Else
		f = "clng([DAT]) BETWEEN " & CLng(Me.rchDATEDEBUT) & " AND " & CLng(Me.rchDATEFIN) & ""
	End If
End If
 
 
'Mouvement..................................................................................................................
If Not IsNull(Me.rchmouvement) And Me.rchmouvement <> "" Then
	If f <> "" Then
		f = f & " AND mouvement = """ & Me.rchmouvement & """"
	Else
		f = "mouvement = """ & Me.rchmouvement & """"
	End If
End If
Me.Filter = f
Me.FilterOn = True
End Sub

30/06/2019, 11h23
jamital

1 pièce(s) jointe(s)

Bonjour,
Voici une partie de la BDD concernant cette discussion,en espérant trouver une solution.

1 pièce(s) jointe(s)

Éh oui, les fameux formulaire de navigation.:weird:

Il faudra insérer un btn de commande dans votre form de navigation, là où vous avez inséré vos 2 textbox en rouge et sur l'évènement sur click :

Code:

1
2
3
4
5
6
7
8
9
If (Not IsNull(Me.Texte9) And Me.Texte9 <> "") And (Not IsNull(Me.Texte11) And Me.Texte11 <> "") Then
    If f <> "" Then
        f = f & " AND [Dat] BETWEEN " & Format(Me.Texte9, "\#mm\/dd\/yyyy\#") & " AND " & Format(Me.Texte11, "\#mm\/dd\/yyyy\#")
    Else
        f = "[Dat] BETWEEN " & Format(Me.Texte9, "\#mm\/dd\/yyyy\#") & " AND " & Format(Me.Texte11, "\#mm\/dd\/yyyy\#")
    End If
End If
Forms![Formulaire de navigation].[SousFormulaireNavigation].Form.Filter = f
Forms![Formulaire de navigation].[SousFormulaireNavigation].Form.FilterOn = True

01/07/2019, 10h44
jamital

Merci hyperion13, Est ce que il ya une possibilité par ex: fusionner un filtre pour date dans le f de navigation et un autre filtre pour l'autre formulaire .
Précision: les txtbox date du form navigation servent en mème temps de critères à d'autre forms et plusieurs requête.,d’où est l’intérêt.
01/07/2019, 11h26
hyperion13

Oui il ne faut conserver sur l'évènement sur click que le bloc IF de date et supprimer ceux de mouvement et produit dans la bdd qui j'ai joint.
01/07/2019, 12h54
jamital

1 pièce(s) jointe(s)

Salut,
c'est ce que je viens de faire ,les deux filtre ne sont pas fusionné ,chaque fois le filtre est réinitialiser. pj bdd

Dans la bdd que j'ai déjà joint remplacer
bloc IF de produit
remplacer
Code:

1 2 3 4 remplacer Me.cboproduit et Me.cboproduit.Column(0) par Forms![Formulaire de navigation]!SousFormulaireNavigation.Form.[RCHPRODUIT]
bloc IF de mouvement
Code:

1 2 3 4 remplacer Me.Texte15 par Forms![Formulaire de navigation]!SousFormulaireNavigation.Form.[rchmouvement]
normalement, c'est bon

02/07/2019, 12h01
jamital

1 pièce(s) jointe(s)

Bonjour,

J'ai les yeux qui sortaient de leur place. enfin c'est réglé et voici exemple de la bdd et code.
Merci beaucoup.