BUSCANDO E MOVENDO O DATA CONTROL
Olá Boa tarde!
Cara tÃÂ' fazendo um Form de Busca mas está bem complicado, tenho um Form para cadastro onde utilizo um DataControl e um outro Form para fazer a Busca, onde pesquiso e os dados são mostrados num MsFlexgrid, gostaria de quando eu der um duplo clique em algum desses dados retornados ele abrisse o Form de Cadastro com os respectivos dados. TÃÂ' Fazendo assim:
If cboTable = "Clientes" Then
dtaBusca.DatabaseName = "\Dados\Bdimobiliaria.mdb"
dtaBusca.RecordSource = "Loc"
dtaBusca.RecordsetType = 0
dtaBusca.Recordset.Index = "IndCod"
dtaBusca.Recordset.Seek "=", txt0
If dtaBusca.Recordset.NoMatch Then
MsgBox "Cliente não localizado ! ", vbExclamation, "Localizar Clientes"
End If
dtaBusca.Recordset.MovePrevious
Marcador = dtaBusca.Recordset.Bookmark
frmContrLoc.dtaContrato.Recordset.Bookmark = Marcador
End If
Se alguém puder me ajudar com esse problema. Obrigado!
Cara tÃÂ' fazendo um Form de Busca mas está bem complicado, tenho um Form para cadastro onde utilizo um DataControl e um outro Form para fazer a Busca, onde pesquiso e os dados são mostrados num MsFlexgrid, gostaria de quando eu der um duplo clique em algum desses dados retornados ele abrisse o Form de Cadastro com os respectivos dados. TÃÂ' Fazendo assim:
If cboTable = "Clientes" Then
dtaBusca.DatabaseName = "\Dados\Bdimobiliaria.mdb"
dtaBusca.RecordSource = "Loc"
dtaBusca.RecordsetType = 0
dtaBusca.Recordset.Index = "IndCod"
dtaBusca.Recordset.Seek "=", txt0
If dtaBusca.Recordset.NoMatch Then
MsgBox "Cliente não localizado ! ", vbExclamation, "Localizar Clientes"
End If
dtaBusca.Recordset.MovePrevious
Marcador = dtaBusca.Recordset.Bookmark
frmContrLoc.dtaContrato.Recordset.Bookmark = Marcador
End If
Se alguém puder me ajudar com esse problema. Obrigado!
Opa, com certeza amigão, eu usei o DBGRID mais nada impede que com esse exemplo você utilize outro ou ele mesmo que é até bacaninha.
O exemplo está em anexo, veja se te ajuda !!
Abraços !!
O exemplo está em anexo, veja se te ajuda !!
Abraços !!
Cara, é só vc fazer assim, no form de busca, ao dar o duplo clique vc filtra os dados no DataControl do form de cadastro e fecha o form de busca, +/- assim:
Qualquer dúvida poste...flw
With frmCadastro
Set .Data1.RecordSet = cn.OpenRecordset("SELECT * FROM TABELA WHERE CODIGO = " & Flex.TextMatrix(Flex.Row, [colula_codigo]))
Unload Me
End With
Qualquer dúvida poste...flw
Valew amigos!
Brigadão!
Brigadão!
Tópico encerrado , respostas não são mais permitidas