LIST CONSULTAR REGISTRO E ENVIAR P/ CADASTRO
Pessoal ,
tenho o frmcliente = cadastro do cliente
tenho o frmbuscacliente = busca nos dados do cliente
só que ambas telas nao funcionam juntas .
entao tenho um list da consulta , apartir do registro qdo clicar 2 vezes ... ou clicar 1 e dar Enter , mandar esses dados
frmbuscacliente objeto list , para disparar a private mostradados da tela frmcliente
como posso estar enviando informacoes apartir de 2 clique no list para outro form o de cadastro
utilizando mostradados no form que vai receber
Abs
Marcelo Fazan
tenho o frmcliente = cadastro do cliente
tenho o frmbuscacliente = busca nos dados do cliente
só que ambas telas nao funcionam juntas .
entao tenho um list da consulta , apartir do registro qdo clicar 2 vezes ... ou clicar 1 e dar Enter , mandar esses dados
frmbuscacliente objeto list , para disparar a private mostradados da tela frmcliente
como posso estar enviando informacoes apartir de 2 clique no list para outro form o de cadastro
utilizando mostradados no form que vai receber
Abs
Marcelo Fazan
Cria uma função chamada REPORDADOS faz a SQL dentro de cordo com o registro selecionado
ola TR ainda nao criei nenhuma funcao . caso tenha um do genero , e poder colar , consigo modificar para utilizar
estava pensando em algo mais simples como ,
if apertar 2 cliques no list
registro = &
FrmCliente.Show vbModal
valida mostra_dados registro &
unload frmbuscacliente
endif
seguindo essa teoria nao sei executar um duploclick dentro do list ... entao é um buraco que alguem ja deve ter passado
e precisava acrescentar esse trecho que poderia ser nos forms a qual terão essa comunicacao cadastro pequisa cadastro
acontece que as vezes qdo preciso buscar um cadastro de cliente preciso apertar umas trocentas vezes a seta rsrs
Obrigado
abs
Marcelo
estava pensando em algo mais simples como ,
if apertar 2 cliques no list
registro = &
FrmCliente.Show vbModal
valida mostra_dados registro &
unload frmbuscacliente
endif
seguindo essa teoria nao sei executar um duploclick dentro do list ... entao é um buraco que alguem ja deve ter passado
e precisava acrescentar esse trecho que poderia ser nos forms a qual terão essa comunicacao cadastro pequisa cadastro
acontece que as vezes qdo preciso buscar um cadastro de cliente preciso apertar umas trocentas vezes a seta rsrs
Obrigado
abs
Marcelo
Vamos lá
vc estando no frmbuscacliente faz o seguinte
coloque no evento DBlclick do list
frmcliente.show
with frmcliente
.txtnome = list1.list(list1.listindex)
end with
bem da forma acima irá exibir o nome selecionado no list1 em txtnome do form2
bom use isto com uma consulta e irá funcionar tambem
vc estando no frmbuscacliente faz o seguinte
coloque no evento DBlclick do list
frmcliente.show
with frmcliente
.txtnome = list1.list(list1.listindex)
end with
bem da forma acima irá exibir o nome selecionado no list1 em txtnome do form2
bom use isto com uma consulta e irá funcionar tambem
Olá Marcelo , tudo bom
clicando na linha me mando todos os registros para tela de cadastro esse é procedimento ou somente apareceria o nome ??
nao necessito declarar os outros txt , somente assilinando como nome abaixo ja envio tb os outro campos funcionando como uma selecao ?
testei e mostro a outra tela só que nessa linha .txtnome = LsvBusca.ListItems(LsvBusca.Index) me apresenta essa mensagem runtime error 343 object not an array .... o que preciso arrumar tenho uma ideia que seja em (LsvBusca.Index)
os dados do list
LsvBusca.ListItems.Clear
set Item = LsvBusca.ListItems.Add(, , rs([Ô]nome[Ô]))
o que preciso exatamente escrever LsvBusca.Index ListItemsindex ??? etc ...
Private Sub LsvBusca_DblClick()
FrmCliente.Show vbModal
With FrmCliente
.txtnome = LsvBusca.ListItems(LsvBusca.Index)
End With
End Sub
Obrigado
Abraço
elo xáras
clicando na linha me mando todos os registros para tela de cadastro esse é procedimento ou somente apareceria o nome ??
nao necessito declarar os outros txt , somente assilinando como nome abaixo ja envio tb os outro campos funcionando como uma selecao ?
testei e mostro a outra tela só que nessa linha .txtnome = LsvBusca.ListItems(LsvBusca.Index) me apresenta essa mensagem runtime error 343 object not an array .... o que preciso arrumar tenho uma ideia que seja em (LsvBusca.Index)
os dados do list
LsvBusca.ListItems.Clear
set Item = LsvBusca.ListItems.Add(, , rs([Ô]nome[Ô]))
o que preciso exatamente escrever LsvBusca.Index ListItemsindex ??? etc ...
Private Sub LsvBusca_DblClick()
FrmCliente.Show vbModal
With FrmCliente
.txtnome = LsvBusca.ListItems(LsvBusca.Index)
End With
End Sub
Obrigado
Abraço
elo xáras
Você está usando uma ListView?
se for, não teria que ser assim:
With FrmCliente
.txtnome = LsvBusca.SelectedItem.Text
End With
Se estiver errado me corrijam por favor.
Até mais.
se for, não teria que ser assim:
With FrmCliente
.txtnome = LsvBusca.SelectedItem.Text
End With
Se estiver errado me corrijam por favor.
Até mais.
Faça tipo assim
no change do txtcodigo
Tbcliente.findfirst [Ô]codigo=[Ô] & txtcodigo
if not tbcliente.nomatch then
Funcao_mostraDados
end if
usa como como o Percifilho falou...atribui o valor text da listview ao objeto txtcodigo
no change do txtcodigo
Tbcliente.findfirst [Ô]codigo=[Ô] & txtcodigo
if not tbcliente.nomatch then
Funcao_mostraDados
end if
usa como como o Percifilho falou...atribui o valor text da listview ao objeto txtcodigo
seria assim
Tabela.FindFirst [Ô]id=[Ô] & txtid.Text
If Not Tabela.NoMatch Then
MostraDados rs
End If
Tabela.Close
mais nessa primeira linha parece que to informando variaveis iguais originando aquele erro 3265 e aponta para essa linha txtid.Text = rs([Ô]id[Ô])
Tabela.FindFirst [Ô]id=[Ô] & txtid.Text
If Not Tabela.NoMatch Then
MostraDados rs
End If
Tabela.Close
mais nessa primeira linha parece que to informando variaveis iguais originando aquele erro 3265 e aponta para essa linha txtid.Text = rs([Ô]id[Ô])
Tenta essa rotina ai mas no form da lista
list_dblclik()
if isnumeric(lsvBusca.SelectedItem.text) then
formcliente.txtnome = LsvBusca.SelectedItem.Text
else
exit sub
end if
end sub
list_dblclik()
if isnumeric(lsvBusca.SelectedItem.text) then
formcliente.txtnome = LsvBusca.SelectedItem.Text
else
exit sub
end if
end sub
ok só falta um detalhe , em todos esses campos ............. aparecem o numero respectivo ao registro tudo 1 ou tudo 2 em todos os campos
Private Sub LsvBusca_DblClick()
If IsNumeric(LsvBusca.SelectedItem.Text) Then
FrmCliente.txtid = LsvBusca.SelectedItem.Text
FrmCliente.txtnome = LsvBusca.SelectedItem.Text
FrmCliente.TxtPagam = LsvBusca.SelectedItem.Text
FrmCliente.Txtcodigo = LsvBusca.SelectedItem.Text
FrmCliente.Txtdata = LsvBusca.SelectedItem.Text
FrmCliente.txtpagamento = LsvBusca.SelectedItem.Text
FrmCliente.Show vbModal
Else
Exit Sub
End If
a outra parte do meu codigo o subitems sao enumerados
Do While Not rs.EOF
Set Item = LsvBusca.ListItems.Add(, , rs([Ô]ID[Ô]))
Item.SubItems(1) = [Ô][Ô] & rs([Ô]Nome[Ô])
Item.SubItems(2) = [Ô][Ô] & rs([Ô]pagam[Ô])
Item.SubItems(3) = [Ô][Ô] & rs([Ô]codigo[Ô])
Item.SubItems(4) = [Ô][Ô] & rs([Ô]data[Ô])
Item.SubItems(5) = [Ô][Ô] & rs([Ô]pagamento[Ô])
rs.MoveNext
Loop
como vo proceder nas linhas pros LsvBusca.SelectedItem.Text
LsvBusca.SelectedItem(1) .Text tentei isso a sintax é incorreta
Obrigado
Private Sub LsvBusca_DblClick()
If IsNumeric(LsvBusca.SelectedItem.Text) Then
FrmCliente.txtid = LsvBusca.SelectedItem.Text
FrmCliente.txtnome = LsvBusca.SelectedItem.Text
FrmCliente.TxtPagam = LsvBusca.SelectedItem.Text
FrmCliente.Txtcodigo = LsvBusca.SelectedItem.Text
FrmCliente.Txtdata = LsvBusca.SelectedItem.Text
FrmCliente.txtpagamento = LsvBusca.SelectedItem.Text
FrmCliente.Show vbModal
Else
Exit Sub
End If
a outra parte do meu codigo o subitems sao enumerados
Do While Not rs.EOF
Set Item = LsvBusca.ListItems.Add(, , rs([Ô]ID[Ô]))
Item.SubItems(1) = [Ô][Ô] & rs([Ô]Nome[Ô])
Item.SubItems(2) = [Ô][Ô] & rs([Ô]pagam[Ô])
Item.SubItems(3) = [Ô][Ô] & rs([Ô]codigo[Ô])
Item.SubItems(4) = [Ô][Ô] & rs([Ô]data[Ô])
Item.SubItems(5) = [Ô][Ô] & rs([Ô]pagamento[Ô])
rs.MoveNext
Loop
como vo proceder nas linhas pros LsvBusca.SelectedItem.Text
LsvBusca.SelectedItem(1) .Text tentei isso a sintax é incorreta
Obrigado
em vez de ...selecteditems.text vc coloca selecteditems.subitems(x)
mas se vc tem a rotina para mostrar no change do seu codigo pq atribuir os dados da list view aos objetos do form cliente de novo?
apenas mudando oq tem na textbox do codigo ele iria mostrar o resto
mas se vc tem a rotina para mostrar no change do seu codigo pq atribuir os dados da list view aos objetos do form cliente de novo?
apenas mudando oq tem na textbox do codigo ele iria mostrar o resto
Tópico encerrado , respostas não são mais permitidas