Discussion :

[Jeremie_Vi]

Bonjour,

J'ai un message d'erreur avec ce code que je ne comprend
pas :

code :

Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
Dim oRSS As DAO.Recordset
Dim oRst As DAO.Recordset
Dim oDB As DAO.Database
Dim oRR As DAO.Recordset

Set oDB = CurrentDb
Set oRR = oDB.OpenRecordset("quotation")
Set oRSS = Me.Recordset

oRR.Close
oRSS.Close
oDB.Close
Set oRSS = Nothing
Set oRR = Nothing
Set oDB = Nothing
End Sub

Erreur :

run time error 91
Object variable or with block variable not set

[pgz]

Bonjour,

Je crois que c'est

Code :

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

oDB.Close

qui te pose un pb. A supprimer : c'est une insatnce, pas un objet ouvert.

Bonne chance,

pgz

[Jeremie_Vi]

J'ai supprimer oDB.close mais j'ai toujours la meme erreur.

De plus quand je visualise ma form en datasheet view il ne me
reste plus qu'un seul record et la valeur des champ est :
#name?

Je suis completement perdu

[pgz]

Re,

Oui, tu peux faire la même chose pour

Code :

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

oRss.Close

Je m'étais arrêté à la première erreur. Tu tentes de fermer le recordset d'un formulaire ...

A+

pgz

[Tofalu]

Je n'arrive pas à comprendre l'utilité de ce code

[Jeremie_Vi]

hihi,

C'est vrai que vu comme ca, cela n'a aucune utilité.
J'ai enlevé le traitement des données pour que cela soit plus clair.

Je vais tester les modification que vous m'avez proposées.

[Jeremie_Vi]

Merci beaucoup ca marche tres bien