MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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

    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?

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    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 ?


    .................................................................................
    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.]

    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

    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 05 Dez 2016, 04:27