Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Nouveau membre du Club
    Homme Profil pro
    fonctionnaire
    Inscrit en
    février 2019
    Messages
    47
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 47
    Localisation : Algérie

    Informations professionnelles :
    Activité : fonctionnaire

    Informations forums :
    Inscription : février 2019
    Messages : 47
    Points : 32
    Points
    32
    Par défaut 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

  2. #2
    Membre émérite Avatar de hyperion13
    Homme Profil pro
    Calot120 - Enseignant Post Bac
    Inscrit en
    octobre 2007
    Messages
    1 726
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 55
    Localisation : France

    Informations professionnelles :
    Activité : Calot120 - Enseignant Post Bac
    Secteur : Enseignement

    Informations forums :
    Inscription : octobre 2007
    Messages : 1 726
    Points : 2 652
    Points
    2 652
    Par défaut
    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
    "Le savoir est la seule matière qui s'accroit quand on la partage" (Socrate)
    GMT+4 - 21°19'18" S - 055°25'32" E
    Inutile de me contacter par MP
    Merci de cliquer sur si la réponse est pertinente. N'oubliez pas svp de clôturer le sujet en cliquant sur

  3. #3
    Nouveau membre du Club
    Homme Profil pro
    fonctionnaire
    Inscrit en
    février 2019
    Messages
    47
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 47
    Localisation : Algérie

    Informations professionnelles :
    Activité : fonctionnaire

    Informations forums :
    Inscription : février 2019
    Messages : 47
    Points : 32
    Points
    32
    Par défaut
    Bonjour, voici le form et le code.

    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
    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
    Images attachées Images attachées  

  4. #4
    Nouveau membre du Club
    Homme Profil pro
    fonctionnaire
    Inscrit en
    février 2019
    Messages
    47
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 47
    Localisation : Algérie

    Informations professionnelles :
    Activité : fonctionnaire

    Informations forums :
    Inscription : février 2019
    Messages : 47
    Points : 32
    Points
    32
    Par défaut
    Bonjour,
    Voici une partie de la BDD concernant cette discussion,en espérant trouver une solution.
    Fichiers attachés Fichiers attachés

  5. #5
    Membre émérite Avatar de hyperion13
    Homme Profil pro
    Calot120 - Enseignant Post Bac
    Inscrit en
    octobre 2007
    Messages
    1 726
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 55
    Localisation : France

    Informations professionnelles :
    Activité : Calot120 - Enseignant Post Bac
    Secteur : Enseignement

    Informations forums :
    Inscription : octobre 2007
    Messages : 1 726
    Points : 2 652
    Points
    2 652
    Par défaut
    Éh oui, les fameux formulaire de navigation.

    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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
    Fichiers attachés Fichiers attachés
    "Le savoir est la seule matière qui s'accroit quand on la partage" (Socrate)
    GMT+4 - 21°19'18" S - 055°25'32" E
    Inutile de me contacter par MP
    Merci de cliquer sur si la réponse est pertinente. N'oubliez pas svp de clôturer le sujet en cliquant sur

  6. #6
    Nouveau membre du Club
    Homme Profil pro
    fonctionnaire
    Inscrit en
    février 2019
    Messages
    47
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 47
    Localisation : Algérie

    Informations professionnelles :
    Activité : fonctionnaire

    Informations forums :
    Inscription : février 2019
    Messages : 47
    Points : 32
    Points
    32
    Par défaut
    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.

  7. #7
    Membre émérite Avatar de hyperion13
    Homme Profil pro
    Calot120 - Enseignant Post Bac
    Inscrit en
    octobre 2007
    Messages
    1 726
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 55
    Localisation : France

    Informations professionnelles :
    Activité : Calot120 - Enseignant Post Bac
    Secteur : Enseignement

    Informations forums :
    Inscription : octobre 2007
    Messages : 1 726
    Points : 2 652
    Points
    2 652
    Par défaut
    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.
    "Le savoir est la seule matière qui s'accroit quand on la partage" (Socrate)
    GMT+4 - 21°19'18" S - 055°25'32" E
    Inutile de me contacter par MP
    Merci de cliquer sur si la réponse est pertinente. N'oubliez pas svp de clôturer le sujet en cliquant sur

  8. #8
    Nouveau membre du Club
    Homme Profil pro
    fonctionnaire
    Inscrit en
    février 2019
    Messages
    47
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 47
    Localisation : Algérie

    Informations professionnelles :
    Activité : fonctionnaire

    Informations forums :
    Inscription : février 2019
    Messages : 47
    Points : 32
    Points
    32
    Par défaut
    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
    Fichiers attachés Fichiers attachés

  9. #9
    Membre émérite Avatar de hyperion13
    Homme Profil pro
    Calot120 - Enseignant Post Bac
    Inscrit en
    octobre 2007
    Messages
    1 726
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 55
    Localisation : France

    Informations professionnelles :
    Activité : Calot120 - Enseignant Post Bac
    Secteur : Enseignement

    Informations forums :
    Inscription : octobre 2007
    Messages : 1 726
    Points : 2 652
    Points
    2 652
    Par défaut
    Dans la bdd que j'ai déjà joint remplacer
    bloc IF de produit
    remplacer
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    remplacer
    Me.Texte15
    par
    Forms![Formulaire de navigation]!SousFormulaireNavigation.Form.[rchmouvement]
    normalement, c'est bon
    "Le savoir est la seule matière qui s'accroit quand on la partage" (Socrate)
    GMT+4 - 21°19'18" S - 055°25'32" E
    Inutile de me contacter par MP
    Merci de cliquer sur si la réponse est pertinente. N'oubliez pas svp de clôturer le sujet en cliquant sur

  10. #10
    Nouveau membre du Club
    Homme Profil pro
    fonctionnaire
    Inscrit en
    février 2019
    Messages
    47
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 47
    Localisation : Algérie

    Informations professionnelles :
    Activité : fonctionnaire

    Informations forums :
    Inscription : février 2019
    Messages : 47
    Points : 32
    Points
    32
    Par défaut
    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.
    Fichiers attachés Fichiers attachés

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 3
    Dernier message: 30/05/2012, 09h59
  2. Réponses: 2
    Dernier message: 13/04/2011, 15h06
  3. [XL-2003] Recherche multicritere avec condition
    Par doudou1609 dans le forum Excel
    Réponses: 4
    Dernier message: 15/04/2009, 17h24
  4. recherche multicritere avec jsp
    Par mghari11 dans le forum Servlets/JSP
    Réponses: 3
    Dernier message: 23/06/2008, 17h27
  5. Recherche Multicriteres Avec Un Formulaire Access
    Par jo001 dans le forum Modélisation
    Réponses: 1
    Dernier message: 05/05/2007, 13h26

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo