crear una busqueda

Viendo 1 entrada (de un total de 1)
  • Autor
    Entradas
  • #6238

    orbilia
    Participante

    hola buenas tardes, con el curso de vba logre hacer un código para realizar una búsqueda: se trata de buscar mediante userform en una base de datos mediante un textbox un apellido, al encontrarlo poner en otros texbox lsu numbre concatenado; por que el nombre completo se divide en 3 columnas, en una apellido paterno, en otra apellido materno y en otro nombre; la dirección su curp y su teléfono. todo corre muy bien, solo que si hay dos o mas apellidos iguales, solo pone el primero que encuentra y los demas ya no los muestra. alguien me podria ayudar por favor. anexo el código. DE ANTEMANO MUCHAS GRACIAS.

    Private Sub CommandButton1_Click()

    Dim ap, apbusca As String

    Dim fila As Integer

    fila = 2

    ap = TextBox8

    Do While apbusca <> ap

    fila = fila + 1

    apbusca = Range(«B» & fila).Value

    If apbusca = Empty Then

    MsgBox «ALUMNO NO ENCONTRADO»

    Exit Do

    End If

    Loop

    Dim apat, amat, nom, curp As String

    Dim grado, gpo As String

    Dim calle, num, col, loc, mun, edo As String

    Dim tel, tutor, taller As String

     

    apat = Range(«B» & fila).Value

    amat = Range(«C» & fila).Value

    nom = Range(«D» & fila).Value

    curp = Range(«E» & fila).Value

    grado = Range(«F» & fila).Value

    gpo = Range(«G» & fila).Value

    calle = Range(«L» & fila).Value

    num = Range(«M» & fila).Value

    col = Range(«N» & fila).Value

    loc = Range(«O» & fila).Value

    mun = Range(«P» & fila).Value

    edo = Range(«Q» & fila).Value

    tel = Range(«R» & fila).Value

    tutor = Range(«S» & fila).Value

    taller = Range(«t» & fila).Value

     

    TextBox1 = apat & » » & amat & » » & nom

    TextBox2 = curp

    TextBox3 = grado & » » & gpo

    TextBox4 = calle & » » & num & » » & col & » » & loc & » » & mun & » » & edo

    TextBox5 = tel

    TextBox6 = tutor

    TextBox7 = taller

    TextBox8.SetFocus

     

Viendo 1 entrada (de un total de 1)
  • Debes estar registrado para responder a este debate.