Discussion :

[a2line]

Bonjour,
j'aurais besoin d'un petit coup de main...
en VBA, je souhaiterais exécuter ma requête sql dans un sous formulaire mais je n'arrive pas à trouver le bon code.
Voici celui que j'ai actuellement mais qui ne fonctionne pas :

Code :

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

Forms![liste]![resultat].Form.RecordSource = req

liste -> nom du formulaire
resultat -> nom du sous-formulaire
req -> nom de la requête sql

je vous remercie d'avance...

[stéphane_ais2]

Bonjour,

Code :

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

1
2
3
4
 
 Dim strSQL As String
strSQL = CurrentDb.QueryDefs("REQUETE").SQL
Me!SousForm.Form.RecordSource = strSQL

...

SE

[a2line]

strSQL = CurrentDb.QueryDefs("REQUETE").SQL

A quoi est-ce que ça sert?

[Fablondon]

A quoi est-ce que ça sert?

Code :

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

strSQL = CurrentDb.QueryDefs("REQUETE").SQL

A recuperer le code SQl de la requete Access qui s appelle REQUETE.
Enfin je crois..

[a2line]

ok mais dans mon cas ma requête SQL est dans déjà dans "req" :

Code :

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

Forms![Liste]![resultat].Form.Recordset = req

donc ais-je vraiment besoin de récupérer le code alors?

PS : avec ce code le message d'erreur est :

l'expression entrée fait référence à un objet fermé ou supprimé

[stéphane_ais2]

Oui, donc...

Code :

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

strSQL = CurrentDb.QueryDefs("req").SQL

...

SE

[Fablondon]

Je crois qu il y a un mal entendu
Ta requete est une chaine de caractere ou un objet requete access ?


De plus l'expression entrée fait référence à un objet fermé ou supprimé indique que tu essaye de modifier un formulaire ou sous formuliare qui est ferme, il faudrait qu il soit ouvert pour pouvoir le modifier...

[fredhali2000]

Et comment l'ouvrir ???
SVP
Merci...

[Fablondon]

Peux tu nous dire quelle ligne genere l erreur ?

[stéphane_ais2]

Tu dois définir une référence permanente à la bibliothèque d'objets DAO 3.6 dans Microsoft Visual Basic Editor.

Menu//Outils//Références

SE

[a2line]

1°/ "req" est une requête sql de type "SELECT... FROM... WHERE...".

2°/ la ligne qui génère l'erreur est

Code :

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

Forms![Liste]![resultat].Form.Recordset = req

3° quand je mets :

Code :

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

1
2
strSQL = CurrentDb.QueryDefs("req").sql
Me!resultat.Form.RecordSource = strSQL

Un message d'erreur s'affiche et me dit :

"élément non trouvé dans cette collection"
et la ligne qui est surlignée est :

Code :

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

strSQL = CurrentDb.QueryDefs("req").sql

[fredhali2000]

Chez moi c'est la ligne Me.sousform.Form.RecordSource = req qui pose problème...

[a2line]

Tu dois définir une référence permanente à la bibliothèque d'objets DAO 3.6 dans Microsoft Visual Basic Editor.

Menu//Outils//Références

je viens de vérifier : c'est fait!

[fredhali2000]

Oui moi aussi c'est fait...

[stéphane_ais2]

quand je mets :

Code :

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

1
2
strSQL = CurrentDb.QueryDefs("req").sql
Me!resultat.Form.RecordSource = strSQL

Un message d'erreur s'affiche et me dit :

"élément non trouvé dans cette collection"
et la ligne qui est surlignée est :

Code :

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

strSQL = CurrentDb.QueryDefs("req").sql

La requête est-elle bien enregistrée sous le nom "req"?
resultat est-il bien le nom du sous-form?

SE

[Fablondon]

Je crois qu il utilise simplement une chaine de caractere pour se requete et non pas un requete access... donc cette methode me peut pas marcher !

[a2line]

oui j'ai bien :

Code :

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

 req = "SELECT req1.Code_LPP1 FROM req1....."

et oui 'resultat' est bien le nom du sous-formulaire...

[Fablondon]

Apres t etre assure que le formulaire que tu modifie soit ouvert,quel est ton message d erreur ?

[stéphane_ais2]

Je crois qu il utilise simplement une chaine de caractere pour se requete et non pas un requete access... donc cette methode me peut pas marcher !

Merci de m'éclairer...
D'où

Code :

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

Me!SousForm.Form.RecordSource = "SELECT req1.Code_LPP1 FROM req1....."

Non ?

SE

[a2line]

quand je mets :

Code :

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

1
2
strSQL = CurrentDb.QueryDefs("req").sql
Me!resultat.Form.RecordSource = strSQL

Un message d'erreur s'affiche et me dit :

"élément non trouvé dans cette collection"
et la ligne qui est surlignée est :

Code :

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

strSQL = CurrentDb.QueryDefs("req").sql