Error loop sin do, visual basic 6

Tengo un problema con una parte del codigo del un formulario, que hace que me de error en el loop, dice que no tiene do, aun cuanto si lo tiene, si elimino el loop me da un error en el end while, tambien que no tiene el while, si elimino este lo da en el end if, y por utimo termina diciendo que no exise codigo en el formulario. Y no hay end sub
este es parte del codigo, gracias si me puede ayudar.
With Adodc5
    cont = 0
    .Recordset.MoveFirst
    Do While Not .Recordset.EOF
        If UCase(Trim(.Recordset("ced_alum"))) = UCase(Trim(Text1(16).Text)) Then
            If UCase(Trim(Adodc1.Recordset("curso"))) = "7MO GRADO" Or _
            UCase(Trim(Adodc1.Recordset("curso"))) = "8VO GRADO" Then
                If .Recordset("resp1") = "0" Then
                    cont = cont + 1
                End If
                If .Recordset("resp2") = "8" Then
                    cont = cont + 1
                End If
                If .Recordset("resp3") = "11" Then
                    cont = cont + 1
                End If
                If .Recordset("resp4") = "15" Then
                    cont = cont + 1
                End If
                If .Recordset("resp5") = "22" Then
                    cont = cont + 1
                End If
                If .Recordset("resp6") = "29" Then
                    cont = cont + 1
                End If
                If .Recordset("resp7") = "31" Then
                    cont = cont + 1
                End If
                If .Recordset("resp8") = "37" Then
                    cont = cont + 1
                End If
                If .Recordset("resp9") = "41" Then
                    cont = cont + 1
                End If
                If .Recordset("resp10") = "49" Then
                    cont = cont + 1
                End If
                If .Recordset("resp11") = "53" Then
                    cont = cont + 1
                End If
                If .Recordset("resp12") = "57" Then
                    cont = cont + 1
                End If
                If .Recordset("resp13") = "61" Then
                    cont = cont + 1
                End If
                If .Recordset("resp14") = "68" Then
                    cont = cont + 1
                End If
                If .Recordset("resp15") = "70" Then
                    cont = cont + 1
                End If
                If .Recordset("resp16") = "78" Then
                    cont = cont + 1
                End If
                If .Recordset("resp17") = "82" Then
                    cont = cont + 1
                End If
                If...

1 Respuesta

Respuesta
1
Perdon poer la tardanza intenta con el codigo asi como te lo pongo el problema segun lo aprecio es solo un end if que te faltaba y por Jerarquia ewl compilador se fue primero a que no encontro un cierre para el ciclo cuando tenia el problema en una condicional
With Adodc5
    cont = 0
    .Recordset.MoveFirst
    Do While Not .Recordset.EOF
        If UCase(Trim(.Recordset("ced_alum"))) = UCase(Trim(Text1(16).Text)) Then
            If UCase(Trim(Adodc1.Recordset("curso"))) = "7MO GRADO" Or _
            UCase(Trim(Adodc1.Recordset("curso"))) = "8VO GRADO" Then
                If .Recordset("resp1") = "0" Then
                    cont = cont + 1
                End If
                If .Recordset("resp2") = "8" Then
                    cont = cont + 1
                End If
                If .Recordset("resp3") = "11" Then
                    cont = cont + 1
                End If
                If .Recordset("resp4") = "15" Then
                    cont = cont + 1
                End If
                If .Recordset("resp5") = "22" Then
                    cont = cont + 1
                End If
                If .Recordset("resp6") = "29" Then
                    cont = cont + 1
                End If
                If .Recordset("resp7") = "31" Then
                    cont = cont + 1
                End If
                If .Recordset("resp8") = "37" Then
                    cont = cont + 1
                End If
                If .Recordset("resp9") = "41" Then
                    cont = cont + 1
                End If
                If .Recordset("resp10") = "49" Then
                    cont = cont + 1
                End If
                If .Recordset("resp11") = "53" Then
                    cont = cont + 1
                End If
                If .Recordset("resp12") = "57" Then
                    cont = cont + 1
                End If
                If .Recordset("resp13") = "61" Then
                    cont = cont + 1
                End If
                If .Recordset("resp14") = "68" Then
                    cont = cont + 1
                End If
                If .Recordset("resp15") = "70" Then
                    cont = cont + 1
                End If
                If .Recordset("resp16") = "78" Then
                    cont = cont + 1
                End If
                If .Recordset("resp17") = "82" Then
                    cont = cont + 1
                End If
                If .Recordset("resp18") = "89" Then
                    cont = cont + 1
                End If
                If .Recordset("resp19") = "90" Then
                    cont = cont + 1
                End If
                If .Recordset("resp20") = "97" Then
                    cont = cont + 1
                End If
                If .Recordset("resp21") = "103" Then
                    cont = cont + 1
                End If
                If .Recordset("resp22") = "105" Then
                    cont = cont + 1
                End If
                If .Recordset("resp23") = "114" Then
                    cont = cont + 1
                End If
                If .Recordset("resp24") = "117" Then
                    cont = cont + 1
                End If
                If .Recordset("resp25") = "123" Then
                    cont = cont + 1
                End If
                If .Recordset("resp26") = "129" Then
                    cont = cont + 1
                End If
                If .Recordset("resp27") = "130" Then
                    cont = cont + 1
                End If
                If .Recordset("resp28") = "139" Then
                    cont = cont + 1
                End If
                If .Recordset("resp29") = "142" Then
                    cont = cont + 1
                End If
                If .Recordset("resp30") = "146" Then
                    cont = cont + 1
                End If
            ElseIf UCase(Trim(Adodc1.Recordset("curso"))) = "4TO AÑO DIV." Or _
            UCase(Trim(Adodc1.Recordset("curso"))) = "5TO AÑO DIV." Or _
            UCase(Trim(Adodc1.Recordset("curso"))) = "6TO AÑO T.M" Then
                        If .Recordset("resp1") = "0" Then
                    cont = cont + 1
                End If
                If .Recordset("resp2") = "8" Then
                    cont = cont + 1
                End If
                If .Recordset("resp3") = "11" Then
                    cont = cont + 1
                End If
                If .Recordset("resp4") = "15" Then
                    cont = cont + 1
                End If
                If .Recordset("resp5") = "22" Then
                    cont = cont + 1
                End If
                If .Recordset("resp6") = "29" Then
                    cont = cont + 1
                End If
                If .Recordset("resp7") = "31" Then
                    cont = cont + 1
                End If
                If .Recordset("resp8") = "37" Then
                    cont = cont + 1
                End If
                If .Recordset("resp9") = "41" Then
                    cont = cont + 1
                End If
                If .Recordset("resp10") = "49" Then
                    cont = cont + 1
                End If
                If .Recordset("resp11") = "53" Then
                    cont = cont + 1
                End If
                If .Recordset("resp12") = "57" Then
                    cont = cont + 1
                End If
                If .Recordset("resp13") = "61" Then
                    cont = cont + 1
                End If
                If .Recordset("resp14") = "68" Then
                    cont = cont + 1
                End If
                If .Recordset("resp15") = "70" Then
                    cont = cont + 1
                End If
                If .Recordset("resp16") = "78" Then
                    cont = cont + 1
                End If
                If .Recordset("resp17") = "82" Then
                    cont = cont + 1
                End If
                If .Recordset("resp18") = "89" Then
                    cont = cont + 1
                End If
                If .Recordset("resp19") = "90" Then
                    cont = cont + 1
                End If
                If .Recordset("resp20") = "97" Then
                    cont = cont + 1
                End If
                If .Recordset("resp21") = "103" Then
                    cont = cont + 1
                End If
                If .Recordset("resp22") = "105" Then
                    cont = cont + 1
                End If
                If .Recordset("resp23") = "114" Then
                    cont = cont + 1
                End If
                If .Recordset("resp24") = "117" Then
                    cont = cont + 1
                End If
                If .Recordset("resp25") = "123" Then
                    cont = cont + 1
                End If
                If .Recordset("resp26") = "129" Then
                    cont = cont + 1
                End If
                If .Recordset("resp27") = "130" Then
                    cont = cont + 1
                End If
                If .Recordset("resp28") = "139" Then
                    cont = cont + 1
                End If
                If .Recordset("resp29") = "142" Then
                    cont = cont + 1
                End If
                If .Recordset("resp30") = "146" Then
                    cont = cont + 1
            End If
        End If
        End If
        .Recordset.MoveNext
    Loop
    Text1(12).Text = cont
