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

    Localizar o último registro do formulário

    Compartilhe

    savioss
    Novato
    Novato

    Respeito às Regras 100%

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

    Localizar o último registro do formulário

    Mensagem  savioss em Qua 21 Set 2016, 23: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
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Re: Localizar o último registro do formulário

    Mensagem  =>Nois em Qui 22 Set 2016, 01: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


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo reflita nessa frase: "Huguinho", "Zezinho" & "Luizinho"

    savioss
    Novato
    Novato

    Respeito às Regras 100%

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

    Ainda não é o que procuro.

    Mensagem  savioss em Qui 22 Set 2016, 19: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
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Re: Localizar o último registro do formulário

    Mensagem  =>Nois em Qui 22 Set 2016, 20: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


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo reflita nessa frase: "Huguinho", "Zezinho" & "Luizinho"

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: Localizar o último registro do formulário

    Mensagem  FabioPaes em Qui 22 Set 2016, 20: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
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: Localizar o último registro do formulário

    Mensagem  FabioPaes em Qui 22 Set 2016, 20: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!

    savioss
    Novato
    Novato

    Respeito às Regras 100%

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

    Ainda não é o que procuro.

    Mensagem  savioss em Qui 22 Set 2016, 22: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
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: Localizar o último registro do formulário

    Mensagem  FabioPaes em Qui 22 Set 2016, 22: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!

    savioss
    Novato
    Novato

    Respeito às Regras 100%

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

    Ainda não resolvido

    Mensagem  savioss em Seg 26 Set 2016, 01: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
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: Localizar o último registro do formulário

    Mensagem  FabioPaes em Seg 26 Set 2016, 03: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!

      Data/hora atual: Dom 11 Dez 2016, 01:16