Discussion :

[Tintou]

Bonjour,

J'ai un problème à la fermeture de mes formulaires, car sur l'évènement "OnClose", j'utilise le code ci-dessous pour fermer mes recordset. Le problème est que parfois, je ne les utilise pas tous et donc j'ai une erreur sur la ligne rs.close. Comment pourrais-je éviter cette erreur ?
J'ai essayé de faire des tests avec les fonctions EOF et BOF mais sans succès.

Code :

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

1
2
3
 
rs.close
Set rs = Nothing

Merci d'avance.

[Tintou]

Je viens d'essayer cela, mais même si mon formulaire se ferme, j'ai quand même un message me disant : "Object variable or Object with block variable not set"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
On Error GoTo Err
 
    DoCmd.SetWarnings False
 
rs.close
Set rs = Nothing
 
GoTo Cleanup
 
Err:
       MsgBox Err.Description
Cleanup:
    DoCmd.SetWarnings True

[Invité]

Bonjour

Ne met pas fin à tes recordsets de cette maniére, mais juste après que tu ais travaillé avec.

Starec

[Tintou]

Le problème est que je ne sais pas à l'avance si je vais travailler avec ou non. Par exemple je crée un recordset à l'ouverture du formulaire, et quand je l'utilise, il y a 4 ou 5 contrôles qui y ont accès. Et là aussi je ne sais pas par avance lequel de ces contrôles je vais me servir et si je vais m'en servir. De plus, si 'utilise un boutton, et à la fin de la procédure relative à ce boutton, je ferme mon recordset, il n'est plus possible de le réutiliser après.

[Tintou]

Voila quelque chose qui marche :

Code :

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

1
2
3
4
5
 
If Not rs Is Nothing Then
rs.close
Set rs = Nothing
End If