Discussion :

[Boid']

Bonjour à tous,

Je souhaite faire la même chose que sur cette discusion.

Dans mon cas, je souhaite utiliser un recordset pour réaliser une copie de données d'un échantillon (situées dans une table liée à ma table des échantillons) et coller ces données dans un sous formulaire lors de la saisie d'un nouvel échantillon basé sur un échantillon modèle (pour faciliter la saisie pour les utilisateurs)

Bref voici comment tout cela fonctionne :

Code :

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

1
2
3
4
5
6
7
Dim cycleth As DAO.Recordset
Dim source As String
 
source = "SELECT * FROM [T-Segments thermiques] WHERE [ID Segment thermique] = " & Idechmodele & ";"
Set cycleth = CurrentDb.OpenRecordset(source)
 
Set Forms("F-Echantillons").Form("F-Segments thermiques").Recordset = cycleth

Jusqu'à la ligne 5 cela fonctionne bien, cependant j'ai un message d'erreur qui dit :
erreur d'execution 438, propriété ou méthode non gérée par cet objet.
Pourtant si je ne me trompe pas et comme l'a précisé JBO, chaque formulaire possède une propriété recordset non ?

Merci d'avance.

Boid'

[madefemere]

Bonjour,

Faire référence à un sous-formulaire et à ses propriétés ou méthodes n'est jamais évident.

La syntaxe est :

Code :

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

Forms("NomduFormulaire").NomduSousFormulaire.Form.Propriété

Donc on aurait :

Code :

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

Set Forms("F-Echantillons").F-Segments thermiques.Form.Recordset = cycleth

PS : NomdeSousFormulaire correspond au nom dans les propriété Autres de ton sous-formulaire
Attention avec ton nom de sous-formulaire avec un "-". Utilises plutôt un "_"

Bonne continuation

[Boid']

Merci Madefemere, je vais essayer ça.

Désolé pour le temps de réponse, j'avais oublié de me mettre une alerte mail sur cette discussion.

Boid'

[Boid']

Bonjour à tous,

Je continue cette discussion ici car je change un peu la façon de procéder.

Boid'