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


+2
Fernando Bueno
AMarcos
6 participantes

    [Resolvido]Impedir inserir novo registro através do botão "Próximo"

    avatar
    AMarcos
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 218
    Registrado : 26/07/2016

    [Resolvido]Impedir inserir novo registro através do botão "Próximo" Empty [Resolvido]Impedir inserir novo registro através do botão "Próximo"

    Mensagem  AMarcos 3/12/2018, 21:18

    Olá amigos mestres,

    Estou com um formulário que todas as vezes quando passo do último registro, é inserido automaticamente um novo registro em branco na tabela do BD.

    Acontece que isso me causa problema nos relatórios one contém somatório dos registros.

    Estou tentando um código VBA onde me avisa quando estou navegando de registro a registro e chego no último, mas mesmo assim não deixa de inserir um ou outros registros.

    Eu preciso que ao chegar no último registro na navegação de registro a registro, botão "Próximo", não insira mais nenhum outro registro em branco na tabela do BD, a não ser quando realmente precisar e isso deverá ser feito pelo botão "Novo".

    Estou postando um extrat o do BD para facilitar o entendimento e podrem modificar no próprio BD.

    Um abraço e fico no aguardo de mais essa ajuda.


    AMarcos
    Anexos
    [Resolvido]Impedir inserir novo registro através do botão "Próximo" AttachmentNovo_Registro.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (121 Kb) Baixado 33 vez(es)
    Fernando Bueno
    Fernando Bueno
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2115
    Registrado : 13/04/2012

    [Resolvido]Impedir inserir novo registro através do botão "Próximo" Empty Re: [Resolvido]Impedir inserir novo registro através do botão "Próximo"

    Mensagem  Fernando Bueno 4/12/2018, 08:56

    Bom dia;

    Em modo design do formulário clique em Propriedades / outra / ciclo / registro atual

    Dessa forma você impede que ao sair do ultimo campo mude para um novo registro.



    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Resolvido]Impedir inserir novo registro através do botão "Próximo" 16rzeq
    avatar
    AMarcos
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 218
    Registrado : 26/07/2016

    [Resolvido]Impedir inserir novo registro através do botão "Próximo" Empty Re: [Resolvido]Impedir inserir novo registro através do botão "Próximo"

    Mensagem  AMarcos 4/12/2018, 13:13

    Amigo Fernando, td bem?

    Infelizmente não deu certo. Eu já havia feito isso. Mas tentei de novo, sem sucesso.

    O problema acontece sempre que eu clico no botão de navegação "próximo" do Formulário "Cadastro de Viaturas". Com o código que coloquei ele até avisa que é o último registro e não deixa aparecer um novo formulário, mas lá na tabela "Viaturas" e nos Relatórios "FrmProntoVtr" e Mapa_de_Disponibilidade" gera novo registro em branco. Causa um transtorno de ficar algumas linhas em branco e no Mapa_de_Disponibilidade dar erro no cálculo do rodapé.

    Será que há um outro meio ou alguma linha de código em que posso acrescentar para inibir tal ação???

    Att,


    AMarcos
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Impedir inserir novo registro através do botão "Próximo" Empty Re: [Resolvido]Impedir inserir novo registro através do botão "Próximo"

    Mensagem  vieirasoft 4/12/2018, 15:09

    Boa tarde. para além da sugestão que o colega lhe deu, use um botão de comando exclusivamente para dar início a um novo registo assim:

    DoCmd.OpenForm "meu formulário", , , , acFormAdd

    Coloque o ciclo para "Registo Actual"

    Desta forma não deve ficar registada na tabela nenhum registo em branco. Teste, por favor.
    avatar
    AMarcos
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 218
    Registrado : 26/07/2016

    [Resolvido]Impedir inserir novo registro através do botão "Próximo" Empty Re: [Resolvido]Impedir inserir novo registro através do botão "Próximo"

    Mensagem  AMarcos 6/12/2018, 15:41

    Olá Mestre Vieira!

    Já existe no Formulário um botão para criar um novo registro, botão "Inserir Novo" (macro inserida), o problema está no botão de navegação "Próximo Registro", pq toda vez em que ele é clicado cria um novo registro em branco na Tabela "Viaturas" e nos Relatório que do formulário derivam: "Mapa_de_Disponibilidade" e "FrmProntoVtr"

    Tudo está exemplificado conforme o BD em anexo.

    E eu só não testei por que não entendi porque colocar um comando de Abrir Formulário (Docmd.OpenForm) para resolver registro em tabela. Vc poderia me dar essa luz mestre?

    Att,


    AMarcos
    Fernando Bueno
    Fernando Bueno
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2115
    Registrado : 13/04/2012

    [Resolvido]Impedir inserir novo registro através do botão "Próximo" Empty Re: [Resolvido]Impedir inserir novo registro através do botão "Próximo"

    Mensagem  Fernando Bueno 6/12/2018, 21:23

    Olá boa noite;

    Tente esse comando no evento Ao Clicar do botão próximo registro.

    Código:
    On Error GoTo Err_btn_Proximo_Click

        DoCmd.GoToRecord , , acNext

    Exit_btn_Proximo_Click:
        Exit Sub

    Err_btn_Proximo_Click:
        MsgBox "Nâo existem mais registros para avançar!", vbInformation, "Aviso"
        Resume Exit_btn_Proximo_Click


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Resolvido]Impedir inserir novo registro através do botão "Próximo" 16rzeq

    FelVasques gosta desta mensagem

    avatar
    AMarcos
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 218
    Registrado : 26/07/2016

    [Resolvido]Impedir inserir novo registro através do botão "Próximo" Empty Re: [Resolvido]Impedir inserir novo registro através do botão "Próximo"

    Mensagem  AMarcos 7/12/2018, 22:52

    Meus amigos mestres, nada até o momento que foi sugerido está resolvendo a situação. Eu observo que os registros em branco são inseridos sem código e por isso ficam localizados na tabela e nos relatórios antes de todos os outros.

    Ao realizar a sugestão de códigos e procedimentos, os amigos testaram no BD que postei em anexo ao pedido de ajuda? Porque se estiver dando certo, algo eu posso estar fazendo de errado para não estar conseguindo o êxito esperado.
    Por isso peço que postem de volta o exemplo funcionando além de informar o que foi feito, assim eu posso verificar o que estou deixando de fazer. Mas posso afirmar que estou seguindo a todas orientações desde o início.


    Eu estou utilizando os seguintes códigos no botão "Próximo":

    No evento ao clicar:

    Private Sub btn_Proximo_Click()
    'Vai para o próximo registro
    On Error Resume Next
    DoCmd.GoToRecord , , acNext
    End Sub

    No evento ao entrar:

    Private Sub btn_Proximo_Enter()
    If IsNull(Me.txt_Cod) Or Me.txt_Cod = "" Then
    MsgBox ("Você está no último registro."), vbMsgBoxRight, "PCVOM_50BIS"
    DoCmd.GoToRecord , , acPrevious
    Exit Sub
    End If
    End Sub

    Esses mesmos códigos estão sendo usados no Formulário "Cadastro de Motoristas" com sucesso. Nenhum registro é criado na tabela "Motoristas" e também no Relatório "Relação de Motoristas", além de me avisar que estou no último registro, da forma que deveria acontecer no Formulário "Cadastro de Viaturas" e não acontece.

    Qual será o mistério??? O que será que está faltando???


    AMarcos
    Fernando Bueno
    Fernando Bueno
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2115
    Registrado : 13/04/2012

    [Resolvido]Impedir inserir novo registro através do botão "Próximo" Empty Re: [Resolvido]Impedir inserir novo registro através do botão "Próximo"

    Mensagem  Fernando Bueno 8/12/2018, 09:13

    Bom dia Antonio,

    Dessa forma resolve seu problema.

    Em propriedades do formuário / Dados / Permitir Adições = Não

    Caso queira exibir uma mensagem no evento ao clicar do botão Próximo:
    Código:
    On Error GoTo Err_btn_Proximo_Click

        DoCmd.GoToRecord , , acNext

    Exit_btn_Proximo_Click:
        Exit Sub

    Err_btn_Proximo_Click:
        MsgBox "Nâo existem mais registros para avançar!", vbInformation, "Aviso"
        Resume Exit_btn_Proximo_Click

    Aguardamos.


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Resolvido]Impedir inserir novo registro através do botão "Próximo" 16rzeq
    avatar
    Buscador
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Impedir inserir novo registro através do botão "Próximo" Empty Re: [Resolvido]Impedir inserir novo registro através do botão "Próximo"

    Mensagem  Buscador 8/12/2018, 22:14

    Veja se é isto.
    avatar
    AMarcos
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 218
    Registrado : 26/07/2016

    [Resolvido]Impedir inserir novo registro através do botão "Próximo" Empty Re: [Resolvido]Impedir inserir novo registro através do botão "Próximo"

    Mensagem  AMarcos 8/12/2018, 23:06

    Fernando meu amigo, realmente funcionou, mas eu já havia feito o procedimento de colocar "NÃO" no campo "Adição" em "Folha de Propriedades". Só que verificando que também desabilita o botão "Novo" impedindo de abrir outro registro quando for necessário, eu resolvi não adotar esse procedimento.

    Será que existe um código para deixar habilitado o botão "Novo" estando o campo "Adição" em "Folha de Propriedades" em NÃO?


    AMarcos
    Fernando Bueno
    Fernando Bueno
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2115
    Registrado : 13/04/2012

    [Resolvido]Impedir inserir novo registro através do botão "Próximo" Empty Re: [Resolvido]Impedir inserir novo registro através do botão "Próximo"

    Mensagem  Fernando Bueno 9/12/2018, 03:43

    Boa noite;

    Teste para vermos se está como pretende.

    Aguardamos.


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Resolvido]Impedir inserir novo registro através do botão "Próximo" 16rzeq
    avatar
    AMarcos
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 218
    Registrado : 26/07/2016

    [Resolvido]Impedir inserir novo registro através do botão "Próximo" Empty Re: [Resolvido]Impedir inserir novo registro através do botão "Próximo"

    Mensagem  AMarcos 9/12/2018, 21:21

    Olá mestres!!!

    Primeiro quero agradecer a disponibilidade do amigo Buscador pela disponibilidade, mas infelizmente o código colocado como solução ainda continua dando o mesmo erro de gerar registro novo em branco.

    E ao amigo Fernando Bueno gostaria de saber onde foi efetuado a alteração pois verifiquei tudo e não consegui enxergar. Se houve alteração que não consegui ver mesmo assim ainda não está resolvido o impasse pois se aparecer nova viatura para ser incluída, o operador não terá independência para incluí-la, a não ser por uma intervenção minha para colocar SIM no "permitir adição" dentro de "Outra" em Folhas de Propriedades.

    Preciso impedir a criação de novo registro em branco pelo botão "Próximo" mas deixar possível a criação de um novo registro pelo botão "Novo" quando realmente for necessário incluir uma nova viatura.

    AMarcos
    Fernando Bueno
    Fernando Bueno
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2115
    Registrado : 13/04/2012

    [Resolvido]Impedir inserir novo registro através do botão "Próximo" Empty Re: [Resolvido]Impedir inserir novo registro através do botão "Próximo"

    Mensagem  Fernando Bueno 10/12/2018, 01:57

    Boa noite;

    Infelizmente ainda não consegui enxergar o erro, utilizo sempre o código da mensagem 8

    e atende porém em seu banco o mesmo não esta surtindo efeito.

    Assim que possivel dou uma analisada melhor ok, ou quem sabe algum colega possa ver

    o que não estamos encontrando.


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Resolvido]Impedir inserir novo registro através do botão "Próximo" 16rzeq
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Impedir inserir novo registro através do botão "Próximo" Empty Re: [Resolvido]Impedir inserir novo registro através do botão "Próximo"

    Mensagem  Assis 10/12/2018, 09:18

    Bom dia

    Teste e retorne.

    Atenção ao novo comando do botão "Anular", conforme estava não anulava nada só limpava os campos mas o registro ficava.


    .................................................................................
    *** Só sei que nada sei ***
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Impedir inserir novo registro através do botão "Próximo" Empty Re: [Resolvido]Impedir inserir novo registro através do botão "Próximo"

    Mensagem  Assis 12/12/2018, 13:01

    A Marcos

    Resolveu ?


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    AMarcos
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 218
    Registrado : 26/07/2016

    [Resolvido]Impedir inserir novo registro através do botão "Próximo" Empty Re: [Resolvido]Impedir inserir novo registro através do botão "Próximo"

    Mensagem  AMarcos 24/12/2018, 16:05

    Mestre e amigo Assis queira me desculpar a demora. Mas estava implementando a solução nos BD e vendo como estava se comportando com o sistema inteiro.

    Ficou excelente!!!

    Muitíssimo obrigado pela ajuda e gostaria de aproveitar a oportunidade de desejar Boas Festas e um Feliz 2019 a todos os amigos mestres!!!

    ASSIS Vlw!

    Att,

    AMarcos
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Impedir inserir novo registro através do botão "Próximo" Empty Re: [Resolvido]Impedir inserir novo registro através do botão "Próximo"

    Mensagem  Assis 24/12/2018, 16:54

    Obrigado pelo retorno

    Bom Natal santa


    .................................................................................
    *** Só sei que nada sei ***
    BlackWidow
    BlackWidow
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 182
    Registrado : 22/04/2012

    [Resolvido]Impedir inserir novo registro através do botão "Próximo" Empty Re: [Resolvido]Impedir inserir novo registro através do botão "Próximo"

    Mensagem  BlackWidow 30/3/2023, 15:10

    Como foi a solução???
    Não deu prá ver.


    .................................................................................
    sunny  Veja as mulheres assim como vê as borboletas sunny
    sunny Nunca corra atrás delas, e sim cultive seu jardim para que elas venham até ele  sunny 

    Conteúdo patrocinado


    [Resolvido]Impedir inserir novo registro através do botão "Próximo" Empty Re: [Resolvido]Impedir inserir novo registro através do botão "Próximo"

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 24/11/2024, 06:45