LIST CONSULTAR REGISTRO E ENVIAR P/ CADASTRO

MARCELOFAZAN 16/09/2010 17:47:43
#353148

Private Sub LsvBusca_DblClick()
If IsNumeric(LsvBusca.SelectedItem.Text) Then
FrmCliente.txtid = LsvBusca.SelectedItem.Text
FrmCliente.txtnome = LsvBusca.SelectedItem.SubItems(1)
FrmCliente.TxtPagam = LsvBusca.SelectedItem.SubItems(2)
FrmCliente.Txtcodigo = LsvBusca.SelectedItem.SubItems(3)
FrmCliente.Txtdata = LsvBusca.SelectedItem.SubItems(4)
FrmCliente.txtpagamento = LsvBusca.SelectedItem.SubItems(5)
FrmCliente.Show vbModal
Else
Exit Sub
End If
End Sub


fuincionou amigo valew mesmo ...... , só que se eu alterar e salvar ate ai normal . atualizo
so que no list nao atualiza ....


mais mesmo assim vo tentar fechar o form apos chamar o cadastro
vlew

Abraços
Marcelo

SACOFRITO 16/09/2010 17:51:22
#353149

é so após vc atualizar os dados, vc chamar a funçao que preenche a list de novo
Mas nao sei como fazer isso de um form para outro

MARCELOFAZAN 16/09/2010 21:36:01
#353172

ola amigo ajudo bastante
dei uma olhada e seria algo assim no botao gravar

Call frmbuscacliente.PreencheList

so que no caso preenchelist teria que ser uma sub para chamar no comando acima

mais por enquanto resolvemos metade do problema


Private Sub LsvBusca_DblClick()
If IsNumeric(LsvBusca.SelectedItem.Text) Then
FrmCliente.txtid = LsvBusca.SelectedItem.Text
FrmCliente.txtnome = LsvBusca.SelectedItem.SubItems(1)
FrmCliente.TxtPagam = LsvBusca.SelectedItem.SubItems(2)
FrmCliente.Txtcodigo = LsvBusca.SelectedItem.SubItems(3)
FrmCliente.TxtData = LsvBusca.SelectedItem.SubItems(4)
FrmCliente.txtpagamento = LsvBusca.SelectedItem.SubItems(5)


If Dir(App.Path & [Ô]\FOTOS\[Ô] & FrmCliente.txtid & [Ô].bmp[Ô]) <> [Ô][Ô] Then
FrmCliente.Picture1.Picture = LoadPicture(App.Path & [Ô]\FOTOS\[Ô] & FrmCliente.txtid & [Ô].bmp[Ô])
Else
FrmCliente.Picture1.Picture = LoadPicture([Ô][Ô])
End If

FrmCliente.Show vbModal
Unload Me
Else
Exit Sub
End If
End Sub


nesse caso , consulta mostra , altera e quando fecha o form de cadastro inves de atualizar a consulta fecho ambas telas juntas , colocando um unload me
mais ja resolvera a questao de dar um monte de clique para chegar num registro obrigado ate +