Erreur d'execution ?
Résolu
sasafca
Messages postés
567
Statut
Membre
-
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
pourquoi est-ce que j'ai l'erreur d'exécution 3704 ???
Operation is not allowed when the object is closed
Alors que j'ai toujours procédé ainsi et que ma requête et bonne ?
'--Connection à la base de données
Dim Connect As New ADODB.Connection
Connect.Open ("DRIVER={Microsoft ODBC for Oracle};UID=xxx;PWD=xxx;SERVER=xxx;")
Dim Result2, Result3 As ADODB.Recordset
var_fourni = zt_code_fournisseur.Value
'--Requête qui créer la LDA
SQL2 = "INSERT INTO PRL() VALUES ()"
Set Result2 = Connect.Execute(SQL2)
If Result2.EOF = True Then
ElseIf IsNull(Result2.Fields(0).Value) Or IsEmpty(Result2.Fields(0).Value) Then
Else:
var_LDA = Result2.Fields(0).Value
End If
Merci je deviens fou à pas trouver!!
pourquoi est-ce que j'ai l'erreur d'exécution 3704 ???
Operation is not allowed when the object is closed
Alors que j'ai toujours procédé ainsi et que ma requête et bonne ?
'--Connection à la base de données
Dim Connect As New ADODB.Connection
Connect.Open ("DRIVER={Microsoft ODBC for Oracle};UID=xxx;PWD=xxx;SERVER=xxx;")
Dim Result2, Result3 As ADODB.Recordset
var_fourni = zt_code_fournisseur.Value
'--Requête qui créer la LDA
SQL2 = "INSERT INTO PRL() VALUES ()"
Set Result2 = Connect.Execute(SQL2)
If Result2.EOF = True Then
ElseIf IsNull(Result2.Fields(0).Value) Or IsEmpty(Result2.Fields(0).Value) Then
Else:
var_LDA = Result2.Fields(0).Value
End If
Merci je deviens fou à pas trouver!!
2 réponses
-
Bonjour
lorsque tu écris
Dim Result2, Result3 As ADODB.Recordset
en VBA,Result2 est ici déclaré comme variant et non comme recordset
donc, ca plante quand tu appelles result2
Dim Result2 As ADODB.Recordset , Result3 As ADODB.Recordset
-
Est-il possible de faire un Result.EOF sur un INSERT d'abord ? ^^
