Foro de elhacker.net

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

Set Mirecordset1 = Data1.Recordset.OpenRecordset("select * from lista$")