Filtre d'accès VBA

Je suis en train d'utiliser un filtre en vba comme ceci:

Private Sub Form_Load()

    Me.Filter = "[Alvo] = " & AlvoAtual  
    Me.FilterOn = True  
    Me.Requery  

End Sub

Où AlvoAtual est variable globale, mais rien ne se passe. Lorsque je change la AlvoAtual pour une certaine valeur de rien qui se passe. Comme ceci:

Private Sub Form_Load()

     Me.Filter = "[Alvo] = 'AAAA'"
     Me.FilterOn = True
     Me.Requery

End Sub

Quelqu'un connait le problème?

Je suis l'adoption de cette question (VBAWhatnow) dans l'espoir de tomber répondu plutôt que de faire un doublon que j'ai été conseillé.

Je suis en train de faire la même chose, sauf avec des variables locales.

Mon filtre fonctionne correctement lorsque je définir manuellement les valeurs, mais quand j'ai introduire les variables le filtre ne fonctionne plus

Forms![frmPendingActions]![qryPendingAction subform].Form.Filter = "Filterby = FilterCrit"

Quelqu'un pourrait-il m'aider à trouver une bonne solution?

source d'informationauteur user569709

  1. 3

    Vous (VBAWhatnow) dit "Mon filtre fonctionne correctement lorsque je définir manuellement les valeurs, mais quand j'ai introduire les variables le filtre ne fonctionne plus".

    Puis dans votre filtre de cession ...

    .Filter = "Filterby = FilterCrit"

    Donc je suis en supposant que FilterCrit est le nom de votre variable locale. Si cela est vrai, construire l'expression de filtre à l'aide de la valeur de la variable plutôt que son nom.

    Si Filterby est un champ numérique de type ...

    .Filter = "Filterby = " & FilterCrit

    Si Filterby est un type de champ texte ...

    .Filter = "Filterby = """ & FilterCrit & """"

    Si aucune de ces variations est la réponse pour vous, de nous donner plus d'informations sur Filterby et FilterCrit.

  2. 0

    Essayez de remplacer votre 3 instructions par ceci: 

        DoCmd.ApplyFilter wherecondition:= "[Alvo] = " & AlvoAtual

    Notez que vous pouvez également définir la condition manuellement, et de définir la FilterOnLoad option à True et enregistrez votre formulaire. Aucune programmation n'est nécessaire dans ce cas.

    "Le meilleur de la macro n'est pas de la macro..."

  3. 0

    Hi essayez de modifier le code de la manière suivante:

    Private Sub Form_Load() 
    If Len(AlvoAtual & "") > 0 Then
        Me.Filter = "[Alvo] = '" & AlvoAtual & "'"   
        Me.FilterOn = True   
        'Me.Requery 
        MsgBox AlvoAtual
    Else
       Msgbox "No Value set for variable AlvoAtual"
    End If
End Sub

    Fourni le nom de la variable est épeautre droit et contient une valeur de chaîne, puis le filtre doit fonctionner. Aussi si vous avez un nom de colonne appelée Alvo dans la forme actuelle.

    Par la façon dont je ne vois pas pourquoi vous auriez besoin de faire une nouvelle requête dans les formes de la charge de l'événement.

    Espère que cette aide

  4. 0

    Son problème avec la manipulation de votre guillemets simples et doubles.
    Essayez comme ceci & travail

    Private Sub Form_Load()

    Me.Filter = "[Alvo] = '" & AlvoAtual & "'"""  'make sure to copy all these quotes correctly. "" is to print 1 double quote.
    Me.FilterOn = True  
    Me.Requery  

End Sub