MaximoAccess

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

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

    [Resolvido]Dúvida como criar txtbox com número do registro atual e a contagem dos registros

    avatar
    ORLANDOCBM
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 01/08/2019

    [Resolvido]Dúvida como criar txtbox com número do registro atual e a contagem dos registros Empty [Resolvido]Dúvida como criar txtbox com número do registro atual e a contagem dos registros

    Mensagem  ORLANDOCBM em Dom 29 Set 2019, 12:54

    Pessoal,


    No meu formulário de  cadastro de cliente, na foto em anexo, tenho uma txtbox que exibe as informações dos registros, assim:

    1 de 1815     =[CurrentRecord] & " de " & Contar(*)    esta é a expressão da fonte de controle dessa txtbox.


    O problema é que quando crio um novo registro, essa txtbox mostra esse valor: 1816 de 1815. E se eu salvar e criar outro novo registro, fica 1817 de 1815.

    Só vai mostrar normal qdo fecho e abro o formulário, aí fica: 1 de 1817

    Alguém pode me dizer o que devo colocar no lugar de "Contar(*)"?


    [Resolvido]Dúvida como criar txtbox com número do registro atual e a contagem dos registros A12
    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 306
    Registrado : 28/10/2010

    [Resolvido]Dúvida como criar txtbox com número do registro atual e a contagem dos registros Empty Re: [Resolvido]Dúvida como criar txtbox com número do registro atual e a contagem dos registros

    Mensagem  zcarloslopes em Seg 30 Set 2019, 07:38

    Bom dia,

    Tente o seguinte:

    Coloque esta função no formulário:
    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
        'rs.Close
        Set rs = Nothing
    End Function

    Na TxtBox onde quer exibir a contagem coloque na origem dos dados:
    Código:
    =ExibeRec(Formulários!NomeDoSeuFormulário)
    avatar
    ORLANDOCBM
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 01/08/2019

    [Resolvido]Dúvida como criar txtbox com número do registro atual e a contagem dos registros Empty Re: [Resolvido]Dúvida como criar txtbox com número do registro atual e a contagem dos registros

    Mensagem  ORLANDOCBM em Ter 01 Out 2019, 01:37

    ZCarlos Lopes, muitíssimo obrigado!!!!!!

    Perfeito! Resolveu meu problema.
    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 306
    Registrado : 28/10/2010

    [Resolvido]Dúvida como criar txtbox com número do registro atual e a contagem dos registros Empty Re: [Resolvido]Dúvida como criar txtbox com número do registro atual e a contagem dos registros

    Mensagem  zcarloslopes em Ter 01 Out 2019, 07:34

    cheers

      Data/hora atual: Qua 23 Set 2020, 13:42