Hola colegas tngo un problema sobre conexion de datos y selects sobre excel alguien me podria ayudar???
Private Sub Command1_Click()
Application.DisplayAlerts = False
If ruta <> "" Then
'On Error GoTo salir
Label11 = 0
Dim prendas, bultos As Integer
Dim Mirecordset1 As Recordset
Dim Mirecordset2 As Recordset
Dim Mirecordset3 As Recordset
Dim fecha, code_client, ref_code_client, N_expedition, N_comande, codi_CWF, codi_CEPL As String
Set Mirecordset1 = Data1.Recordset.OpenRecordset("select * from lista$")
While Not Mirecordset1.EOF
fecha = Mirecordset1.Fields(2)
Text1.Text = fecha
bultos = 0
prendas = 0
code_client = Mirecordset1.Fields(4)
ref_code_client = Mirecordset1.Fields(7)
Set Mirecordset2 = Data1.Recordset.OpenRecordset("select * from lista$ where Data1.Recordset.Fields(4)=" & code_client & " and Data1.Recordset.Fields(7)=" & ref_code_client)
While Not Mirecordset2.EOF
N_comande = Mirecordset2.Fields(11)
Set Mirecordset3 = Data1.Recordset.OpenRecordset("select * from lista$ where Data1.Recordset.Fields(4)=" & code_client & " and Data1.Recordset.Fields(7)=" & ref_code_client & " and Data1.Recordset.Fields(11)=" & N_comande)
While Not Mirecordset3.EOF
code_client = Mirecordset3.Fields(4)
codi_CWF = Mirecordset3.Fields(27)
codi_CEPL = Mirecordset3.Fields(28)
N_expedition = Mirecordset3.Fields(1)
Text2.Text = code_client
prendas = prendas + Val(Mirecordset3.Fields(23))
Text7.Text = codi_CEPL
Text3.Text = codi_CWF
Text6.Text = N_expedition
Text8.Text = ref_code_client
bultos = bultos + 1
Text4.Text = prendas
Text5.Text = bultos
Mirecordset3.MoveNext
Label11 = Label11 + 1
Wend
Mirecordset2.MoveNext
Wend
Mirecordset1.MoveNext
Wend
ElseIf ruta = "" Then
GoTo salir
End If
salir:
MsgBox "sacabo"
End Sub
_____
Me da un error "Error de conversion de tipos de datos", en esta linea:
Set Mirecordset1 = Data1.Recordset.OpenRecordset("select * from lista$")
alguien me podria decir porke me falla y si la sintaxi de los bucles estan bien para ke cada select seleccione datos mas filtrados todavia... gracias...
