[Resolvido]Caixa pesquisa

Tenho uma caixa de pesquisa de uma caixa de listagem. Porem essa caixa de pesquisa nao consigo entrar com letra maiuscula, somente com minuscula. Qual procedimento ?

Esse abaixo é o codigo antes de atualizar o Campo de Pesquisa.

Código:



Private Sub txtPesquisa_Change()
    Dim ws As Object
    If VarTecla = 1 Then
    VarTecla = 0
    Else
    Me.Refresh
    Set ws = CreateObject("WScript.Shell")
    ws.SendKeys "{F2}"
    End If
End Sub



Andre

Desejo saber tambem como faco para Centralizar os dados dentro de uma caixa de listagem

Grato

Andre

Amigo, eu também tive essa dúvida e consegui resolver centralizando os dados direto na tabela, ai na caixa de listagem ao abrir os dados ficam centralizados. Existe outras formas, pelo o que já pesquisei, mas eu achei a forma que eu fiz bem mais prática. A única coisa que eu não consegui foi centralizar os cabeçalhos.

Grato pela dica, falta agora resolver a outra parte.

Muto Obrigado !

Andre

Resolvido