Postada em 10/06/2008 11:27 hs
Ola pessoal,
Queria saber se algume pode me dar uma ajuda nessa questao
Tenho um form com um campo CEP onde eu queria que ao digita-lo ja ja fossem preenchido os campos " RUA" e " BAIRRO".Eu já enho uma tabela que contem os CEPs,Ruas e Bairros.Entao é isso....Digito o CEP no campo e procuro na tabela trazendo os campos "RUA" e " BAIRRO".
O que eu fiz até agora foi isso mas só me traz o primeiro CEP ta tabela.
Private Sub TextCEP_LostFocus()
Data2.Recordset.Index = "IndCod"
Data2.Recordset.Seek "=", Data2.Recordset.Fields!CodLog
If Data2.Recordset.NoMatch = False Then
If TextCEP.Text = Data2.Recordset.Fields!Cep Then
TextBairro.Text = Data2.Recordset.Fields!Bairro
TextEnd.Text = Data2.Recordset.Fields!Rua
Else
MsgBox " CEP NÃO ENCONTRADO!", vbExclamation, "INSERIR REGISTRO"
End If
Else
MsgBox " CEP NÃO ENCONTRADO!", vbExclamation, "INSERIR REGISTRO"
End If
End Sub
|
