[AC-2010] Formulaire de recherche / sous formulaire continu [Résolu]

[efilippi]

Bonjour,

je cherche à appliquer le tutoriel RECHERCHE MULTI-CRITERES

à un sous formulaire continu au lieu du list box.

Donc j'en ai conlu qu'il fallait agir sur la source du sous formulaire continu au lieu du contenu de la list box.

Dans la procédure Form_Load j'ai remplacé

Code :

1
2
Me.lstResults.RowSource = "ma requete"
Me.lstResults.Requery

par

Code :

1
2
Me.lstContacts.SourceObject = "ma requete"
Me.lstContacts.Requery

où lstContacts est le contrôle contenant le sous-formulaire continu

mais j'obtiens l'erreur suivante :
Erreur d'exécution '2124' Nom de formulaire non conforme aux règles d'affectation des noms d'objets Microsft Access."

J'ai trouvé dans le forum un post analogue qui parle de pb de string à la fin .. mais ça ne résoud pas mon problème.

Je ne comprends pas. Pouvez-vous m'aider ?

Merci d'avance,
Eric.

[Philippe JOCHMANS]

Bonjour

Un contrôle contenant un sous-formulaire

C'est la source du sous-formulaire qu'il faut modifier.

Peux-tu donner un peu plus de détails sur la création et l'agencement de ton sous-formulaire.

Philippe

[efilippi]

Un contrôle contenant un sous-formulaire
C'est la source du sous-formulaire qu'il faut modifier.

Bonjour,

je me suis mal exprimé, j'ai juste remplacé la list box par un sous formulaire continu. Donc effectivement, je cherche à modifier la source du sous formulaire. ... et c'est cette modification qui provoque une erreur.

Voici ci-dessous une image de mon formulaire de recherche avec à droite une list box qui marche bien, et à gauche un sous formulaire continu qui ne marche pas.

Voici le code de chargement de mon formulaire :

Code :

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
Private Sub Form_Load()
 
Dim ctl As Control
Dim requete As String
 
For Each ctl In Me.Controls
    Select Case Left(ctl.Name, 3)
        Case "txt"
            ctl.Value = ""
    End Select
Next ctl
 
Me.lblStat.Caption = ""
 
requete = "SELECT Client.N°, Client.Nom, Client.Prénom, Client.Email, Client.Téléphone, Client.[N° société], Client.Commentaires, Client.Adresse, Client.[Code postal], Client.Ville, Client.Pays, Client.[News letter] FROM Client;"
 
' Mise à jour de la source de la list box
Me.lstcontacts2.RowSource = requete
Me.lstcontacts2.Requery
 
' Mise à jour de la source du sous formulaire
Me.lstContacts.SourceObject = requete
Me.lstContacts.Requery
 
End Sub

C'est l'instruction 22 qui pose problème ; j'ai l'impression qu'il n'accepte pas de requete comme source (alors que ça marche bien quand on colle la requête directement dans la proriété du formulaire en mode création).



Eric.

[efilippi]

Bon,

j'ai trouvé ma solution (et mon erreur), il faut mettre :

Code :

Me.lstContacts.Form.RecordSource = "ma requete"