galera, eu tenho um mdichild com um flexgrid preenchido com ado e o metodo click pega o valor do codigo da tarefa, eu preciso abrir um subformulario com os dados desta tarefa, mas ja me embolei toda e num saiu nada, alguem ai pode dar uma dica??

obrigado

ninh@

 

Não sei se sou eu quem está te olhando... heheheh Brincandeirinha.

 

Tem mais de uma maneira pra fazer isto, mas a mais simples talvez seja fazer uma consulta no banco de dados a partir do codigo recuperado do FlexGrid.

 

Acho que o assunto é um pouco extenso pra ser explanado por aqui, se quiseres me adicionar no msn meu email é cristiano_fischer@hotmail.com . Se quiseres me mandar os fontes para eu dar uma olhada tb pode ser.

 

Um abraço,

Realmente é um pouco complicado mas basicamente vc vai ter q fazer uma consulta em cima do registro q vc escolheu ou seja codigo da tarefa.

 

'Pesquisa pelo codigo

set rsTemp = conexao.execute("Select * from Tarefa WHERE codigo = " &  MSHFlexGrid1.Text)

Vc pode "setar" outro flex ou datagrid com o recordset

 

Set DataGrid.Datasource = rsTemp

 

ai vc tem outro grid contendo os dados daquele registro escolhido.

Basicamente é isso ae...

 

qq dúvida é só postar

 

t+

Talvez ajude ver este exemplo:

 

Você pode melhorar esse código, mas a idéia é essa, funciona legal.. :

 

Private Sub ListView2_ItemClick(ByVal Item As MSComctlLib.ListItem)
  Dim sql13 As String
   
  Me.Tag = Item.Text
  sql13 = "Select * from produtoderivado where id='" & Me.Tag & "'"
  rstobj1.Open sql13
 
  nome = rstobj1!derivado
   
   frmvenda.txtidprod.Text = rstobj1!id
   frmvenda.lbldesc.Caption = nome
   frmvenda.lblqtdedis.Caption = rstobj1!qtdedisp
   frmvenda.lblPre.Caption = Format(rstobj1!valorvenda, "###,##0.00; ###,##0.00;0;ulo")
   frmvenda.Label12.Caption = "ID LOTE"
   frmvenda.lblcat.Caption = rstobj1!idlote
   frmvenda.lblaux1.Caption = "KG"
   frmvenda.lblaux2.Caption = "POR KG"
  

  rstobj1.Close

     frmvenda.txtqtde.SetFocus
End Sub

na base de dados(access) o campo codigo é numerico (inteiro longo), e quando rodo o programa com o codigo abaixo ele chama o sub form mas no momento de preencher os campos, acontece o erro 3021 "EOF ou BOF são verdadeiros, ou o registro atual foi excluido. A operação solicitada pelo aplicativo requer um registro atual."

eu tentei mudar o campo para descrição e a variavel string, os campos foram preenchidos corretamente, mas minha consulta deve ser pelo codigo por ter descrições iguais.

tentei fazer assim:

Private Sub flexCustos_Click()
    Dim codigo As Integer
    codigo = flexCustos.TextMatrix(flexCustos.Row, 0)
    Call ConsultaCustosfilho.busca_codigo(codigo)
    Call ConsultaCustosfilho.Show
   
End Sub

e no sub form tenho estes codigos

    With Adodc1
        .Visible = False
        .ConnectionString = CNN
        .RecordSource = sql
        .EOFAction = adDoMoveMax
        .Mode = adModeReadWrite
        .Refresh
    End With
    txtCodigo.Text = Adodc1.Recordset.Fields("codigo").Value
    txtDescrição.Text = Adodc1.Recordset.Fields("descricao").Value
    txtFundo.Text = Adodc1.Recordset.Fields("fundo").Value
    txtInceidencia.Text = Adodc1.Recordset.Fields("incidencia").Value
    txtValor.Text = Adodc1.Recordset.Fields("valor").Value
    txtPeriodo.Text = Adodc1.Recordset.Fields("periodo").Value
    txtObservação.Text = IIf(IsNull(Adodc1.Recordset.Fields("observacao").Value), "  ", Adodc1.Recordset.Fields("observacao").Value)
End Sub

 

Public Sub busca_codigo(codigoConsulta As Integer)
    sql = "select * from custos where descricao = '" & codigoConsulta & "' "
End Sub