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

    Campo de busca não funciona

    Compartilhe

    HalfCab
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 14/04/2016

    Campo de busca não funciona

    Mensagem  HalfCab em Ter 03 Maio 2016, 1:07 pm

    Bem galera, primeira vez que estou postando aqui. Esgotaram todas as minhas tentativas kkkkkkk

    Estou criando um banco de dados para a empresa do meu pai. Consegui praticamente tudo e tals, há somente um empecilho.

    Quando tem a lista do cliente ou fornecedores, criei um código aonde o usuário irá digitar o nome da empresa ou tag ou cnpj (em campos separados) e essa lista irá filtrar e caso encontre o desejado, basta dar 2 cliques e abre outro formulário com todas as informações necessárias para o usuário poder entrar em contato com o mesmo.

    Atualmente, em meu código, essa parte de cliques, abre um e fecha outro está indo muito bem, o problema mesmo é os campos de busca que ao digitar, nada acontece. O estranho que peguei esse código de outro banco de dados praticamente idêntico que eu fiz, e nele funciona perfeitamente. Mas nesse, nenhuma das duas listas estão funcionando, segue abaixo o código:


    Option Compare Database
    Option Explicit

    Dim VarTecla

    ' FORMULÁRIO
    ' ESTÁ OK

    Private Sub fechar_Click()
    DoCmd.Close acForm, "ListaCliente", acSaveYes
    End Sub

    ' BOX DE PESQUISA E LISTAGEM
    ' ESTÁ OK

    Private Sub limpar_Click()
    txt_empcliente.SetFocus
    txt_empcliente = Null
    box_listacliente.Requery
    End Sub

    ' BOX DE LISTAGEM QUE SAI DA LISTA E VAI PARA O FORMULÁRIO
    ' ESTÁ OK

    Private Sub box_listacliente_DblClick(Cancel As Integer)
    DoCmd.OpenForm "FormClient", acNormal, "", "[ID do Cliente]=[Forms]![ListaCliente]![box_listacliente]", , acNormal
    DoCmd.Close acForm, "ListaCliente"
    End Sub

    ' AO PRESSIONAR A TECLA

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

    ' BOX DE LISTAGEM

    Private Sub Form_Open(Cancel As Integer)
    Me.KeyPreview = True
    Me.box_listacliente = ""
    End Sub

    ' BOX DE PESQUISA EMPRESA

    Private Sub txt_empcliente_AfterUpdate()
    box_listacliente.Requery
    End Sub

    ' BOX DE PESQUISA EMPRESA

    Private Sub txt_empcliente_Change()
    If VarTecla = 1 Then
    VarTecla = 0
    Else
    Me.Recalc
    Me.txt_empcliente.SelStart = 255
    End If
    End Sub

    ' BOX DE PESQUISA CNPJ

    Private Sub txt_cnpjcliente_AfterUpdate()
    box_listacliente.Requery
    End Sub

    ' BOX DE PESQUISA CNPJ

    Private Sub txt_cnpjcliente_Change()
    If VarTecla = 1 Then
    VarTecla = 0
    Else
    Me.Recalc
    Me.txt_cnpjcliente.SelStart = 255
    End If
    End Sub

    Esse é o layout da lista:

    [Você precisa estar registrado e conectado para ver esta imagem.]

    O bloco em vermelho fica os cnpj, os ocultei por obviamente, segurança interna.

    Estou achando muito estranho, pois no meu outro formulário eu consigo tranquilamente fazer isso...

    Espero que consigam me ajudar Very Happy

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2324
    Registrado : 14/08/2013

    Re: Campo de busca não funciona

    Mensagem  FabioPaes em Sab 07 Maio 2016, 9:19 pm

    Vou te passar um post que fiz algo parecido com o que precisa....
    [Você precisa estar registrado e conectado para ver este link.] Veja Mensagem Nº 06
    [Você precisa estar registrado e conectado para ver este link.] Veja mensagem Nº6

      Data/hora atual: Qui 08 Dez 2016, 9:09 am