none
Como faço pra que o subform exiba mais de um registro? Há um metodo que me retorne mais de um registro ao contrário do FindFirst? RRS feed

  • Pergunta

  • Private Sub procura_reg_form()
       
        If (tb1.RecordCount <> 0) Then
            tb5.MoveFirst
            tb5.FindFirst COD = Me.ID.Value
           
            If tb5.NoMatch Then
                Form_Formulario.Item.Value = tb5("Item")
                Form_Formulario.Desc_Ordem.Value = tb5("Desc_Ordem")
                Form_Formulario.Desc_Classe.Value = tb5("Desc_Classe")
                Form_Formulario.qtd.Value = tb5("qtd")
                Form_Formulario.VALOR.Value = tb5("Valor")
                Form_Formulario.DescBar.Value = tb5("DescBar")
                Form_Formulario.ValorUnit.Value = tb5("ValorUnit")
                Form_Formulario.QtdeBar.Value = tb5("QtdeBar")
            End If
        End If
    End Sub
    quarta-feira, 12 de fevereiro de 2014 16:42