Discussion :

[Reidid]

Bonsoir,

Je rencontre un problème avec un formulaire et son sous formulaire.

J'ai ce message d'erreur lorsque je fais défiler les enregistrements trop rapidement et en fonction des PC.

"Impossible d'ouvrir un formulaire dont la requête sous-jacente contient une fonction définie par l'utilisateur qui tente de définir ou de lire la propriété RecordsetClone du formulaire. (Erreur 3252)"

Je pense que le problème vient de la requête du sous formulaire qui n'a
pas toujours de valeurs à renvoyer ( peut-être nulle ou vide ! ).

Merci d'avance de vos conseils.
Cdlt
Didier

[Tofalu]

Pourtant le message d'erreur est clair,

ton formulaire ne peut avoir une source qui dépend d'une fonction qui change cette source, c'est juste logique

[Reidid]

Bonjour Tofalu

Merci de ton explication, je vais changer le sous-formulaire pour un formulaire qui sera apellé par un bouton de commande si besoin.

Parcontre existe t'il un moyen pour obliger le formulaire principal à attendre le résultat de la requête dans le sous-formulaire pour changer d'enregistrement.

Merci d'avance.
Cdlt.

[rb65dev]

Bonjour

Mieux vaut tard que jamais!

pour supprimer le problème , dans le formulaire principal remplacer les boutons de déplacement par des boutons persos associés à du code VBA pour on_click de chaque bouton.
Pour supprimer : en mode création, formulaire, format,boutons de déplacement.
voici le code des macros associées aux boutons créés

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
'pour reculer d'un enregistrement
Private Sub moins_Click()
Dim clone As Recordset
Set clone = Me.RecordsetClone
If Not clone.BOF Then DoCmd.GoToRecord , , acPrevious
End Sub
'pour créer un nouveau
Private Sub nouveau_Click()
Dim clone As Recordset
Set clone = Me.RecordsetClone
If Not clone.EOF Then DoCmd.GoToRecord , , acNewRec
End Sub
'pour avancer d'un
 
Private Sub plus_Click()
Dim clone As Recordset
Set clone = Me.RecordsetClone
If Not clone.EOF Then DoCmd.GoToRecord
End Sub

ça me donne satisfaction , pourquoi pas à vous?
rb65dev