none
problemas de busqueda de registros mediante ucase RRS feed

  • Pregunta

  • Amigos que tal aqui consultandoles, miren tengo este problema quiero realizar una consulta ya sea con opt cliente o por un opt dni y una caja de texto llamada txtbusqueda en donde al momento de escribir me muestre en la grilla el resultado de la busqueda y con UCase(Trim(txtbusqueda.Text)) & "%" me ayude al momento de escribir la primera letra me ubique todos esso clientes que empiezen con la primera letra inicial y asi sucesivamente la siguiente letra del nombre..

    pero resulta de que al momento de escribir no me permite avanzar con la escritura en la caja de texto llamada txtbusqueda... tal vez creo que al momento de llamar a buscacliente() lo haga en el procedimiento change, para descartar lo llame desde un comandbutton al momento de hacer click o en keypress pero nada...

    Sub buscacliente()
    Dim busca As String
    busca = UCase(Trim(txtbusqueda.Text)) & "%"
    txtbusqueda.Text = busqueda

    With adocliente.Recordset
        adocliente.Refresh
        adocliente.Recordset.MoveFirst
    If adocliente.Recordset.BOF And adocliente.Recordset.EOF Then Exit Sub
        Me.adocliente.Recordset.Filter = "cliente='" & Trim(txtbusqueda.Text) & "'"
        Set grillacliente.DataSource = Me.adocliente.Recordset
        Call formatogrilla
    End With

    End Sub
    Private Sub txtbusqueda_Change()
    If optcliente.Value = True Then buscacliente

    End Sub
    jueves, 20 de junio de 2013 17:33