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:
Esse é o layout da lista:
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
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:
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