Ola pessoal, nao sei se ainda tem um pessoal ativo ainda, mas vou postar uma duvida, bom tenho um programa e o seu modulo onde eu ponho minhas funcoes, e uma delas é a de procurar cep, legal tenho o bd e td, por padrao todas minhas telas tem o text que referese a cep igual, txtcep em todos os form, endereco, bairro etc, bom olhem minha logica:
Function RetornaCep(Form As Form, Tela As String, cep As String)
Dim Objeto As Object
Dim rsSelecao As New ADODB.Recordset
Dim cnnBanco As New ADODB.Connection
Dim cnnComando As New ADODB.Command
cnnBanco.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source =" & App.Path & "BDprojeto.mdb"
cnnBanco.Open
For Each Objeto In Form.Controls
If TypeOf Objeto Is TextBox Then
If (Objeto.Name = "txtcep" And Not (Objeto.Text = "")) Then
With cnnComando
.ActiveConnection = cnnBanco
.CommandType = adCmdText
.CommandText = "SELECT logradouro, tipo, bairro, cidade, estado FROM CEP WHERE cep= '" & cep & "'"
Set rsProcurador = .Execute
End With
If rsProcurador.BOF Then
MsgBox "Este CEP não está cadastrado", , "Aviso"
Tela.txtendereco.Text = ""
Tela.txtbairro.Text = ""
Tela.txtcidade.Text = ""
Tela.cboestados.Text = ""
Tela.txtcep.SetFocus
Else
rsProcurador.MoveMin
Tela.txtendereco.Text = rsProcurador!tipo + " " + rsProcurador!logradouro
Tela.txtbairro.Text = rsProcurador!bairro
Tela.txtcidade.Text = rsProcurador!cidade
Tela.cboestados.Text = rsProcurador!estado
End If
Else
Tela.txtendereco.Text = ""
Tela.txtbairro.Text = ""
Tela.txtcidade.Text = ""
Tela.cboestados.Text = ""
End If
End If
Next
End Function
Eu procuro por todos os objetos no form e vejo o que tem nome de txtcep, minha duvida e como eu faco para transferir os dados dos endereco para o form, tipo eu tentei usar Tela.txtendereco ja que o txtendereco e igual em tds as telas so que nao funciono alguem pode me ajudar?
