Discussion :

[nianko]

Bonjour,

J'ai un formulaire avec une combo box qui me permets de filter les resultats d'une requete (j'ai les noms d'une liste d'objets et je veux savoir qulles commandes ont ete passees sur ces objets).
Ce formulaire a pour source la requete qry_LookUp. J'ai cree un Etat a partir de cette requete qry_LookUp, et j'ai un command bouton sur mon formulaire qui me permets d'afficher/imprimer l'Etat. Sauf que j'aimerais que l'Etat se mette automatiquement a jour lorsque j'utilise la cbo pour filter mes resultats. Lorsque je clique sur le bouton imprimer, il n'y a aucun filtre et l'Etat affiche la liste complete des objets.
Comment faire pour que l'Etat prenne en compte le filtre actif au travers de la combo box?

Merci d'avance

[Invité]

Bonjour
Comment agit ta CboBox? Elle modifie les critères de la requête Source, ou applique juste une fonction "filtre"?

[nianko]

Bonjour!

Ma cbo agit avec le code suivant:

Code :

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

1
2
3
4
5
6
Private Sub cboCommandByBuyers_AfterUpdate()
    Dim strSQL As String
    strSQL = "SELECT * FROM qryCommand_LookUp WHERE [Buyer_ID] = " & Me.cboCommandByBuyers& " ORDER BY Date DESC"
    Me.Form.RecordSource = strSQL
    Me.Form.Requery
End Sub

Nianko

[Invité]

Alors sur l'ouverture de ton état:

Code :

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

Me.RecordSource = Form_NomDeTonFormulaire.RecordSource

Il faut simplement que ton formulaire reste ouvert.

[nianko]

J'essaye

[nianko]

reBonjour,

Euh, j'ai mis:

Code :

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

1
2
3
4
 
Private Sub Report_Open(Cancel As Integer)
Me.RecordSource = frmLookUpByBuyers.RecordSource
End Sub

Mais le decodeur me dit erreur 424 Object Required.
Comment ce fait-ce?

Merci

[nianko]

Mon erreur:

Code :

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

1
2
3
Private Sub Report_Open(Cancel As Integer)
Me.RecordSource = Forms!frmLookUpByBuyers.RecordSource
End Sub