Discussion :

[foucal]

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 :

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

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 !

[madefemere]

Bonjour,

Peut-être :

Code :

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

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 :

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

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

@+

[foucal]

Madeferme,

ça marche nickel !

Merci Chef !

[foucal]

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 :

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

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,

[madefemere]

J'écrirai plutôt :

Code :

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

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

tout court pour définir le filtre

@+