End With

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Crear un nuevo botón

Tengo las siguientes Tablas: - Proveedores (CIF, .) La Clave Principal es de tipo Texto. - Control Facturas (ID Compromiso, CIF Proveedor, Nombre, Año, Fecha, Ref Proveedor) La Clave Principal es de tipo contador. - Tipos Facturas (NºTipoFactura, ID...
1 respuesta

Elavoracion de un examen en vb 6.0

Me gustaria pasar un programa de examen que tengo en vb orientado a excel a visual basic 6.0 pero no puedo hacerlo. Este es el codigo del programa en excel: Private Sub cmdSiguiente_Click() x = Val(lblNo.Caption) bueno = Sheets("examen").Range("g" &...
1 respuesta

Consultas SQL directo en Adodc

Soy Juan Diego, mira necesito una mano con lo siguiente: Utilizo una variable string, una recordset y una connection para hacer esta consulta sql lo que hace es una búsqueda y compara haber sí el proveedor existe: Private Sub...
1 respuesta

Como puedo relacionar 3 combobox

Soy principiante en esto de la programación, estoy haciendo un sistema en visual basic 6.0 con access, el sistema muestra una ley, estoy manejando tres combobox en el cual en el primer combo se tiene que elegir un titulo, después según la opción...
2 respuestas

Comparar datos en una bd

Bien tengo una BD en access2000 en lazada a visual basic6 mediante un adodc1 en la base de datos tengo una tabla llamada principal la cual contiene un campo "vin" y en visual tengo un formulario con un texbox llamado "text1"lo que quiero que haga es...
1 respuesta

Duda sobre consulta a la base de datos

Pues aquí de nuevo con una pregunta, mira lo que pasa es que estoy haciendo una consulta con el siguiente código: PROPMT = "INTRODUZCA LA CLAVE DEL TRABAJDOR" searchstr = UCase(InputBox(PROPMT, "BUSQUEDA POR CLAVE")) Data1.Recordset.Index = "CLAVE"...
2 respuestas

Como evitar que un campo correlativo 001/2013 se repita

Tengo un código para hacer que un nº de expediente vaya incrementado automáticamente en 1 durante 2013, 001/2013, 002/2013 y así sucesivamente y cuando cambie el año empiece de nuevo por 1, 001/2014, etc... Si el nuevo registro va ordenado por fecha...
1 respuesta

Como ingresar letras mayúscula en un textbox

Necesito saber como programo un textbox para que lo que uno introduzca aparezca en mayúscula así uno lo ingrese en minúscula
1 respuesta