Discussion :

[greg64]

Bonjour à tous

j'ai un petit soucis dans mon programme l'insertion ce fait convenablement mais j'ai un message d'erreur et mon aperçu ne s'ouvre pas.

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
20
21
22
23
24
25
26
27
28
29
30
31
 
 
Private Sub Commande17_Click()
On Error GoTo Err_Commande17_Click
 
    Dim stDocName As String
'----------------------------------------
    Dim connex As ADODB.Connection
    Dim recset As ADODB.Recordset
    Dim MonSQL As String
 
    MonSQL = "INSERT INTO impression (change,nom,raison,fiche) VALUES ('" & Forms!impression!num_change & "','" & Forms!impression!nom & "','" & Forms!impression!raison & "','demande');"
    Set connex = CurrentProject.Connection
    Set recset = New ADODB.Recordset
    recset.Open MonSQL, connex
    recset.Close
    connex.Close
    Set connex = Nothing
    Set recset = Nothing
'----------------------------------------
    stDocName = "etat_change_control"
    DoCmd.OpenReport stDocName, acPreview 'acNormal
 
Exit_Commande17_Click:
    Exit Sub
 
Err_Commande17_Click:
    MsgBox Err.description
    Resume Exit_Commande17_Click
 
End Sub

Voici le message qui s'affiche

Cette opération n'est pas autorisé si l'objet est fermé.


merci de votre aide.

[warraf]

Code :

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

1
2
3
4
recset.Close
    connex.Close
    Set connex = Nothing
    Set recset = Nothing

ton erreur vient de là je pense.
Tu ne peut pas faire un Set après avoir fermé l'objet.

ferme les à la fin de ta procedure.

[random]

et ton formulaire est ouvert à ce moment ?

[greg64]

oui mon formulaire est ouvert !!!

[pc75]

Bonjour,

A priori, je dirai que c'est normal.

Set connex = CurrentProject.Connection
Set recset = New ADODB.Recordset
recset.Open MonSQL, connex
recset.Close
''''''''''''''''''''''''''''''''''''''''''''''''''' connex.Close
Set connex = Nothing
Set recset = Nothing

Tu n'as pas besoin de fermer l'objet connex, puisque tu ne l'ouvres pas. Tu l'instancies seulement.

[greg64]

j'ai enlevé la ligne connex.close et cela me donne le même résultat???

[greg64]

j'ai fermé l'objet aprés avoir initialisé le recset et le connex et tjrs le même pb

[greg64]

suis je obligé de garder ces quatre lignes ou puis je les enlever ???

Code :

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

1
2
3
4
5
 
    recset.Close
    connex.Close
    Set connex = Nothing
    Set recset = Nothing

merci.