MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Código VBA para formulário de pesquisa

    Compartilhe

    vitorsilva
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 2
    Registrado : 26/09/2014

    Código VBA para formulário de pesquisa

    Mensagem  vitorsilva em Ter 30 Set 2014, 14:23

    Boa tarde!

    Preciso de uma ajuda em código VBA Access.

    Criei um formulário de pesquisa, inseri o código VBA e está a funcionar perfeitamente à exceção da tecla espaço, que teima em não funcionar (não dá espaço).

    O código inserido é este:

    Option Compare Database
    Dim VarEspaco

    Private Sub Form_KeyPress(KeyAscii As Integer)
    If KeyAscii = 32 Then
    VarEspaco = 1
    End If
    End Sub

    Private Sub txtmaterial_didatico_AfterUpdate()
    Me.lctmaterial_didatico.Requery
    End Sub


    Private Sub txtmaterial_didatico_Change()
    If VarEspaco = 1 Then
    VarEspaco = 0
    Else
    Me.Recalc
    SendKeys "{f2}"
    End If
    End Sub


    Já agora outra dúvida. Este código apenas permite pesquisar pela primeira palavra da frase. Eu gostaria que, ao escrever qualquer palavra da frase, fique automaticamente selecionada. Ex.: Tenho a seguinte frase - Matemática do João 3º ano. A pesquisa apenas é feita pela palavra matemática. Se escrever João já não dá.

    Alguém pode ajudar?

    Vítor

    João Ricardo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 453
    Registrado : 20/01/2013

    Re: Código VBA para formulário de pesquisa

    Mensagem  João Ricardo em Ter 30 Set 2014, 14:45

    Bem vindo ao Fórum

    Veja o arquivo anexo onde a pesquisa é realizada no próprio formulário.
    Se atender, blz, caso contrário, dê um alô.

    Filtro aqui

    Veja se o anexo deste post serve
    [Você precisa estar registrado e conectado para ver este link.]


    .................................................................................
     [Você precisa estar registrado e conectado para ver esta imagem.] Busco aprendizado e gostaria de contato com pessoas de Campo Grande - MS  [Você precisa estar registrado e conectado para ver esta imagem.]   [Você precisa estar registrado e conectado para ver esta imagem.] 

    vitorsilva
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 2
    Registrado : 26/09/2014

    Re: Código VBA para formulário de pesquisa

    Mensagem  vitorsilva em Ter 30 Set 2014, 16:21

    Boa tarde, João!

    Desculpa, o anexo está muito bom e é isso mesmo que eu quero, mas eu não percebo quase nade de VBA, logo não consegui perceber o tipo de código e muito menos adaptá-lo na minha base de dados.

    envio em anexo o ficheiro para dares uma vista de olhos.

    Obrigado
    Anexos
    Database11.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (29 Kb) Baixado 17 vez(es)

    João Ricardo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 453
    Registrado : 20/01/2013

    Re: Código VBA para formulário de pesquisa

    Mensagem  João Ricardo em Qua 01 Out 2014, 06:01

    Amigo Vitor,

    segue o seu bd com os ajustes.
    Veja que a lista está filtrada pelo campo ÁreaDisciplina.
    Veja a função fncCarregaLista onde aparece o filtro, caso queira mudar, basta trocar o nome do campo na linha correspondente.

    Baixe o aplicativo Maestro do site [Você precisa estar registrado e conectado para ver este link.] e veja vários outros exemplos de filtragem.

    Estude um pouco sobre normatização do banco de dados e verás como usar nomes de campos, objetos, entre outros.
    O teu exemplo não funcionou porque vc estava usando espaços nos nomes de objetos e campos e isso o VBA não aceita.

    Bons estudos.
    Baixe o exemplo aqui


    .................................................................................
     [Você precisa estar registrado e conectado para ver esta imagem.] Busco aprendizado e gostaria de contato com pessoas de Campo Grande - MS  [Você precisa estar registrado e conectado para ver esta imagem.]   [Você precisa estar registrado e conectado para ver esta imagem.] 

      Data/hora atual: Sex 09 Dez 2016, 07:40