MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Registro X de N em um subformulário

    Compartilhe
    avatar
    Tityus
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 19/05/2012

    [Resolvido]Registro X de N em um subformulário

    Mensagem  Tityus em Sex 08 Fev 2013, 03:19

    Olá amigos

    Venho novamente recorrer a este fórum que nunca me decepciona.
    Minha dúvida é a seguinte: Achei na internet um código que para exibir aquela janela que exibe a contagem de registros. O problema é que eu preciso usá-lo em um subformulário e em um sub-subformulário, e ele só funciona no nível de formulário. Segue o código:

    Código:
    Function ExibeRec(frmNome As Form)

        On Error Resume Next

        Dim rs As DAO.Recordset

        Set rs = frmNome.RecordsetClone

        ' Vai para o último registro

        ' para forçar o RecordCount.

        rs.MoveLast

        ' Retorna o ponteiro p/ o registro atual.

        rs.Bookmark = frmNome.Bookmark

       

        If (Err <> 0) Then

            ExibeRec = rs.RecordCount + 1 & " de " & rs.RecordCount + 1

        Else

            ExibeRec = rs.AbsolutePosition + 1 & " de " & rs.RecordCount

        End If

    End Function

    Alguém tem alguma idéia de como fazer isso funcionar um e dois níveis abaixo?
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9556
    Registrado : 04/11/2009

    Re: [Resolvido]Registro X de N em um subformulário

    Mensagem  JPaulo em Sex 08 Fev 2013, 11:15

    Não necessitava de ir à Net procurar, aqui mesmo já existe quase de tudo;

    [Você precisa estar registrado e conectado para ver este link.]

    Diga-me onde e quais os registros que quer contar.

    A caixa de texto irá estar no formulario ?

    A contagem refere-se a que subform ?


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Tityus
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 19/05/2012

    Re: [Resolvido]Registro X de N em um subformulário

    Mensagem  Tityus em Sex 08 Fev 2013, 22:01

    JPaulo, obrigado pela sua resposta, eu realmente não devo ter procurado direito aqui no fórum.

    Minha situação é a seguinte: tenho um formulário de navegação de nome "Global" (percebi depois que o nome era inadequado) com quatro subformulários: "Requisição", "Local", "Preservação" e "Máquinas". Estes quatro exibem o mesmo conjunto de registros, e uso o a propriedade Me.bookmark gravada em uma variável pública "vBookmarkLaudos" para navegar entre eles mantendo o mesmo registro. Gostaria que cada um destes quatro mostrassem uma caixa de texto com estas informações. Outra opção é que esta mesma informação seja mostrada no formulário de navegação principal.

    Porém, o subformulário "Máquinas" possui outro subformulário "inserir_maquina" que insere vários registros relacionados a cada registro do formulário "Máquinas". Para este subformulário, eu preciso de uma caixa de texto em "inserir_maquina" que exiba todos os registros deste que tenham relação com o registro atual de "Máquinas".
    Isso é possível com essas informações ou são necessários mais detalhes?
    Novamente, prefiro que estas caixas de texto fiquem no próprio formulário a que se destinam, da mesma forma que a original. Obrigado novamente pela atenção.
    Yuri
    avatar
    Tityus
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 19/05/2012

    Re: [Resolvido]Registro X de N em um subformulário

    Mensagem  Tityus em Sex 21 Mar 2014, 18:07

    Creio eu que estava utilizando de forma errada a função. Colocava como origem dos dados da caixa de texto =ExibeRec(NomedoFormulário).
    Funcionou quando coloquei no atual o seguinte código:

    Me.Minhacaixadetexto = ExibeRec(Me)

      Data/hora atual: Seg 25 Set 2017, 23:22