Filtre dans un sous formulaire a partir d'une variable string du formulaire principal.

Bonjour a tous,

Je viens tout juste de laisser Excel pour access et déjà les pb commence, me revoila un débutant ! (déja que j'etais nul .... )

Voilà j'ai juste un petit problème je cherche à utiliser un code VBA pour rafraichir un sous formulaire à chaque opération sur le formulaire.

j'ai donc le code suivant.

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Modifiable24_Change() Dim A as String   A = Modifiable24.Value   Forms!F_Consultation!Fs_Consultation.Filter = "[Nom du demandeur]=" & A Form.Fs_Consultation.Fs_Consultation.FilterOn = True   End Sub

---

Mais bon... ça marche pas !

Si vous avez des idées, un tuto je prend tout !

Bonjour,

Peut-être :

Code:

---

1 2 3 4 5 6

Private Sub Modifiable24_Change() Dim A as String A = Modifiable24.Value Forms!F_Consultation!Fs_Consultation.Form.Filter = "[Nom du demandeur]=" & A Forms!F_Consultation.Fs_Consultation.Form.FilterOn = True End Sub

---

A vérifier :
La valeur de Modifiable24.Value , dans la liste modifiable, la colonne liée correspond au nom ou l'identification du demandeur??

Cas 1 - Si c'est l'identification du demandeur, le critère à la ligne 4 : "[Nom du demandeur]=" & A serait faux. Il faut faire référence à l'identification du demandeur dans le sous-formulaire : "[Id]=" & A

Cas 2 - Si c'est le nom du demandeur, donc du texte, la ligne devrait s'écrire :

Code:

---

Forms!F_Consultation!Fs_Consultation.Form.Filter = "[Nom du demandeur]='" & A & "'"

---

@+

Madeferme,

ça marche nickel !

Merci Chef !

Bonjour,

Dans le cas ou je vousdrais faire un filtre multicritère...
j'ai un code qui donne un truc dans ce goût là :

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Modifiable37_Change()   B = Modifiable37.Value A = Modifiable24.Value Forms!F_Consultation!Fs_Consultation.Form.Filter = "([Nom du demandeur]='" & A & "')" Forms!F_Consultation!Fs_Consultation.Form.Filter = Forms!F_Consultation!Fs_Consultation.Form.Filter & "([Machine]='" & B & "')" Forms!F_Consultation.Fs_Consultation.Form.FilterOn = True   End Sub

---

j'ai une erreur 3075...

Merci de votre aide !

Bien cordialement,

J'écrirai plutôt :

Code:

---

Forms!F_Consultation!Fs_Consultation.Form.Filter = "[Nom du demandeur]='" & A & "' AND [Machine]='" & B & "'"

---

tout court pour définir le filtre

@+