Boa noite.
Estou com um pequeno problema quando executo um formulario para a pesquisa de endereço através de uma tabela de CEP.
O que ocorre é que ao digitar, o BD não acompanha as teclas (demora a processar) e quando o digito mais que 3 caracteres o mesmo apaga os que ja foi digitado digitando apenas o quarto caractere.
O código que estou usando é o seguinte
Acredito que isso ocorra devido ao grande numero de registros da tabela cep
Obs: O nome da txtbox e do clst está como produto porque aproveitei um formulário de pesquisa de produtos que tinha e quando mudo o nome da erro
Estou com um pequeno problema quando executo um formulario para a pesquisa de endereço através de uma tabela de CEP.
O que ocorre é que ao digitar, o BD não acompanha as teclas (demora a processar) e quando o digito mais que 3 caracteres o mesmo apaga os que ja foi digitado digitando apenas o quarto caractere.
O código que estou usando é o seguinte
- Código:
Option Compare Database
Dim VarEspaco
Private Sub Form_Load()
Me.txt_Produto.SetFocus
End Sub
Private Sub clst_Produtos_Click()
On Error Resume Next
Forms.frm_cadforn.cbocep = Me.clst_Produtos.Column(1)
Forms.frm_cadforn.TxtEndereco = Me.clst_Produtos.Column(0)
Forms.frm_cadforn.txtbairo = Me.clst_Produtos.Column(2)
Forms.frm_cadforn.txtCidade = Me.clst_Produtos.Column(3)
Forms.frm_cadforn.txtEstado = Me.clst_Produtos.Column(4)
DoCmd.Close acForm, "Frm_Procend"
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 32 Then
VarEspaco = 1
End If
End Sub
Private Sub txt_Produto_AfterUpdate()
Me.clst_Produtos.Requery
End Sub
Private Sub txt_Produto_Change()
If VarEspaco = 1 Then
VarEspaco = 0
Else
Me.Recalc
SendKeys "{F2}"
End If
End Sub
Acredito que isso ocorra devido ao grande numero de registros da tabela cep
Obs: O nome da txtbox e do clst está como produto porque aproveitei um formulário de pesquisa de produtos que tinha e quando mudo o nome da erro