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

    Avançar sem criar novo Registro

    Compartilhe

    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Avançar sem criar novo Registro

    Mensagem  =>Nois em Sex 07 Nov 2014, 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 reflita nessa frase: "Huguinho", "Zezinho" & "Luizinho"

    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 07 Nov 2014, 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.

    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Re: Avançar sem criar novo Registro

    Mensagem  =>Nois em Sex 07 Nov 2014, 23:44

    exatamente!


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

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

    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 2015, 02: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 2015, 03: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 2015, 04: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 2015, 01: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: Dom 04 Dez 2016, 12:13