Visual Basic para Aplicaciones - ERROR DE OBJETO

Life is soft - evento anual de software empresarial
   
Vista:

ERROR DE OBJETO

Publicado por ANTONIO (4 intervenciones) el 04/04/2010 16:51:38
Hola, estoy haciendo un formulario en excel el cual esta conectado a una base de acces y cuando aplico la siguiente sentencia para modificar los registros

Private Sub CommandButton1_Click()

rst.Fields!COD = TextBox2
rst.Fields!VENDEDOR = TextBox3

rst.Update
MsgBox "Registro modificado"
rst.MoveFirst
TextBox1 = rst.Fields!ID
TextBox2 = rst.Fields!COD
TextBox3 = rst.Fields!VENDEDOR

End Sub

me da el siguiente error

" se a producido el error 424 en tiempo de ejecucion"

" se requiere un objeto"

y me marca con amarillo la primera linea:

rst.Fields!COD = TextBox2

si alguien sabe como solucionar esto ? por favor avisarme....

lo raro es que al iniciar el formulario yo aplico la sentencia siguiente y me muestra bien los datos

Private Sub UserForm_Activate()

Set cnn = New ADODB.Connection

With cnn
.Provider = "microsoft.jet.oledb.4.0"
.ConnectionString = "data source=C:\Documents and Settings\All Users\Documentos\SISTEMA.mdb"
.Open
End With

Set rst = New ADODB.Recordset

Sql = "select * from VENDEDORES"

With rst
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open Sql, cnn, , , adCmdText
End With

TextBox1 = rst.Fields!ID
TextBox2 = rst.Fields!COD
TextBox3 = rst.Fields!VENDEDOR

End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de JuanC

RE:ERROR DE OBJETO

Publicado por JuanC (431 intervenciones) el 04/04/2010 17:42:53
el error puede deberse a que el objeto rst no fue asignado...

Saludos, desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar