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

    Codificação para Botão próximo registro.

    avatar
    Silvio0
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Localização : Anónimo
    Mensagens : 3
    Registrado : 27/06/2022

    Codificação para Botão próximo registro. Empty Codificação para Botão próximo registro.

    Mensagem  Silvio0 27/6/2022, 03:44

    Sou iniciante no VBA ACCESS e ao codificar um Botão próximo registro, no qual objetivo que ao clica-lo, este venha transferir os dados do próximo registro subsequentes aos que constavam anteriormente nas caixas de texto (variáveis minúsculas) de um formulário chamado FrmItens. Estou a semanas tentando varias maneiras e acontecem até mesmo situações em que nem mesmo erro é acusado, conforme o código abaixo. Parece-me que o uso do rs.moveNext não movimenta corretamente dentro do recordset (a partir da tabela Tb01RPAItens). Coloquei uma caixa de texto para observação dessa movimentação, através do rs.AbsolutePosition e percebi que de qualquer posição vai para o segundo registro somente ou quando particularizo o registro (no caso referência, usando: WHERE NRPA='" & Me.nrpa & "', complementando a variável PQ), vai a -1. Consegui executar todos os botões, de pesquisa, inserção de registros, alteração, etc, porém esse botão próximo registro, e seu oposto de registro anterior não consigo. Sendo assim solicito a ajuda de vocês, pois é algo que meu nível de conhecimento não esta alcançando.

    Private Sub CmbProximoRegistro_Click()

    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim PQ As String
    Dim Msg As String


    Set db = CurrentDb

    PQ = "SELECT NRPA, SAT, DESCSERV, TIPSERV, TIPDOC, NDOC, PRODSERV, QTDM, CONTPROD," _
    & " DATINSERV, LOCASERV, EMPR, CNPJ, DATARPA From Tb01RPAItens"

    Set rs = db.OpenRecordset(PQ, dbReadOnly)


    If rs.EOF = True Then

    MsgBox "Atenção; Último Registro!", , "Atenção!"
    rs.MoveLast

    Else

    rs.MoveNext
    Texto0 = rs.AbsolutePosition

    If Not rs.EOF Then

    Me.nrpa.Value = rs.Fields("NRPA")
    Me.sat.Value = rs.Fields("SAT").Value
    Me.descserv = rs.Fields("DESCSERV")
    Me.tipserv = rs.Fields("TIPSERV")
    Me.tipdoc = rs.Fields("TIPDOC")
    Me.ndoc = rs.Fields("NDOC")
    Me.prodserv = rs.Fields("PRODSERV")
    Me.qtdm = rs.Fields("QTDM")
    Me.contprod = rs.Fields("CONTPROD")
    Me.datinserv = rs.Fields("DATINSERV")
    Me.locaserv = rs.Fields("LOCASERV")
    Me.empr = rs.Fields("EMPR")
    Me.cnpj = rs.Fields("CNPJ")
    Me.datarpa = rs.Fields("DATARPA")

    End If

    End If

    rs.Close
    Set rs = Nothing
    db.Close
    Set db = Nothing

    End Sub
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8449
    Registrado : 05/11/2009

    Codificação para Botão próximo registro. Empty Re: Codificação para Botão próximo registro.

    Mensagem  Alexandre Neves 27/6/2022, 18:17

    Boa tarde e bem-vindo ao fórum
    Leia as regras do fórum para tirar o máximo proveito e manter o fórum organizado
    Sobre a dúvida, coloque código entre as 2 linhas indicadas para colocar o recordset no registo corrente

    Set rs = db.OpenRecordset(PQ, dbReadOnly)
    'código para colocar o recordset no registo corrente
    If rs.EOF = True Then


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3217
    Registrado : 13/12/2016

    Codificação para Botão próximo registro. Empty Re: Codificação para Botão próximo registro.

    Mensagem  Alexandre Fim 27/6/2022, 18:32

    Olá Silvio,

    Seja bem-vindo ao fórum !!!

    A navegação de registro no formulário, atualmente, não é muito utilizada em sistemas.
    Imagina que sua tabela tenha 1000 registros e você tiver que clicar e "Próximo Registro" até encontrar o que deseja? É inviável.

    Veja a sintaxe abaixo:
    PQ = "SELECT NRPA, SAT, DESCSERV, TIPSERV, TIPDOC, NDOC, PRODSERV, QTDM, CONTPROD," _
    & " DATINSERV, LOCASERV, EMPR, CNPJ, DATARPA From Tb01RPAItens"


    Na instrução acima, o sistema carrega TODOS os registros da tabela para que seja executado um loop até chegar no registro desejado.

    Aproveitando que você é iniciante no Access, minha sugestão é:
    - Carregar o formulário vazio e, através de uma tela de pesquisa, carregar somente o registro desejado, e pela tela de pesquisa, carregar o registro no formulário.

    Por gentileza, compartilhe uma cópia do seu banco de dados para análise e solução do problema.

    Até +

    Atenciosamente,

    Alexandre Fim




    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    Codificação para Botão próximo registro. Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    Silvio0
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Localização : Anónimo
    Mensagens : 3
    Registrado : 27/06/2022

    Codificação para Botão próximo registro. Empty Re: Codificação para Botão próximo registro.

    Mensagem  Silvio0 29/6/2022, 04:13

    Procedi a execução conforme o Sr. Alexandre Neves e não consegui resultado. Assim envio o arquivo conforme solicitação do Sr. Alexandre Fim.
    Agradeço a atenção dispensada.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3217
    Registrado : 13/12/2016

    Codificação para Botão próximo registro. Empty Re: Codificação para Botão próximo registro.

    Mensagem  Alexandre Fim 29/6/2022, 13:16

    Olá Silvio,

    Não consta o arquivo.
    Por gentileza, verifique.

    Atenciosamente
    Fim


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    Codificação para Botão próximo registro. Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    Silvio0
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Localização : Anónimo
    Mensagens : 3
    Registrado : 27/06/2022

    Codificação para Botão próximo registro. Empty Re: Codificação para Botão próximo registro.

    Mensagem  Silvio0 29/6/2022, 18:21

    Queria lhe enviar ao arquivo inteiro do access, porém o sistema não permitiu. Envio-lhe o arquivo zipado (RPA1.zip)
    S. Os botões próximo e anterior são importantes no meu banco de dados para a tarefa de correção do jogo de RPA para cada navio.
    Anexos
    Codificação para Botão próximo registro. AttachmentRPA1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (324 Kb) Baixado 10 vez(es)

    Conteúdo patrocinado


    Codificação para Botão próximo registro. Empty Re: Codificação para Botão próximo registro.

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 25/4/2024, 02:23