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


3 participantes

    Localizar o último registro do formulário

    avatar
    savioss
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 08/01/2015

    Localizar o último registro do formulário Empty Localizar o último registro do formulário

    Mensagem  savioss 21/9/2016, 22:01

    Como faço para saber se estou no último registro?
    Por exemplo:
    if último registro then
    msgbox "Estou no último registro"
    End if

    Não consigo escrever este código, porque não encontro como escrever ÚLTIMO REGISTRO no vba.
    Tenho um formulário contínuo e desejo saber quando cheguei ao último registro.
    Desculpem-me as repetições,
    Obrigado pela ajuda.
    Sávio Silva Santos
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 980
    Registrado : 09/11/2012

    Localizar o último registro do formulário Empty Re: Localizar o último registro do formulário

    Mensagem  =>Nois 22/9/2016, 00:55

    olá segue:

    Código:
    Dim ULTIMO_REG As Double
      
    ULTIMO_REG = DMax("SeuCodigo", "SuaTabela")

    if me.seucampotxt = ULTIMO_REG then

    msgbox "Vc esta no ultimo registro!"

    else

    msgbox "Vc esta no registro: " & ULTIMO_REG

    end if


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    avatar
    savioss
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 08/01/2015

    Localizar o último registro do formulário Empty Ainda não é o que procuro.

    Mensagem  savioss 22/9/2016, 18:35

    Caro Nois, obrigado pela gentileza.
    No entanto, vejo que o código que você me envia encontra o último registro da tabela. Preciso saber se estou no último registro de formulário contínuo, que contém dados de vários clientes, cada cliente tem vários registros...
    Obrigado,
    Sávio
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 980
    Registrado : 09/11/2012

    Localizar o último registro do formulário Empty Re: Localizar o último registro do formulário

    Mensagem  =>Nois 22/9/2016, 19:30

    Bom seja mais especifico na pergunta para nao perdemos tempo

    informe qual é o formulario o campo em questão como pretende que o resultado apareça etc...

    se possivel poste uma parte no bd de exemplo.

    sds


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    Localizar o último registro do formulário Empty Re: Localizar o último registro do formulário

    Mensagem  FabioPaes 22/9/2016, 19:51

    Amigo, eu faça assim:

    Verifico se a Chave primaria esta NULA, se tiver significa que ja passei o Ultimo registro...
    Entao emito o Alerta... e Volto pro Ultimo Registro.


    Coloque isso no Botão de Proximo>>

    'Vai para o Proximo registro >>

    DoCmd.GoToRecord , , acNext

    'Se Tiver Nulo o campo Código que é a chave Primaria,
    'Ele Volta para o ultimo registro e Emite o Alerta.

    If IsNull(Me!Código) Then
    DoCmd.GoToRecord , , acPrevious
    MsgBox "Você já esta no Ultimo Registro ", vbCritical, " Atenção!!!"
    End If
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    Localizar o último registro do formulário Empty Re: Localizar o último registro do formulário

    Mensagem  FabioPaes 22/9/2016, 19:55

    Pode Tabem trocar a verificação de Nulidade do Campo por Me.NewRecord que identifica quando é um Novo Registro...


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    savioss
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 08/01/2015

    Localizar o último registro do formulário Empty Ainda não é o que procuro.

    Mensagem  savioss 22/9/2016, 21:14

    Oi Nois,
    Este é o código:
    Do
    If Me!dataPrescrição = dataPrescriçãoAtual Then
    NumLinhasImpressão = NumLinhasImpressão + 1
    End If
    DoCmd.GoToRecord , , acNext
    Loop While Not Me.NewRecord

     If NumLinhasImpressão < 17 Then
        MsgBox "Número de linhas insuficiente!" & vbCrLf _
        & "Preencha mais " & 17 - NumLinhasImpressão & " linhas." & vbCrLf _
        & "Ou utilize o botão 'Mudar datas'", vbOKOnly, "Complete o número de linhas!"
        Exit Sub
      ElseIf NumLinhasImpressão > 17 Then
        MsgBox "Número de linhas prescritas: " & NumLinhasImpressão & vbCrLf _
        & "Apague " & NumLinhasImpressão - 17 & " linhas." & vbCrLf _
        & "Estas linhas poderão ser impressas em outra(s) folha(s).", vbOKOnly, "Excesso de ítens por folha!"
        Exit Sub
      End If

    Eu não queria chegar ao "novo registro". Onde está Not Me.NewRecord, eu tenho buscado algo que diga: Me.Último registro, e parar aí.
    (Eu estou navegando pelos registro de um formulário contínuo).
    Sorry.
    Obrigado!
    Sávio
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    Localizar o último registro do formulário Empty Re: Localizar o último registro do formulário

    Mensagem  FabioPaes 22/9/2016, 21:50

    A resposta esta na Mensagem Nº 05 amigo... Viu la?


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    savioss
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 08/01/2015

    Localizar o último registro do formulário Empty Ainda não resolvido

    Mensagem  savioss 26/9/2016, 00:18

    Caro Fábio,
    Não sei se você irá perder a paciência comigo.
    Reconheço que estou tendo dificuldade para formular a pergunta.
    Eu não quero IR para o último registro nem compor uma codificação que me garanta que estou lá.
    A minha dúvida é:
    Existe algo semelhante a Me.NewRecord? Como Me.Last record, por exemplo?
    Uma propriedade do formulário...enfim, não sei.
    Não consegui encontrar e não sei se existe, uma vez que sou um neófito...muito pouca experiência; autodidata e novato. (Rsrs).
    Perdoem-me se tomo o tempo de todos com uma dúvida talvez descabida...
    Obrigado,
    Abraços.
    Sávio.
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    Localizar o último registro do formulário Empty Re: Localizar o último registro do formulário

    Mensagem  FabioPaes 26/9/2016, 02:31

    Amigo, agora fiquei confuso...

    Vc quer detectar o Ultimo Registro certo???


    Se sim, veja a mensagem que postei... la ele detecta.

    E quando localizar o Ultimo registro quer fazer o que?

    No exemplo que postei, so detectar o ultimo registro eu nao deixo que o usuario va para frente, e emito alerta que ja esta no ultimo Registro...


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    Conteúdo patrocinado


    Localizar o último registro do formulário Empty Re: Localizar o último registro do formulário

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 03:06