Discussion :

[timoth]

Bonjour,
Je me casse les dents sur une manip que j'utilise déja dans ma base et qui dans le cas présent ne fonctionne pas.
J'ai un formulaire principal basé sur la table "Contrat". Sur ce formulaire, je crée un sous-formulaire basé sur la meme table (je pourrais en effet eviter de passer par un sous-formulaire, mais c'est plus pratique pr moi et je suis pas sur que ca reglerait mes problemes)
J'ai donc un lien PERE/FILS sur le meme champ entre le form. principal et le sous-form.
J'essaye simplement de tester et lire le recordet du sous-form:

Code :

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

1
2
3
4
5
6
7
8
Dim rst As DAO.Recordset
Set rst = Me.RecordsetClone
If Not rst.EOF Then
  MsgBox "Le jeu d'enregistrements n'est pas vide"
  MsgBox rst.Fields("id")
Else
  MsgBox "Le jeu d'enregistrements est vide"
End If

Ca marche quand j'ouvre la base, mais quand je change d'enregistrement sur mon formulaire principal, il me met l'erreur 3021 'No current record'.
Je comprends rien !

[Tofalu]

Et avec

Code :

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

If Not (rst.EOF or rst.BOF )Then

[timoth]

Salut Tofalu,

J'ai oublié de préciser qqc... Je parviens a tester mon recordset avec EOF, mais l'erreur arrive systematiquement lorsque je veux lire un champ de mon recordset:

Code :

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

MsgBox rst.Fields("id")

[Tofalu]

Dans ce cas, teste aussi avec BOF pour voir

[timoth]

J'ai le meme résultat avec ca:

Code :

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

1
2
3
4
5
6
7
8
Dim rst As DAO.Recordset
Set rst = Me.RecordsetClone
If Not rst.BOF Then
  MsgBox "Le jeu d'enregistrements n'est pas vide"
  MsgBox rst.Fields("id")
Else
 MsgBox "Le jeu d'enregistrements est vide"
End If

J'ai oublié de preciser que ce bout de code se trouve sur l'evenement On_Current de mon sous-formulaire. Je la teste don en changeant d'enregistrement sur mon formulaire principal.
Quand j'ouvre le formulaire, pas de souci, il me dit que le jeu d'enregistrement n'est pas vide et il me sort la bonne valeur de mon champ "id".
Apres, lorsque je fais défiler les enregistrements, il me sort la meme Msgbox (Le jeu d'enr n'est pas vide) mais il bloque sur le rst.Fields en disant "No current record".

Un truc bizare que je viens de remarquer qui est peut etre lié. Quand je mets une ligne tel que Msgbox "test" dans l'evenement On Current de nimporte lequel de mes sous formulaire, la boite apparait deux fois de suite. L'evenement s'applique deux fois a chaque fois que je me deplace dans le recordset de mon formulaire principal.

Vraiment chelou cette affaire