Discussion :

[acama]

Bonjour,

Je souhaiterais affecter le résultat d'une requete stocker dans un recordset à un sous formulaire indépendant.
J'ai beau cherché dans le forum, les tutos et internet, impossible de trouver de réponse sur le faisabilité et le comment...
Je pensais utiliser

Code :

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

Me.NSF.SourceObject

Ou Me est le formulaire et NSF le nom du sous formulaire
Mais il semblerait que cette propriété n'accepte que les tables ou requêtes.
Puis j'ai été vers l'utilisation de form du sous formulaire

Code :

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

Me.NSF.Form.Recordset

Mais là j'ai un message m'indiquant que l'objet est fermé ou supprimé.
Donc je sèche...

[nico84]

Bonsoir,

Depuis le sous formulaire j'utilise

Code :

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

1
2
3
me.parent.rst!monchamp
ou
form_MonForm.rst!monchamp

Depuis le formulaire :

Code :

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

me.fille42.mavariable=rst!monchamp

J'espère que cela marchera dans ton cas

[acama]

Je vois pas bien ton exemple...
Tu affecte un champ au sous formulaire?
Moi je souhaite affecter un recordset et tous ses champs au sous formulaire.
Cela afin d'afficher tous les champs dans un controle de type feuille de données inclus dans mon formulaire où il y a d'autres zones de texte qui permettent de changer le contenu du recordset.

[LedZeppII]

Bonjour,

voila un petit exemple, avec un recordset DAO

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
Option Compare Database
Option Explicit
 
Dim sfmRs As DAO.Recordset
Const strAltSQL = "SELECT * FROM [Détails commandes] WHERE [n° commande]=-1"
 
Private Sub lstNumCommande_Click()
Dim strSQL As String
 
If Not (sfmRs Is Nothing) Then Set sfmRs = Nothing
 
If Nz(Me.lstNumCommande, 0) <> 0 Then
   strSQL = "SELECT * FROM [Détails commandes] WHERE [n° commande]=" & Me.lstNumCommande
Else
   strSQL = strAltSQL
End If
 
' Ouvre recordset
Set sfmRs = CurrentDb.OpenRecordset(strSQL)
' Définit le recordset comme source de données du sous-formumlaire sfmDetCmde
Set Me.sfmDetCmde.Form.Recordset = sfmRs
 
End Sub

Bien sûr, les contrôles de mon sous-formulaire ont pour source, des champs existant dans le recordset.

A+

[acama]

Ca, comme indiqué dans mon mail d'origine, j'ai déjà essayé mais j'ai un message:
"L'expression entrée fait référence à un objet fermé ou supprimé".
J'ai vu pas mal de forums où il y avait ce genre de problème, mais pas vu de solution.
Ce que je comprends pas c'est pourquoi ca marche chez toi...
Pour info, moi j'ai un recordset ADO.

[LedZeppII]

Ça marche chez moi parce que le recordset est un recordset DAO.

Avec ADO, il faut mettre la propriété CursorLocation du recordset à adUseClient.
Cette condition est nécessaire, mais je ne garantie pas qu'elle soit suffisante.

A+

[acama]

Merci mais c'est effectivement pas suffisant... même message m'indiquant que l'objet est fermé ou supprimé.
J'ai l'impression que cela vient plus du sous-formulaire que du recordset. En effet, même avec "" à la place du recordset j'ai le même message.

[moucaa]

Bonjour,

Près de 10 ans après ce post, je rencontre le même problème qui n'est pas résolu... quelqu'un a une idée?