MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


2 participantes

    [Resolvido]Abrir formulário no último número registado

    avatar
    RLeal
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 27
    Registrado : 08/10/2020

    [Resolvido]Abrir formulário no último número registado Empty [Resolvido]Abrir formulário no último número registado

    Mensagem  RLeal 25/10/2020, 12:02

    Bom dia,
    Estou a precisar de uma ajuda, pois estou a fazer registo manual em que a sequência é registo, 01/2020; 02/2020..., quando chegar a 2021 quero que volte a 01/2021, o meu problema é que quero que quando abrir o formulário abra não o último registo mas sim o último número que introduzi manual, que pode não ser o último registo, ou seja posso introduzir primeiro o 02/2020 e depois o 01/2020, mas quero que quando abrir o formulário aparece sempre o 02/2020.

    Aguardo ajuda
    Obrigado
    avatar
    zcarloslopes
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Abrir formulário no último número registado Empty Re: [Resolvido]Abrir formulário no último número registado

    Mensagem  zcarloslopes 26/10/2020, 11:46

    Bom dia RLeal,

    Tente este código ao abrir o formulário:
    Código:
    Dim MaxReg As String
    Dim MaxAno As String
    Dim MaxNum As String

    MaxAno = DMax("Right([SeuCampoNaTabela],4)", "SuaTabela")

    MaxNum = DMax("Left([SeuCampoNaTabela],2)", "SuaTabela", "Right([SeuCampoNaTabela],4) = '" & MaxAno & "'")

    MaxReg = MaxNum & "/" & MaxAno

    Me.SeuCampoNoFormulario.SetFocus

    DoCmd.FindRecord (MaxReg)
    avatar
    RLeal
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 27
    Registrado : 08/10/2020

    [Resolvido]Abrir formulário no último número registado Empty Re: [Resolvido]Abrir formulário no último número registado

    Mensagem  RLeal 26/10/2020, 17:11

    Boa tarde,
    Obrigado zcarloslopes, por tentares ajudar mas não resultou.
    avatar
    zcarloslopes
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Abrir formulário no último número registado Empty Re: [Resolvido]Abrir formulário no último número registado

    Mensagem  zcarloslopes 27/10/2020, 09:19

    Bom dia RLeal,

    Fiz uma demo com o código que sugeri e funcionou perfeitamente..

    Pergunto:

    Alterou o nome dos campos do código sugerido para os da sua DB?

    Ao abrir o formulário tem mais algum código a seguir ao que sugeri?

    Que erro é que está a dar?

    Obrigado
    avatar
    RLeal
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 27
    Registrado : 08/10/2020

    [Resolvido]Abrir formulário no último número registado Empty Re: [Resolvido]Abrir formulário no último número registado

    Mensagem  RLeal 27/10/2020, 14:12

    Não estou a conseguir, podes me enviar a demo para eu ver o que estou a fazer mal na minha base de dados.
    Obrigado pela ajuda
    avatar
    zcarloslopes
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Abrir formulário no último número registado Empty Re: [Resolvido]Abrir formulário no último número registado

    Mensagem  zcarloslopes 27/10/2020, 16:43

    Boa tarde,

    Veja esta demo.
    Anexos
    [Resolvido]Abrir formulário no último número registado AttachmentdemoTeste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (17 Kb) Baixado 11 vez(es)
    avatar
    RLeal
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 27
    Registrado : 08/10/2020

    [Resolvido]Abrir formulário no último número registado Empty Re: [Resolvido]Abrir formulário no último número registado

    Mensagem  RLeal 27/10/2020, 18:10

    Obrigado zcarloslopes

    Resolvido

    Conteúdo patrocinado


    [Resolvido]Abrir formulário no último número registado Empty Re: [Resolvido]Abrir formulário no último número registado

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 01:32