Run Time Error'91'Object variable or With block variable not set

Fermé
sabrinesol Messages postés 2 Date d'inscription lundi 31 août 2015 Statut Membre Dernière intervention 31 août 2015 - Modifié par pijaku le 31/08/2015 à 10:51
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 31 août 2015 à 11:47
Bonjour,

je veux faire la connexion vba à access
Option Explicit
Dim conn As ADODB.Connection, rec As ADODB.Recordset
Dim eq As String
Public Sub Form1_Load()
Set conn = New ADODB.Connection
Set rec = New ADODB.Recordset
'conn.Open ("Provider=Microsoft.Jet.OLEDB 4.0;Data Source=C:\Program Files\Microsoft Office\Office\Samples\Northwind.mdb;Persist Security Info=False")
conn.ConnectionString = "Provider= Microsoft.ace.oledb.12.0;" + "Data source= C:\Users\Client MS\Desktop\pr\c1.accdb;persist security info = false"
conn.Open
esql = "select * from t1"
rec.Open (eq), conn, adOpenDynamic, adLockOptimistic
GetText

End Sub

Public Sub Command1_Click()
rec.Fields(0) = Text1.Text
rec.Fields(1) = Text2.Text
rec.Update
End Sub

Merci d'avance
A voir également:

1 réponse

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
31 août 2015 à 11:47
bonjour sur quelle ligne se produit l'erreur ?

version Excel ?

bizarre:
esql = "select * from t1"
rec.Open (eq), conn

merci d'^tre précise dans la demande
0