Discussion :

[dinette]

Bonjour,

J'ai une requete avec un paramètre ( c'est à dire que lorsque je clique dessus il me demande la date et en fonction, j'ai le résultat ).

Et de l'autre coté j'ai un formulaire dans lequel j'aimerai afficher les résultats de cetet requete dans un sous formulaire mais sans me demander la date car je récupère déjà la date en appelant une autre requete dans ce fomulaire. ( Je veux pas qu'il demande la date plusieurs fois ).

En bref je veux envoyer dans mon sous formulaire le résultat d'une requete où je veux lui donner le paramètre et pas qu'il me le demande.

J'espère avoir été clair.

D'avance merci de votre aide.

[jacou]

Il est en principle impossible d'utiliser une requête avec parametère non défini comme .Recordset d'un formulaire/sous-formulaire.

Je te suggère d'essayer ceci:

1. Créer un formulaire frmInputChose, donc .recordset = "qrySelMesDonnees",
avec un champs de date txtDateEntree indépendant.

2. Créer la requête qrySelMesDonnees avec SQL suivant:

Code :

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

1
2
 
SELECT * FROM tabMaTable WHERE (tabMaTable.MonChampDate = Forms!frmInputChose!txtDateEntree);

3 Et ouvrir le formulaire frmInputChose, renseigne la date, et à chaque changement de date, faire:

Code :

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

1
2
 
Forms!frmInputChose.Requery

[dinette]

Je pensais plus à un truc du genre :

Code :

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

1
2
3
4
Dim qdf1 As DAO.QueryDef
Set qdf1 = CurrentDb.QueryDefs("MaRequete")
qdf1.Parameters("[à quelle date ?]") = LaDate
Me.Fille24.Form.RecordSource = qdf1.SQL

Mais le probleme c'est que j'ai un message d'erreur :

"L'expression entrée fait reference à un objet fermé ou supprimé."

Je comprends pas.

Merci de m'aider.

[jacou]

Je vois que ta date n'a pas besoin d'être dynamique, ton problème est très simple:

Code :

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

1
2
3
4
5
 
dim strSQL as string
strSQL = CurrentDb.QueryDefs("MaRequete").SQL
strSQL = replace(strSQL, "[à quelle date ?]", "#" & LaDate & "#")
Me.Fille24.Form.RecordSource = strSQL

En effet tu n'as probablement même pas beson d'une requête prédefinie. Il suffirait de construire une chaîne SQL complète dynamiquement en utilisant LaDate comme donnée .

[=JBO=]

Bonour,

Si tu veux rester sur une approche Querydef / Recordset, voilà 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
Dim qdf1 As DAO.QueryDef
Dim oRS As DAO.Recordset
 
Set qdf1 = CurrentDb.QueryDefs("MaRequete")
qdf1.Parameters("[à quelle date ?]") = LaDate
Set oRS = qdf1.OpenRecordset
Set Me.Fille24.Form.Recordset = oRS
 
' /!\  à partir d'ici,
' ne pas fermer le Recordset puisqu'il est utilisé par le formulaire.
' Mais on peut fermer le QueryDef
 
qdf1.Close

