MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    Campo de busca não funciona

    avatar
    HalfCab
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    Campo de busca não funciona Empty Campo de busca não funciona

    Mensagem  HalfCab 3/5/2016, 18:07

    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:

    Campo de busca não funciona 8484sO2

    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
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    Campo de busca não funciona Empty Re: Campo de busca não funciona

    Mensagem  FabioPaes 8/5/2016, 02:19


      Data/hora atual: 29/3/2024, 04:57