Error 3021

[natalyro]

HOla a todos los foreros.

estoy tratando de avanzar registros por un cliente y un producto dado pero cuando le doy siguiente me sale el error 3021.

Que podrá ser?

anexo mi codigo


Rs2.MoveNext el error me sale Aqui
If Rs2.EOF = True Then
MsgBox "Está en el ultimo"
Rs2.MovePrevious
End If
Text_Fecha.Text = Rs2.Fields("cot_date")
Text_Id.Text = Rs2.Fields("cot_number")
Combo_Cliente.Text = Rs2.Fields("search_name")
Cmb_Producto.Text = Rs2.Fields("search_desc")
Text_Product.Text = Rs2.Fields("item_no")
Text_Especific.Text = Rs2.Fields("Especific_prod")
'Text_Presentacion.Text = Rs2.Fields("item_desc_2")
'Text_Cantidad.Text = Rs2.Fields("qty_prod")
Text_Precio.Text = Rs2.Fields("prc_or_disc_1")
Text_Validez.Text = Rs2.Fields("end_prc")
Combo_terminos.Text = Rs2.Fields("pay_term")
'Cmb_Direccion.Text = Rs2.Fields("addr_1")
'Cmb_Moneda.Text = Rs2.Fields("cot_curr")
Combo_Vendedor.Text = Rs2.Fields("cot_sales")
'Text_Observ.Text = Rs2.Fields("cot_Observ")
'Rs2.Update
'Rs15.MoveNext


If IsNull(Rs2.Fields("qty_prod")) Then
Text_Cantidad.Text = ""
Else
Text_Cantidad.Text = Rs2.Fields("qty_prod")
End If

If IsNull(Rs2.Fields("addr_1")) Then
Cmb_Direccion.Text = ""
Else
Cmb_Direccion.Text = Rs2.Fields("addr_1")
End If

If IsNull(Rs2.Fields("item_desc_2")) Then
Text_Presentacion.Text = ""
Else
Text_Presentacion.Text = Rs2.Fields("item_desc_2")
End If

If IsNull(Rs2.Fields("cot_curr")) Then
Cmb_Moneda.Text = ""
Else
Cmb_Moneda.Text = Rs2.Fields("cot_curr")
End If

If IsNull(Rs2.Fields("cot_Observ")) Then
Text_Observ.Text = ""
Else
Text_Observ.Text = Rs2.Fields("cot_Observ")
End If

[natalyro]

el error exacto que me saca es:

Either EOF or BOF is true, or the current record has been deleted.
Requested operation requires a current record.

Gracias,

[Sashenka19]

Hola lo que deseas hacer es recorrer los registros con botones <<, <, >, >> osea inicio, anterior, siguiente y ultimo verdad? pues si es asi haslo de esta manera:

creas los cuatro botones y le pones a todos el mismo nombre para crear una matriz de controles, te preguntara: Ya existe un control llamado "nombrequeasignes" ¿Desea crear una matriz de controles? le das si
y en el evento click de cualquier de los 4 botones pones este codigo:

Código PHP:

  If rs2.RecordCount > 0 Then 
    Select Case Index 
        Case 0 
            rs2.MoveFirst 
             
        Case 1 
            rs2.MovePrevious 
            If rs2.BOF Then 
                rs2.MoveFirst 
            End If 
             
        Case 2 
            rs2.MoveNext 
            If rs2.EOF Then 
                rs2.MoveLast 
            End If 
             
        Case 3 
            rs2.MoveLast 
             
    End Select 
    Call llenadatos 
End If  
   

y en luego creas un sub

Código PHP:

  Sub llenadatos() //aqui pones lo siguiente 
Text_Fecha.Text = Rs2.Fields("cot_date") 
Text_Id.Text = Rs2.Fields("cot_number") 
Combo_Cliente.Text = Rs2.Fields("search_name") 
Cmb_Producto.Text = Rs2.Fields("search_desc") 
Text_Product.Text = Rs2.Fields("item_no") 
Text_Especific.Text = Rs2.Fields("Especific_prod") 
'Text_Presentacion.Text = Rs2.Fields("item_desc_2") 
'Text_Cantidad.Text = Rs2.Fields("qty_prod") 
Text_Precio.Text = Rs2.Fields("prc_or_disc_1") 
Text_Validez.Text = Rs2.Fields("end_prc") 
Combo_terminos.Text = Rs2.Fields("pay_term") 
'Cmb_Direccion.Text = Rs2.Fields("addr_1") 
'Cmb_Moneda.Text = Rs2.Fields("cot_curr") 
Combo_Vendedor.Text = Rs2.Fields("cot_sales") 
Text_Observ.Text = Rs2.Fields("cot_Observ") 
End Sub  
   

y una cosa para ver si esta vacio tu pones de esta manera:

Código PHP:

  If IsNull(Rs2.Fields("qty_prod")) Then 
Text_Cantidad.Text = "" 
Else 
Text_Cantidad.Text = Rs2.Fields("qty_prod") 
End If  
   

eso lo puedes reemplazar solo por esto:

Código PHP:

  Text_Cantidad.Text = "" &  Rs2.Fields("qty_prod")  
   

espero que te sirva.

Saludos.

[natalyro]

Hola muchas gracias por responderme sashen....

tu nombre es dificil...

hice lo que me dijiste pero no me pregunta crear la matriz de controles, simplemente me saca la advertencia y ya.

sera porque en vba no funciona?

[Sashenka19]

el ejemplo que te di es para visual basic

Saludos.

[vicentecamesella]

Ami me sucede cuando utilizos conexiones nativa prueba tu rutina realizando una conexion por ODBC y veras que te funciona