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 participantes

    [Resolvido]Bloquear edição do campo após inserir data atual

    avatar
    Antonia Sorquini
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 4
    Registrado : 13/08/2014

    [Resolvido]Bloquear edição do campo após inserir data atual Empty [Resolvido]Bloquear edição do campo após inserir data atual

    Mensagem  Antonia Sorquini 7/4/2016, 16:27

    Caros Colegas,

    Gostaria de pedir a ajuda de vocês com o seguinte problema, pois já tentei de tudo ao meu alcance, já pesquisei no fórum e não encontrei solução:

    Tenho um Processo de produção que após o operador assinar são alimentados automaticamente os campos OperInício e HoraInício, porém o Operador fixa, mas a hora não está fixando ela altera a cada perda de foco

    Private Sub SenhaInício_LostFocus()
    Me.OperInício = DLookup("Código", "Funcionários Cadastro", "Senha='" & Me.SenhaInício & "'")
    If Me.OperInício <> "" Then Me.HoraInício = Now()
    End Sub

    Já tentei várias coisas como bloquear o campo Horainício no atual, bloquear no próprio comando, desativar o campo, mas não funciona, ele continua alterando após perder o foco do campo SenhaInício dentro do registro já preenchido, não tenho como impedir o operador de clicar sem querer no campo já preenchido, uma vez que o registro fica pendente no formulário porque na sequência será preenchido também automaticamente OperTérm e Horatérm.

    Agradeço muito a ajuda


    Última edição por Antonia Sorquini em 11/4/2016, 14:50, editado 1 vez(es)
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Bloquear edição do campo após inserir data atual Empty Re: [Resolvido]Bloquear edição do campo após inserir data atual

    Mensagem  FabioPaes 8/4/2016, 02:32

    Por favor, poste seu Aplicativo... Pode mandar apenas a parte envolvida. Para que possar verificar...
    avatar
    Antonia Sorquini
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 4
    Registrado : 13/08/2014

    [Resolvido]Bloquear edição do campo após inserir data atual Empty Bloquear edição do campo após inserir data atual

    Mensagem  Antonia Sorquini 11/4/2016, 15:08

    Bom dia Fábio,
    Obrigada pela retorno, segue o arquivo com a parte envolvida
    Anexos
    [Resolvido]Bloquear edição do campo após inserir data atual AttachmentBdOperadores.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (395 Kb) Baixado 22 vez(es)
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Bloquear edição do campo após inserir data atual Empty Re: [Resolvido]Bloquear edição do campo após inserir data atual

    Mensagem  FabioPaes 11/4/2016, 21:50

    Campo SenhaInício, evento APOS ATUALIZAR, Coloque:

    Código:

    Private Sub SenhaInício_AfterUpdate()
    Me.OperInício = DLookup("Código", "Funcionários Cadastro", "Senha='" & Me.SenhaInício & "'")
    'Se tiver Nulo A horaInicio ele preenche, se nao deixa como está.
    If IsNull(Me.HoraInício) Then
    Me.HoraInício = Now()
    DoCmd.RunCommand acCmdSaveRecord
    End If
    End Sub

    Campo SenhaTermino, evento APOS ATUALIZAR, Coloque:
    Código:

    Private Sub SenhaTérm_AfterUpdate()
    Me.OperTérm = DLookup("Código", "Funcionários Cadastro", "Senha='" & Me.SenhaTérm & "'")
    If IsNull(Me.HoraTérm) Then
    Me.HoraTérm = Now()
    DoCmd.RunCommand acCmdSaveRecord
    End If
    End Sub
    Deixe o Campo HoraInicio e HoraTermino Bloqueados;
    Remova Estas linhas:

    Private Sub Form_Current()
    If Me.[OperInício] <> "" Then
    Me.SenhaInício.Locked = True
    Me.HoraInício.Locked = True
    Me.OperInício.Locked = True
    Else
    Me.SenhaInício.Locked = False
    Me.HoraInício.Locked = False
    Me.OperInício.Locked = False
    End If
    End Sub


    ----------------------------------------

    Que deverá se Comportar como pretende!



    Obs: coloquei no Evento Apos atualizar, para Otimizar o sistema... Ja que: Só executará a verificação, se FOR ALTERADO O CAMPO. Se o operador apenas entrar no campo e sair, ele nao executa... Então fica melhor do que no Evento ao perder Foco... Pois neste evento Toda hora que entrar no campo ira processar todo o Código... Perdendo desempenho!
    avatar
    Antonia Sorquini
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 4
    Registrado : 13/08/2014

    [Resolvido]Bloquear edição do campo após inserir data atual Empty Bloquear edição do campo após inserir data atual

    Mensagem  Antonia Sorquini 12/4/2016, 13:34

    Bom dia Fábio,

    Maravilha!!! Show de bola!!!!!!
    Devia ter pedido ajuda antes, Muitíssimo obrigada Colega.

    Uma Maravilhosa Semana para você!!!!
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Bloquear edição do campo após inserir data atual Empty Re: [Resolvido]Bloquear edição do campo após inserir data atual

    Mensagem  FabioPaes 12/4/2016, 13:45

    Bacana que deu certo!

    Otima semana pra vc tambem... Ate mais!

    Conteúdo patrocinado


    [Resolvido]Bloquear edição do campo após inserir data atual Empty Re: [Resolvido]Bloquear edição do campo após inserir data atual

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 9/12/2024, 04:02