Pra começa tenho uma tabela recheada de endreços( que estrai de algum banco mdb de alg site que fornecia banco de endereços.
e importei para o meu mdb com o nome CEPRN. com os seguites campos:
Seq (chave primária)
Endc
SeRuave ( se é rua ou avenida )
Bairroc
Cidadec
CEPc
tenho uma Caixa-de-Combinão(pesqend) - (Não aclopada, que preferia que fosse um mini form) no form de clientes, Que nas propriedades desse caixa..de c..
Na origem da linha tem a seguite instru.. SQL:
SELECT CEPRN.Endc, CEPRN.SeRuave, CEPRN.Bairroc, CEPRN.Cidadec, CEPRN.CEPc FROM CEPRN;
linhas: 5
Apos atulizar: em codigo vba tem o seguite:
Private Sub pesqend_AfterUpdate()
Me.ActiveControl = UCase(Me.ActiveControl)
[Endereço] = pesqend.Column(0) ' copia da coluna 0(endc) p/ Endereços
[titoruav] = pesqend.Column(1)
[bairro] = pesqend.Column(2)
[Cidade] = pesqend.Column(3)
[CEP] = pesqend.Column(4)
Dim blRet As Boolean ' block bola do mouse
blRet = MouseWheelOFF(False)
Nº_End.SetFocus ' da foco au proximo campo
pesqend.Value = Null ' limpa a Caixa-de-Combinão(pesqend)
End Sub
até ai tudo bem: funciona Normal
o pro é que tem ruas com os mesmo nome Tipo asim:
santa fé bairro a
santa fé bairro b
em bairros difentes e codigos firentes
se eu apontár o "bairro b" ele pega o primeiro da lista no caso o "bairro a"
para resolver por enquanto repetir todo processo só que au invés de pesquizar pela rua fiz por codigo ai deu certo. e fiquei com o form de clientes cheio de Caixa-de-Combinão.
quando um mini form poderia fazer isso ou apenas uma Caixa-de-Combinão.
Pergunta
charlehardware
Olá pessoal eu de novo!
Pra começa tenho uma tabela recheada de endreços( que estrai de algum banco mdb de alg site que fornecia banco de endereços.
e importei para o meu mdb com o nome CEPRN. com os seguites campos:
Seq (chave primária)
Endc
SeRuave ( se é rua ou avenida )
Bairroc
Cidadec
CEPc
tenho uma Caixa-de-Combinão(pesqend) - (Não aclopada, que preferia que fosse um mini form) no form de clientes, Que nas propriedades desse caixa..de c..
Na origem da linha tem a seguite instru.. SQL:
SELECT CEPRN.Endc, CEPRN.SeRuave, CEPRN.Bairroc, CEPRN.Cidadec, CEPRN.CEPc FROM CEPRN;
linhas: 5
Apos atulizar: em codigo vba tem o seguite:
Private Sub pesqend_AfterUpdate()
Me.ActiveControl = UCase(Me.ActiveControl)
[Endereço] = pesqend.Column(0) ' copia da coluna 0(endc) p/ Endereços
[titoruav] = pesqend.Column(1)
[bairro] = pesqend.Column(2)
[Cidade] = pesqend.Column(3)
[CEP] = pesqend.Column(4)
Dim blRet As Boolean ' block bola do mouse
blRet = MouseWheelOFF(False)
Nº_End.SetFocus ' da foco au proximo campo
pesqend.Value = Null ' limpa a Caixa-de-Combinão(pesqend)
End Sub
até ai tudo bem: funciona Normal
o pro é que tem ruas com os mesmo nome Tipo asim:
santa fé bairro a
santa fé bairro b
em bairros difentes e codigos firentes
se eu apontár o "bairro b" ele pega o primeiro da lista no caso o "bairro a"
para resolver por enquanto repetir todo processo só que au invés de pesquizar pela rua fiz por codigo ai deu certo. e fiquei com o form de clientes cheio de Caixa-de-Combinão.
quando um mini form poderia fazer isso ou apenas uma Caixa-de-Combinão.
no aguardo.
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.