ezequiel
05 de Marzo del 2004

hola que tal alguien sabe porque este codigo me da el mensaje "no hay registro activo", y como puedo hacer para que no me pase esto .

El codigo es para pasar los datos de una columna de un mshflexgrid a una tabla de excel utilizando un datacontrol
Private Sub Command2_Click()
Dim i As Variant
Dim Descripcion As String
For i = 1 To 1000
If IsNull(Data1.Recordset!Descripcion) Then
Descripcion = ""
Else
Descripcion = Data1.Recordset!Descripcion
End If
Grid.TextMatrix(i, 4) = Descripcion

Data1.Recordset.MoveNext
Next i

End Sub

rolando
05 de Marzo del 2004

en ese codigo no veo que hayas declarado un objeto recorset. pero trata de utilizar ese codigo
y muchos menos que este abierto

If Recordset.EOF = False Or Recordset.BOF = False Then
Do While Not Recordset.EOF
...
...
...
Recordset.movemext
loop

Jose Oscar
05 de Marzo del 2004

Ahun no llegue a eso pero supongo que debes abrrir un recordset openrecordset..... va es lo que se me ocurre

Un saludo
Jose Oscar