Error al declarar un recordset
Publicado por Dani (78 intervenciones) el 28/01/2008 15:43:42
Hola, cuando declaro un recordset, ej: Dim rec As recordset y lo quiero procesar me dice q no coinciden los tipos, pero cuando no lo declaro lo procesa perfectamente.
Y al no declararlo no reconoce automaticamente los metodos addnew, EOF, etc, los tengo q poner a mano.
Ahi parte de mi codigo y gracias
Private Sub Command1_Click()
Dim rec As Recordset ' si borro esta linea funciona
SQL = "select * from productos"
SQL = SQL & " where codigo_p=" & txt(0).Text
Set rec = base.OpenRecordset(SQL)
If rec.EOF Then
With rec
.AddNew
!codigo_p = txt(0).Text
!descripcion_p = txt(1).Text
.Update
End With
Y al no declararlo no reconoce automaticamente los metodos addnew, EOF, etc, los tengo q poner a mano.
Ahi parte de mi codigo y gracias
Private Sub Command1_Click()
Dim rec As Recordset ' si borro esta linea funciona
SQL = "select * from productos"
SQL = SQL & " where codigo_p=" & txt(0).Text
Set rec = base.OpenRecordset(SQL)
If rec.EOF Then
With rec
.AddNew
!codigo_p = txt(0).Text
!descripcion_p = txt(1).Text
.Update
End With
Valora esta pregunta


0