Discussion :

[guidav]

Bonjour

J'aimerais faire un formulaire dynamique dans lequel je définis j'injecte un recordset défini en ADO, mais j'ai une erreur erreur "Opération non autorisée pour ce type d'objet"

Savez-vous s'il existe une solution pour contourner le problème ?

Merci

Mon code est le suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim oConn As ADODB.Connection
Dim oRcset As ADODB.Recordset
Set oConn = New ADODB.Connection
oConn.Provider = "Microsoft.Jet.OLEDB.4.0"
oConn.ConnectionString = CurrentProject.Path & "\" & CurrentProject.Name
oConn.Open
Set oRcset = New ADODB.Recordset
oRcset.CursorLocation = adUseClient
oRcset.Open strsql, oConn
oRcset.Sort = "LADATE " & sens
Me.calendrier Form.Recordset = oRcset

[Thierry_PALLIER]

Bonjour guidav.
La dernière ligne ne me semble pas claire.
Si c'est un formulaire j'écrirais plutot:

Code :

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

Me.Recordset = oRcset

si c'est un sous-formulaire:

Code :

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

Forms!TonForm!TonSSForm.Form.Recordset = oRcset

Cdlt

[guidav]

Merci, c'est un sous-formulaire, d'où le

Code :

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

Me.calendrier Form.Recordset = oRcset

Cependant, j'ai fait le test avec un formulaire simple, ça ne fonctionne pas non plus.

[nico84]

Bonjour,

Pourquoi ré-ouvrir currentproject ???
Que contient strsql ?

Il suffit d'écrire directement :

Code :

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

1
2
Me.RecordSource = "select ... from matable"
me.orderby = ...

si c'est fait depuis une autre fenêtre, il y a plusieurs syntaxes, par exemple :

Code :

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

1
2
forms("masousfenetre").RecordSource = ...
me.fille.RecordSource = ...

Enfin je ne vois pas bien ce que VBA pourrait faire de l'espace entre calendrier et form

[guidav]

strsql contient une requête pour laquelle la clause ORDER BY ne fonctionne pas (en conflit avec des DISTINCT), d'où l'utilisation d'un recordset en ADO.

Autrement, ce n'est pas obligatoire d'ouvrir la connexion en ADO, même dans la base courante ?
Je ne maîtrise pas bien ADO, DAO est quand même plus simple et mieux optimisé pour Jet.

(il n'y a pas d'espace dans mon code, c'est bien un point !)

[mc.schmer]

Je confirme, lorsqu'il s'agit d'un formulaire, on parle de source d'enregistrement.
C'est donc la propriété recordsource de l'objet form qu'il faut modifier:

Code :

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

Me.recordsource

[guidav]

Je confirme, lorsqu'il s'agit d'un formulaire, on parle de source d'enregistrement.
C'est donc la propriété recordsource de l'objet form qu'il faut modifier:

Code :

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

Me.recordsource

NON, la propriété recordsource est une chaîne de caractère. On peut la renseigner par une chaîne représentant une requête SQL ou le nom d'une requête/table.
Je parle bien de renseigner directement le recordset.

[jimbolion]

Dans ta chaîne :

Code :

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

oRcset.Open strsql, oConn

Que contient donc strsql : Je ne la vois nulle part initialisée si je ne me trompe sauf si passée comme argument dans ta fonction ??

JimboLion

[jimbolion]

Re-bonjour,

Partant de ton code source j'ai essayé de comprendere ! Effectivement on peut modifier le recordset et j'ai réussi en procédent de la manière suivante :

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
Private Sub Form_Open(Cancel As Integer)
'
strsql = "SELECT Chantier.[Numéro de chantier], Chantier.[Nom du chantier], Chantier.Adresse, Chantier.[Code postal] FROM Chantier;"
'
Dim oConn As ADODB.Connection
Dim oRcset As ADODB.Recordset
Set oConn = New ADODB.Connection
I_Database = CurrentDb.Name
oConn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & I_Database & ";"
 
Set oRcset = New ADODB.Recordset
oRcset.CursorLocation = adUseClient
oRcset.Open strsql, oConn
 
Set Me.Recordset = oRcset
End Sub

Mettre SET dans l'affectation de ton recordset : dernière ligne de ton code !

En espérant que cela puisse solutionner ton problème...

[guidav]

Merci, c'est exactement ça. J'ignorais que le recordset d'un formulaire devait être modifié avec Set.

Re-bonjour,

Partant de ton code source j'ai essayé de comprendere ! Effectivement on peut modifier le recordset et j'ai réussi en procédent de la manière suivante :

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
Private Sub Form_Open(Cancel As Integer)
'
strsql = "SELECT Chantier.[Numéro de chantier], Chantier.[Nom du chantier], Chantier.Adresse, Chantier.[Code postal] FROM Chantier;"
'
Dim oConn As ADODB.Connection
Dim oRcset As ADODB.Recordset
Set oConn = New ADODB.Connection
I_Database = CurrentDb.Name
oConn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & I_Database & ";"
 
Set oRcset = New ADODB.Recordset
oRcset.CursorLocation = adUseClient
oRcset.Open strsql, oConn
 
Set Me.Recordset = oRcset
End Sub

Mettre SET dans l'affectation de ton recordset : dernière ligne de ton code !

En espérant que cela puisse solutionner ton problème...

[mc.schmer]

Moi j'ignorais carrément qu'il était possible de modifier directement le recordset d'un formulaire!
Désolé pour ma réponse ignorante

Mais je ne vois pas bien quelle est l'utilité? Dans quel cas cette manip. devient intéressante?