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

    [Resolvido]Editar apenas registro novo

    avatar
    Claudemir P
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 177
    Registrado : 27/06/2013

    [Resolvido]Editar apenas registro novo Empty [Resolvido]Editar apenas registro novo

    Mensagem  Claudemir P 5/7/2015, 02:40

    Preciso editar apenas o registro novo, ou seja, apenas o que esta sendo inserido. Obs.: o usuario não pode editar registros anteriores.

    Utilizei o seguinte código:
    If Form.AllowEdits = True Then 'verifica formulario em edicao
    Form_Form_AssistDet.Form!SubForm_DefSol.Form!SubForm_AssistenciaStatus.Form.AtendenteSituacao.Value = InputBox("OS aprovada por", "Digite seu nome aqui", "Colaborador") 'nome funcionario
    End If

    Porem este codigo permite editar registros anteriores, se estes estiverem selecionados.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Editar apenas registro novo Empty Re: [Resolvido]Editar apenas registro novo

    Mensagem  Alexandre Neves 5/7/2015, 08:57

    Bom dia,
    Tente
    If me.dirty Then 'verifica registo por gravar
    Form_Form_AssistDet.Form!SubForm_DefSol.Form!SubForm_AssistenciaStatus.Form.AtendenteSituacao.Value = InputBox("OS aprovada por", "Digite seu nome aqui", "Colaborador") 'nome funcionario
    End If


    .................................................................................
    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
    avatar
    Claudemir P
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 177
    Registrado : 27/06/2013

    [Resolvido]Editar apenas registro novo Empty Re: [Resolvido]Editar apenas registro novo

    Mensagem  Claudemir P 5/7/2015, 19:26

    Olá Alexandre, parcialmente resolveu o problema, porém se o registro selecionado for um anterior e não um novo, o usuário conseguirá alterar o valor do campo usuário. A ideia é que ele consiga adicionar novas linhas de cadastro e não possa editar as linhas anteriores (registros anteriores). Consegui com o seguinte código:
    Form_Form_AssistDet.Form!SubForm_DefSol.Form!SubForm_AssistenciaStatus.Form.AllowAdditions = True
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7995
    Registrado : 15/03/2013

    [Resolvido]Editar apenas registro novo Empty Re: [Resolvido]Editar apenas registro novo

    Mensagem  Alvaro Teixeira 5/7/2015, 20:24

    Ola, tente assim:

    Código:
    if CStr(Me.NewRecord) = -1 and me.dirty Then 'verifica registo por gravar
    Form_Form_AssistDet.Form!SubForm_DefSol.Form!SubForm_AssistenciaStatus.Form.AtendenteSituacao.Value = InputBox("OS aprovada por", "Digite seu nome aqui", "Colaborador") 'nome funcionario
    End If

    Abraço

    Conteúdo patrocinado


    [Resolvido]Editar apenas registro novo Empty Re: [Resolvido]Editar apenas registro novo

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 01:29