LIST CONSULTAR REGISTRO E ENVIAR P/ CADASTRO

MARCELOFAZAN 15/09/2010 13:10:59
#353029
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
TRTNCG 15/09/2010 13:35:26
#353031
Cria uma função chamada REPORDADOS faz a SQL dentro de cordo com o registro selecionado
MARCELOFAZAN 15/09/2010 13:45:39
#353033
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
MARCELO.TREZE 15/09/2010 18:51:04
#353058
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



MARCELOFAZAN 15/09/2010 19:53:59
#353064
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
PERCIFILHO 16/09/2010 09:01:04
#353087
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.
SACOFRITO 16/09/2010 13:58:31
#353125
Resposta escolhida
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
MARCELOFAZAN 16/09/2010 17:01:01
#353141
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[Ô])







SACOFRITO 16/09/2010 17:10:10
#353143
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
MARCELOFAZAN 16/09/2010 17:29:16
#353145
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
SACOFRITO 16/09/2010 17:35:30
#353146
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
Página 1 de 2 [13 registro(s)]
Tópico encerrado , respostas não são mais permitidas