Discussion :

[Etxezarreta]

Bonjour,
J'ai un formulaire avec deux listes déroulantes et un sous formulaire: le sous formulaire se met à jour en fonction des valeurs des deux listes.

Une erreur "Erreur de compilation_Membre de méthode ou de donnees introuvable" apparaît, reliée à "RecordSource" dans Me.zone_extraction.RecordSource = strRequeteSQL
Je ne comprend pas pourquoi cela ne fonctionne pas: je pourrais passer par une requete et un "Query. la requete", mais je voudrais absolument passer par du SQL uniquement.
Merci de votre aide!

Voici le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
If IsNull(Me!listeCodesHorairesParClientActif) Then
    MsgBox "Veuillez sélectionner un code horaire"
Else
    strRequeteSQL = "SELECT tListeHorairesParClient.Client, tListeHorairesParClient.Code_horaire, tListeHorairesParClient.Description, tListeHorairesParClient.Duree, tListeHorairesParClient.Nombre_heures_payees, tListeHorairesParClient.Date_fin_de_validite" & vbCrLf & _
                     "FROM tListeHorairesParClient" & vbCrLf & _
                     "WHERE (((tListeHorairesParClient.Client)= '" & strClient & "')" & vbCrLf & _
                     "AND (((tListeHorairesParClient.Code_horaire)='" & strCodeHoraire & "') " & vbCrLf & _
                     "AND ((tListeHorairesParClient.Date_fin_de_validite) Is Null))"
 
End If
 
If strRequeteSQL <> "" Then
    Me.zone_extraction.RecordSource = strRequeteSQL
    Me.zone_extraction.Requery
Else
End If

[Phiphi41]

Bonjour

Supprimes les & vbCrLf, seul & _ suffit.

[Etxezarreta]

Bonjour Phiphi41,
je viens d'essayer, mais l'erreur persiste.
Merci de ton aide.
Etxe.

[Phiphi41]

En plus,

Il manque des espaces, affiche ta chaine SQL dans une messagebox et tu verras que par exemple après tListeHorairesParClient.Date_fin_de_validite qu'il faut un espace.

[Etxezarreta]

Rebonjour,

J'ai utilisé cette syntaxe dans une autre requête, et cela fonctionne.
Ici par contre je n'y arrive pas.
Je joins le fichier pour que vous puissiez voir ce qu'il se passe.
Merci d'avance!
Etxe.

[madefemere]

Bonjour,

Tu fais référence à un sous-formulaire, donc la syntaxe serait plutôt :

Code :

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

Me.zone_extraction.Form.RecordSource = strRequeteSQL

Cordialement.

[Etxezarreta]

Bonjour et merci de votre aide,

Cela génère une erreur: "Référence à objet manquant ou supprimé"

[madefemere]

Re-,

Est-ce que le sous-formulaire "zone_extraction" existe ? (Je pensais que tu l'as supprimé expressément ou par erreur dans la base postée)

Cordialement.

[Etxezarreta]

Il existe bel et bien!

[madefemere]

Dans la base que tu as postée ? il n'apparait pas


Cordialement.

[Etxezarreta]

Re,
C'est le sous-formulaire situé dans fRetourTriHoraireParClient

[madefemere]

Les sous-formulaires ou sous-états sont des objets à part.
Il faut d'abord les enregistrer comme formulaire ou état. Et c'est après que tu les mets en sous-formulaire dans un formulaire principal.

Cordialement.

[Etxezarreta]

Re,
Je suis donc obligé de créer un autre objet, sous formulaire ou requête, ensuite créer le sous formulaire puis de le lier à la source?
Je pensais pouvoir directement afficher les infos sélectionnées par la requete SQL dans une zone de sous formulaire indépendante.
Je m'y attelle donc.
Merci beaucoup de ton aide.
Etxe.

[tee_grandbois]

bonjour,

Je pensais pouvoir directement afficher les infos sélectionnées par la requete SQL dans une zone de sous formulaire indépendante.
Je m'y attelle donc.

c'est tout à fait possible d'afficher la requête sans passer par la création d'un sous-formulaire, la méthode est expliquée ici

[Etxezarreta]

tee_grandbois bonjour,
Merci de ton aide, j'ai maintenant une erreur de syntaxe, peux-tu me dire si tu vois quelque chose s'il te plaît?

[tee_grandbois]

enlève la première parenthèse de la clause WHERE ...elle est de trop.
Sinon, les parenthèses, c'est utile quand il y a des OR, hors ici, il n' y en a pas, donc on peut s'en passer: c'est le générateur de requêtes d'Access qui les met au cas où...

[tee_grandbois]

autre chose: il vaut mieux privilégier le doublement des guillemets plutôt que de remplacer par l'apostrophe, utilisée relativement couramment dans la langue française,ou encore mieux: utiliser l'identifiant numérique plutôt que le nom ou le libellé:

Code :

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

1
2
                     "WHERE ((tListeHorairesParClient.Client)= """ & strClient & """)" & _
                     "AND (((tListeHorairesParClient.Code_horaire)=""" & strCodeHoraire & """) " & _

ici, le vbcrlf n'as pas grande utilité sauf à "aérer" le code SQL

[Etxezarreta]

Merci tee-grandbois, cela fonctionne parfaitement.
Bonne continuation!
Etxe.