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

    Avançar sem criar novo Registro

    Compartilhe
    avatar
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Avançar sem criar novo Registro

    Mensagem  =>Nois em Sex 7 Nov - 17:34

    Boa tarde!

    Criei esta função para avançar sem criar um novo registro, no entanto a função é meio lenta gostaria de algo mais rápido


    Private Sub Comando100_Click()

    Dim ULTIMO_REG As Double

    ULTIMO_REG = DMax("codigo", "veiculos")

    If Me.CODIGO = ULTIMO_REG Then

    MsgBox "Último Registro!", vbOKOnly + vbInformation, "ATENÇÃO"

    Else

    DoCmd.GoToRecord , , acNext 'proximo registro

    End If

    Exit Sub

    End Sub


    talvez esta seria uma solução, mas esta dando algum erro quando utilizo ela pula para o primeiro registro dai
    fica sequencial nas próximas clicadas

    ou seja estou no registro 50 e quero ir pro 51, não vai, pula pro 1 dai começa a ficar sequencial.


    On Error GoTo fim
    Dim rs As DAO.Recordset
    Set rs = Me.RecordsetClone

    If Not IsNull(Cliente) Then
    rs.MoveNext
    Else
    rs.MoveFirst
    End If
    Me.Bookmark = rs.Bookmark

    fim:
    If rs.EOF Then
    If rs.RecordCount > 0 Then
    rs.MoveFirst
    Me.Bookmark = rs.Bookmark
    End If
    End If


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

    Se tudo não der certo... Descanse e tente novamente!
    avatar
    Silvanio123
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 91
    Registrado : 24/08/2011

    Re: Avançar sem criar novo Registro

    Mensagem  Silvanio123 em Sex 7 Nov - 17:52

    Boa tarde noisnafita,

    Você deve saber ou ter conhecimento dos manuseios dos botões de navegação tipo:

    'Novo Registro
    DoCmd.GoToRecord , , acNewRec

    'Primeiro Registro
    DoCmd.GoToRecord , "", acFirst

    'Ultimo Registro
    DoCmd.GoToRecord , "", acLast

    'Proximo Registro
    DoCmd.GoToRecord , "", acNext

    'Registro Anterior
    DoCmd.GoToRecord , "", acPrevious

    Blz...

    Pelo que entendi vc quer que ao chegar no ultimo registro, se apertar o botão "Proximo registro" ele não entre em um novo registro? é isso?

    aguardo.
    avatar
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Re: Avançar sem criar novo Registro

    Mensagem  =>Nois em Sex 7 Nov - 23:44

    exatamente!


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

    Se tudo não der certo... Descanse e tente novamente!

    Madson_Ferrari
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 06/07/2015

    Navegar e não ir para novo Registro

    Mensagem  Madson_Ferrari em Sex 21 Ago - 1:43

    Olá, estou querendo fazer a mesma coisa. Ao navegar em um form não quero que vá para um registro novo e sim que navegue somente entre os já existentes.

    Alguma dica?

    Madson_Ferrari
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 06/07/2015

    [Resolvido] Avançar sem criar novo Registro

    Mensagem  Madson_Ferrari em Sab 22 Ago - 2:23

    Olá pessoal,

    A Urgência faz a gente aprender! Pesquisei um pouco e consegui duas maneiras de navegar e no final não cair em um registro novo. Vejam abaixo:

    'Metodo 1 - Vai para o novo mas volta quando verifica que é novo

    Private Sub BotaoProxReg_Click()

    DoCmd.GoToRecord , , acNext

    If Me.NewRecord Then
          DoCmd.GoToRecord , , acPrevius
    End If

    End Sub

    A desvantagem do método acima é que o usuário sente a piscada na tela quando o access vai para o novo e volta para o anterior

    'Metodo 2 - Neste método defini a propriedade do form para não permitir registros novos e sair da sub quando isto ocorrer.

    Private Sub BotaoProxReg_Click()

    Me.AllowAdditions = False 'não permite adicionar e não mostra novo

    On Error GoTo Err_cmd_Next_Record_Click

    DoCmd.GoToRecord , , acNext

    Exit_cmd_Next_Record_Click:
    Exit Sub

    Err_cmd_Next_Record_Click:
    MsgBox Err.Description
    Resume Exit_cmd_Next_Record_Click

    End Sub



    Abraço a todos.


    Última edição por Madson_Ferrari em Dom 23 Ago - 3:17, editado 1 vez(es)

    Buscador
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 243
    Registrado : 26/02/2011

    Re: Avançar sem criar novo Registro

    Mensagem  Buscador em Dom 23 Ago - 0:08

    Fiz assim e funciona:

    Private Sub BtnProximo_Click()
    On Error GoTo TRATAERRO

    DoCmd.GoToRecord , , acNext

    Exit Sub


    If Me.CurrentRecord = LastRecord Then GoTo TRATAERRO


    Exit Sub

    TRATAERRO:

    MsgBox "Não existem mais clientes cadastrados.", vbInformation, "Reciclagem"

    Exit Sub
    End Sub

      Data/hora atual: Seg 26 Jun - 20:44