Discussion :

[seb92400]

Hello,

Je tripatouille depuis peu les recordset (j'avoue que quand c'est possible, je préfère m'en tenir aux domaines ), donc ce qui m'arrive est sans doute bénin... Mon code :

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
Private Sub Liste_Rechercher_AfterUpdate()
On Error GoTo Err_Liste_Rechercher_AfterUpdate
 
    Dim Enr As DAO.Recordset
    Set Enr = Me.Recordset
    Enr.FindFirst "[NumAuto_Clients] = " & Me.Liste_Rechercher.Column(0)
    Set Enr = Nothing
    Enr.Close
 
Exit_Liste_Rechercher_AfterUpdate:
    Exit Sub
 
Err_Liste_Rechercher_AfterUpdate:
    MsgBox ("Err. " & Err.Number & " : " & Err.Description)
    Resume Exit_Liste_Rechercher_AfterUpdate
 
End Sub

Celui-ci fonctionnait très bien... jusqu'à ce que je me laisse dire qu'il ne fallait jamais laisser un recordset ouvert... Soit... Mais dès que je place la ligne de code "Enr.Close", j'obtiens un message d'erreur... Err 91 : Variable objet ou variable de bloc with non définie... quand je clique sur un nom de la liste...

Que dois-je faire ???

Merci d'avance...

[Gary_Stoupy]

Bonjour,

Il faut que tu le fermes avant ta déclaration

Code :

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

Set Enr = Nothing

Et normalement tu n'auras plus l'erreur

[seb92400]

Merci, mais... c'est déjà fait... C'est dans le code...

[Heureux-oli]

Ton code :

Code :

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

1
2
3
 
    Set Enr = Nothing
    Enr.Close

La proposition de Gary_Stoupy

Code :

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

1
2
3
 
    Enr.Close
    Set Enr = Nothing

[Oleff]

Il faut que ton "enr.close" précède ton "Set enr = Nothing".
Le "set Enr = Nothing" casse la référence à l'objet recordset et tu ne peux pas fermer un objet si la référence à celui-ci a disparu..

[seb92400]

Oups... Je n'avais pas compris... Mais malheureusement, ça ne fonctionne toujours pas...

Maintenant, j'obtiens un autre message d'erreur : 2424 : L'expression entrée comporte un nom de champ, de contrôle ou de propriété introuvable...

Grrr...

[Heureux-oli]

Code :

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

Set Enr = Me.Recordset.clone

[seb92400]

Merci... Ca marche... J'ai juste ajouté une propriété Bookmark... J'ai trouvé ça dans l'aide... Sinon, ma liste n'affchait plus rien...

Code :

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

1
2
3
4
5
6
    Dim Enr As DAO.Recordset
    Set Enr = Me.Recordset.Clone
    Enr.FindFirst "[NumAuto_Clients] = " & Me.Liste_Rechercher.Column(0)
    If Not Enr.EOF Then Me.Bookmark = Enr.Bookmark
    Enr.Close
    Set Enr = Nothing

Il va vraiment falloir que je me plonge dans les recordset... parce que pour l'instant, j'y comprends pas grand chose...

Merci encore !

[Heureux-oli]

Il y a un tuto hors pair sur le site.

Fais y un tour.

Livre de chevet