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]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 : 36
    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 29/9/2019, 13: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 : 205
    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 30/9/2019, 08: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 : 36
    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 1/10/2019, 02: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 : 205
    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 1/10/2019, 08:34

    cheers

    Conteúdo patrocinado

    [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  Conteúdo patrocinado


      Data/hora atual: 9/12/2019, 03:43