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

    [Resolvido]Pesquisa na Tabela

    Compartilhe

    jgga
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 19
    Registrado : 16/05/2014

    [Resolvido]Pesquisa na Tabela

    Mensagem  jgga em Qui 22 Maio 2014, 13:14

    Estou com um problema de código, tenho uma caixa de listagem (lstFuncionario) e um campo para digitar a pesquisa (txtPesquisa).

    Quando eu altero o campo txtPesquisa (Evento Ao alterar), eu gostaria que ele preencha a caixa de listagem com os dados encontrados na tabela.

    O código que estou usando é esse:

    Código:
    Private Sub txtPesquisa_Change()
        
        lstFuncionario.RowSource = "SELECT cod_Funcionario,Nome,Cargo,Ramal,Usuario,E-mail,Turno FROM Tabela Funcionarios WHERE ((Nome) Like '*" & [txtPesquisa].[Text] & "*')"
        lstFuncionario.Requery
        
        If Len([txtPesquisa].Text) > 0 Then
            Me.lblPesquisa.Caption = "Filtrado"
        Else
            Me.lblPesquisa.Caption = "Pesquisa"
            lstFuncionario.RowSource = ""
        End If
    End Sub

    Porém quando digito algo no campo txtPesquisa ele faz com que apareça o código na caixa de listagem (conforme imagem), acho que estou errando a sintaxe.

    Alguém poderia me ajudar?

    Leandro
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1574
    Registrado : 12/11/2009

    Re: [Resolvido]Pesquisa na Tabela

    Mensagem  Leandro em Qui 22 Maio 2014, 14:20

    Bom dia,

    Insira o código no evento "Após Atualizar"


    .................................................................................




    Algumas soluções em access



    Menu Treeview

    Restringir valores já lançados em caixa de combinação - Texto

    Restringir valores já lançados em caixa de combinação - Valores numéricos



    jgga
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 19
    Registrado : 16/05/2014

    Re: [Resolvido]Pesquisa na Tabela

    Mensagem  jgga em Qui 22 Maio 2014, 17:47

    Ele ainda não está executando o comando sql ao invés disso ele escreve o comando na caixa de listagem.

    Acredito que tenha algum erro de sintaxe.

    Leandro
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1574
    Registrado : 12/11/2009

    Re: [Resolvido]Pesquisa na Tabela

    Mensagem  Leandro em Qui 22 Maio 2014, 20:18

    Poste o banco por favor, em versão 2000.


    .................................................................................




    Algumas soluções em access



    Menu Treeview

    Restringir valores já lançados em caixa de combinação - Texto

    Restringir valores já lançados em caixa de combinação - Valores numéricos



    jgga
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 19
    Registrado : 16/05/2014

    Re: [Resolvido]Pesquisa na Tabela

    Mensagem  jgga em Sex 06 Jun 2014, 17:43

    Estou sem a permissão para postar o BD por políticas internas.

    O erro acredito ainda que esteja na linha que digito o código SQL, ele está reconhecendo como um texto e ñão um comando.

    Sei que não é muito, mas se conseguir me ajudar com essas informações seria grato.

    jgga
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 19
    Registrado : 16/05/2014

    Re: [Resolvido]Pesquisa na Tabela

    Mensagem  jgga em Qui 19 Fev 2015, 10:10

    Problema resolvido através de um módulo de conexão, se alguém precisar do código pode me mandar PM que indicarei como resolvi. Obrigado.

      Data/hora atual: Sab 10 Dez 2016, 12:41