Sinon, la proposition de jacou est très bien, mais attention à respecter le format de date de Jet (le moteur de base de données d'Access), à savoir:
#mm/dd/yyyy#
_

[dinette]

Merci à vous,

Mais avec les deux méthodes j'ai toujours le même message d'erreur :

"L'expression entrée fait reference à un objet fermé ou supprimé."

Et il surligne :
Me.Fille24.Form.RecordSource = strSQL

D'ou cela pourrait bien venir, pourtant la requete existe.

D'avance merci,

[=JBO=]

Bonjour,

Mais avec les deux méthodes j'ai toujours le même message d'erreur :

"L'expression entrée fait reference à un objet fermé ou supprimé."

Et il surligne :
Me.Fille24.Form.RecordSource = strSQL

Si tu te réfères à ma réponse, le code n'utilise pas la propriété RecordSource mais Recordset.
Peut-être serait-il mieux que le RecordSource ne soit pas renseigné au départ ?

Par ailleurs, ce message d'erreur donne l'impression que le sous-formulaire n'est pas accessible, peut-être est-il mal renseigné ?

_

[dinette]

J'ai le même message d'erreur avec Recordset, j'ai aussi l'impression que cela vient du sous formulaire qui ne serait pas accessible pourtant j'appuie sur un bouton du formulaire où le sous formulaire apparait pour lancer le code.

Le sous formulaire, me semble t il, est bien renseigné. Merci de me préciser à quoi je dois faire attention.

D'avance merci,

[jacou]

Ton erreur n'est pas dans la chaîne SQL mais à l'accès d'un objet sous-formulaire fille à un mauvais moment, car non existant.

Je devine que tu fais cela dans l'évènement Ouverture du formulaire Me (Nom ?), à ce moment-là le sous-formulaire Fille24 (contrôle accessible), mais son contenu Me.Fille24.Form n'est pas encore construit.

Code :

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

1
2
3
Sub Form_Open(Cancel as Integer)
  Me.Fille24.Form.RecordSource = strSQL
End Sub

Il te faut changer .RecordSource dans l'évènement Ouverture du sous-formulaire Me.Fille24 lui-même:

Code :

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

1
2
3
4
5
Sub Form_Open(Cancel as Integer)
...
  Me.RecordSource = strSQL
...
End Sub

[dinette]

Merci, mais comment lancer le load du sous formulaire :

Code :

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

1
2
3
4
strSQL = CurrentDb.QueryDefs("MaRequete").SQL
strSQL = Replace(strSQL, "[à quelle date ?]", "#" & LaDate & "#")
Me.RecordSource = strSQL
End Sub

Merci de l'aide,

[jacou]

Merci, mais comment lancer le load du sous formulaire :

Tu as intégré en tant que sous-formulaire Fille24 (nom du contrôle dans le formulaire principal ?), un formulaire normal nommé Fille24 ?

Alors ouvrir en mode création le formulaire normal Fille24, tu fais [Alt]-[F11], tu met le code dans on évènement d'Ouverture:

Code :

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

1
2
3
4
5
6
Sub Form_Open(Cancel as Integer)
  Dim strSQL as String
  strSQL = CurrentDb.QueryDefs("MaRequete").SQL
  strSQL = Replace(strSQL, "[à quelle date ?]", "#" & Format(LaDate, "yyyy-mm-dd") & "#")
  Me.RecordSource = strSQL
End Sub

[dinette]

Je comprends pa très bien, j'ai un formulaire Les chiffres et à l'intérieur j'ai un controle sous-formulaire Fille 24.

D'avance merci de votre aide,

[jacou]

[Fille 24], avant de devenir sous-formulaire, est un formulaire lui-même, il paraît sur la liste des formulaires dans la fenêtre de BDD, sauf s'il est masqué.

Voici la méthode précise pour repérer qui est caché sous [Fille 24]:

1. Ouvrir ton formulaire principal [Les chiffres] en mode création.

2. Pointe ta souris sur le contrôle [Fille 24] et fais un clic-droit de ta souris, sélectionner Propriétés.

3. Répère "Source objet", qui est en réalité en langage de programmation:

Code :

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

Forms![Les chiffres].Controls("Fille 24").SourceObject

qui donne le nom du formulaire "escalve", ou sous-formulaire.

4. Ouvre ce formulaire rendu esclave en mode création, et mettre le code VBA dans son évènement d'Ouverture:
Open().

[dinette]

J'essaye mais j'ai un message d'erreur "Nom de formulaire non conforme aux règles d'appelation".

Merci de votre aide,

[jacou]

J'essaye mais j'ai un message d'erreur "Nom de formulaire non conforme aux règles d'appelation".

Bonjour, avant de continuer ton travail de développement, je te conseille de
renommer toutes tes tables, formulaires, états, macros...

Certains caractères sont déconseillés pour les noms d'objets Access (tables, formuaires, états, macros, modules), noms de variables Visual Basic, tels que: [Espace], caractères accentués, "-" (signe moins)...

à lire tout d'abord: http://argyronet.developpez.com/office/vba/convention/

Ton problème est très simple, mais il te faut d'abord un départ rigoureux dans la programmation quelque soit le langage employé (Basic, FORTRAN, C, C++, PHP, Perl, Java...).

[dinette]

Cette erreur a été résorbé. J'ai compris comment fonctionnaient les sous-formulaires.

Par contre maintenant je dois lancer une requete d'une autre base dans une sous-formulaire, mon code je crois est niquel mais c'est au niveau des propriétés de ce sous formulaire que je n'arrive pas.

Donc ma question est :

comment remplir les propriétés d'un sous formulaire lorsqu'on lance une requete d'une autre base.


Merci de votre aide,

[jacou]

Bonsoir,

Je pense que ta question est beaucoup trop vaque pour nous te répondions. J'ai tourné dans tous les sens, je n'ai pas saisi le bon sens. Essaie d'être plus clair et si possible exemple concret.

[dinette]

Bonsoir,

Je fais appel à une base externe, voilà mon code :

Code :

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

1
2
3
Set db = DBEngine.OpenDatabase("E:\AutreBase.mdb")
strSQL1 = db.QueryDefs("MaRequete").Sql
strSQL1 = Replace(strSQL1, "[entrez la date]", "#" & Format(LaDate, "yyyy-mm-dd") & "#")

Et je voudrais envoyer ces résultats dans un sous formulaire, et cela je n'y arrive pas.

Il me met des résultats de la base dans laquelle je travaille.

D'avance merci de votre aide,

[jacou]

Il me met des résultats de la base dans laquelle je travaille.

Logique, le SQL est en syntaxe locale par défaut. Le plus simple est d'adopter la méthode de =JBO= en assignant le Recordset. Ceci charge une requête d'une autre BDD sur un formulaire local.

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
17
18
19
20
21
22
23
 
Sub Form_Open(Cancel as Integer)
 
  dim LaDate as Date
 
  Dim db  As DAO.DataBase
  Dim qdf As DAO.QueryDef
  Dim rst As DAO.Recordset
 
  LaDate = Date
 
  Set db = DBEngine.OpenDatabase("E:\AutreBase.mdb")
  Set qdf = db.QueryDefs("MaRequete")
  qdf.Parameters("[entrez la date]") = LaDate
  Set rst = qdf.OpenRecordset()
  Set Me.Recordset = rst
 
  Set qdf = Nothing
 
  Set rst = Nothing
 
  Set db = Nothing
End Sub

[dinette]

Merci à tous, c'est règlé par contre j'avais encore une dernière petite question:

dans un load d'un formulaire j'ai un "delete * from Table1" et ensuite un "insert into Table1...", mais le problème c'est que ma Table1 est vide lors de l'affichage du formulaire, pourquoi ?


D'avance merci de votre aide,