Problema con inputbox vb6.0

Tengo el siguiente código se trata de una interfaz en VB6 con la cual puedo visualizar buscar borrar y editar registros almacenados en una tabla access 2003 funciona bien el problema es que como podrá ver tengo un inputbox que funciona perfecto cuando se ingresa la información solicitada pero el problema es si el usuario desea cancelar la búsqueda es decir si en vez de dar en aceptar hace click en cancelar el programa se cae y tira error como puedo solucionar eso?
Private Sub Command2_Click()
codigo = InputBox("Ingrese codigo a buscar", "BUSCAR")
With tabla
    If .BOF And .EOF Then
    MsgBox "No existe ningún registro relacionado"
    Else
        .MoveFirst
    End If
    bandera = False
    Do While Not .EOF
        If codigo = !rut Then
            Text1 = !rut
            Text2 = !nombre
            Text3 = !faena
            DTPicker2 = !ingreso
            DTPicker1 = !vence_exam_altura
            Text4 = !cargo
            Text5 = !celular
            Text6 = !requisitos
            bandera = True
            Exit Do
        End If
        .MoveNext
    Loop
    If bandera = False Then
        MsgBox "No se encontro el codigo buscado"
    End If
End With
End Sub

1 respuesta

Respuesta
1
La solución es simple:
Private Sub Command2_Click()
codigo = InputBox("Ingrese codigo a buscar", "BUSCAR")
if codigo = "" then Exit Sub
With tabla
    If .BOF And .EOF Then
    MsgBox "No existe ningún registro relacionado"
    Else
        .MoveFirst
    End If
    bandera = False
    Do While Not .EOF
        If codigo = !rut Then
            Text1 = !rut
            Text2 = !nombre
            Text3 = !faena
            DTPicker2 = !ingreso
            DTPicker1 = !vence_exam_altura
            Text4 = !cargo
            Text5 = !celular
            Text6 = !requisitos
            bandera = True
            Exit Do
        End If
        .MoveNext
    Loop
    If bandera = False Then
        MsgBox "No se encontro el codigo buscado"
    End If
End With
End Sub
mmm parece que hice algo mal copie su código pero sigue el error en la misma linea
Que estaré haciendo mal lo que hice fue agregar su linea
¿De qué tipo de variable es código?

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas