|
Postada em 10/04/2008 22:42 hs
Blz Treze deu certo, agora como eu passo a pesquisa encontrada para o formulario de cadastro, tipo as informações do datagrid para um textbox do formulario cadastro.....no cadastro de clientes quando pesquiso utilizo o listview fica assim: Private Sub cmdOK_Click() Load frmPesquisaCliente If rec.State > 0 Then rec.Close rec.open "select * from Clientes where codigo ='" & Lista.SelectedItem & "'", conn frmCadCliente.txtCodigo.Text = rec(0) frmCadCliente.txtNome.Text = rec(1) Unload frmPesquisaCliente e com o datagrid no caso do CEP como fazer a mesma coisa?Jogar os dados da coluna CEP, RUA para o formulario de cadastro....
|
TÓPICO EDITADO
|
|
|
|
|
|
Postada em 11/04/2008 09:05 hs
Se entendi direito o que você quer é exibir os dados nos campos text ao se clicar em uma linha especifica do grid, ou selecionar no gris e exibir nos campos
|
|
|
|
Postada em 11/04/2008 12:01 hs
Isso mesmo, to no formulario do cadastro, clico no botao pra procurar o cep(sem ter preenchido nada no cadastro ainda)abre o formulario de busca de cep, encontro a rua e o cep, quando dou enter, dois cliques ou clico no botão OK, os dados que foram encotrados e que estao no grid vao para o formulario cadastro nos txtrua e txtcep, e o formulario de busca cep fecha.....
|
|
|
Treze
|
SÃO VICENTE SP - BRASIL
|
|
Postada em 11/04/2008 12:26 hs
Qual o grid que você está usando datagrid, msflexgrid, ou listview
|
|
|
|
Postada em 11/04/2008 12:57 hs
Um exemplo com ListView (não sei se é o seu caso) Private Sub Lista_DblClick() If Lista.ListItems.Count = 0 Then Exit Sub End If Cadastro.TxtCodigo = Lista.SelectedItem.Text End Sub
Aí você cria uma Sub para prencher os outros campos do formulário:
Private Sub PreencheDados sql = "Select * From Cadastro Where Cep Like '" & txtcep.text & "'" set rs = db.OpenRecordset(sql) txtrua.text = rs("rua") txtendereco.text = rs("endereco") End Sub etc.... Deu para entender?
|
|
|
|
Postada em 11/04/2008 17:37 hs
VALEW GALERA CONSEGUI: frmCadCliente.txtRua.Text = dtgrdcep.Columns(1)
|
TÓPICO EDITADO
|
|
|
|