Discussion :

[Simplifi]

Bonjour à tous,
pour des raisons de rapidité, j'ouvre un recordset avec un texte SQL et je teste le nombre d'enregistrements (recordcount) si = 0, je passe à la suite
sinon, je voudrai ouvrir un formulaire basé sur ce recordset.
je sais faire ça en attribuant le texte SQL à la propriété recordsource. mais il me semble que cette requête doit être re-moulinée à ce moment là
Y a t il une solution pour affecter directement le recordset déjà constitué à la source du formulaire?
merci

[paidge]

Bonjour,
j'aurais tendance à penser à qqe chose comme ça :

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
Dim strSQL As String
Dim rst As DAO.Recordset
 
strSQL = "SELECT * FROM MaTable;"
Set rst = CurrentDb.OpenRecordset(strSQL)
rst.MoveLast
 
If rst.RecordCount = 0 Then
    ......
Else
    DoCmd.OpenForm "MonFormulaire", acNormal, , , acFormEdit, acWindowNormal
    With Forms("MonFormulaire")
        .RecordSource = strSQL
        .Requery
    End With
End If

[Simplifi]

Merci pour la rapidité!!
c'est bien la méthode que j'utilise pour le moment
mais j'ai l'impression que Access résout des fois le SQL, une pour alimenter le recordset, une pour alimenter le formulaire.
Et comme chaque formulaire possède son recordset, qu'on peut d'ailleurs récupérer (Rs = forms!mon_form.recordset), je cherche à faire le contraire (forms!mon_form.recordset = Rs)
là, j'ai une erreur: 3251 Opération non autorisée pour ce type d'objet

je cherche donc la bonne solution

PS: ces requêtes (à l'origine du SQL) sont des recherches d'erreurs et il y en a une trentaine pour le moment ce qui fait que ma première méthode de requêtes-ajouts dans une table et formulaire sur cette table est bien lente!!

[mumen]

Y a t il une solution pour affecter directement le recordset déjà constitué à la source du formulaire?

Je n'y crois pas, d'ailleurs "Opération non autorisée pour ce type d'objet".

Quand tu dis

pour des raisons de rapidité, j'ouvre un recordset avec un texte SQL et je teste le nombre d'enregistrements (recordcount) si = 0, je passe à la suite

Tu fais un MoveLast pour tester le RecordCount ? Parce que si oui, tester le EOF suffirait à te dire si tu as au moins un enregistrement sans aller jusqu'au bout du RecordSet.

[mumen]

Maintenant, si ton ouverture de requête est vraiment longue par rapport aux sorties attendues (des erreurs, ça doit être rare), au point que la multiplier par deux est gênant, alors fais une table temporaire avec le résultat et ouvre le formulaire dessus.

[LedZeppII]

Bonjour,

Je crois que c'est à ça que tu pensais :

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
Option Compare Database
Option Explicit
 
' Recordset global
Dim rsFm As DAO.Recordset
 
 
Private Sub Form_Load()
Dim sSql As String
' Ouvrir le recordset global
sSql = "SELECT * FROM Clients"
Set rsFm = Application.CurrentDb.OpenRecordset(sSql, dbOpenDynaset)
' En faire la source du formulaire
Set Me.Recordset = rsFm
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
' Déconnecter le formulaire du recordset
Set Me.Recordset = Nothing
' Libérer/fermer le recordset global
Set rsFm = Nothing
End Sub

Ce que j'ai fait :
- J'ai créé un formulaire basé sur la table Clients.
- J'ai supprimé la source du formulaire (mise à blanc de la propriété Données>Source qui contenait «Clients»)
- J'ai ajouté le code ci-dessus.

A+