[Resolvido]Data em que foi feito o primeiro Registro

Prezados senhores,

Tenho, num Formulário, o Campo DATA_INICIO_ATIVIDADE.

O BD foi criado para que os usuários do Departamento Administrativo possam inserir as manutenções pelas quais estão encarregados (Recarga de Extintores, Limpeza de Dutos de Ar Condicionado, Manutenção das Baterais dos Nobreaks, etc.).

Neste campo, precisamos que, quando o usuário inserir uma determinada manutenção, a data corrente apareça automaticamente e NÃO MAIS SE ALTERE (o usuário não terá como editar a data) mesmo que eu ele tenha que fazer quaisquer alterações posteriores no registro.

A intenção é que saibamos QUANTO tempo ele levou para executar a tarefa (há um campo chamado DATA_FIM_ATIVIDADE).

Poderiam, por favor, ajudar-me nesta questão?

Um abraço,

Sérgio Sporch
São Paulo - Brasil

Basta nos eventos, no Atual, colocar um código que verifica se o campo está preenchido, caso sim, bloqueie o campo.,Algo assim:

If  IsNull(Me.CampoData) = False or Me.CampoData <> "" Then
    Me.CampoData.Locked = True
End If

Assim ele só permitirá a inserção quando estiver em branco, depos de preenchido será bloqueado.


Cumpeimentos.

PS. Evite títulos e post em Maisúculas

Prezado colega,

Coloquei o código enviado no Envento AfterUpdate e também tentei no Evento BeforeUpdate mas, nos dois casos, após editar o registro e voltar para verificar se, realmente, o campo estava bloqueado para edição, infelizmente, NÃO estava.

Alguma outra idéia?

Desde já, agradeço!

Um abraço,

Sérgio Sporch

Poste um exemplo amigão.

Cumprimentos.

Prezado colega,

Segue, anexo, exemplo para sua análise.

Preciso que o campo DATA_INICIO_ATIVIDADE seja preenchido uma única vez no Formulário REGISTRO_ATIVIDADES.

Havendo qualquer dúvida, por favor, fale comigo.

Um abraço,

Sérgio Sporch

É exatamente como falei amigão...

Private Sub Form_Current()
If IsNull(Me.DATA_INICIO_ATIVIDADE) = False Or Me.DATA_INICIO_ATIVIDADE <> "" Then
    Me.DATA_INICIO_ATIVIDADE.Locked = True
End If
End Sub

Cumprimentos.

Piloto pegando uma carona no exemplo do amigo,deu certo fica bloquiado,mas ao inserir novo,ele fica em branco mas não aceita inserir outra data.

Abçs.

é somente no evento do botão novo fazer o inverso...
Me.DATA_INICIO_ATIVIDADE.Locked = False

cumprimentos.

Lembre-se.. tudo que é definido como True... pode ser definido como False....

Então é isso ai acima.

Cumprimentos.

Meu caro,

Coloquei o código no Evento Antes de Atualizar, mas só dá certo no primeiro registro.

Ao inserir um novo registro de atividade, NÃO me permite entrar com data do início da atividade.

Creio que vou resolver da seguinte forma:

1. Deixarei o campo habilitado apenas na tela INCLUSÃO
2. Criarei uma tela ALTERAÇÃO deixando este campo bloqueado para edição.

Agradeço a ajuda prestada! Mas vou resolver do meu jeito conforme informado anteriormente!

Um grande abraço!!!

https://dl.dropbox.com/u/90217826/ATV_ADM.rar

O exemplo com a dica do amigo Piloto.
Funcionando direitinho.

Abçs.

Agradeço a ajuda prestada! Mas vou resolver do meu jeito conforme informado anteriormente!

Um grande abraço!!!

Creio que despendi meu tempo em vão.... Triste isso.... Observe que apenas forncecemos aqui o caminho das pedras, cabe ao usuário aplicar no evento que mais lhe convier, esperamos sempre que o mesmo teste e desenvolva a solução apartir das dicas prestadas, só assim se cresce em conhecimento, quando se recebe soluções prontas... não se aprende.

De qualquer forma... O Fórum agradece o retorno.

Obrigado Kaynan pela Disposição, continue assim.

Abraços.

Apenas complementando a solução e informando que o melhor evento seria no Atual mesmo.

Private Sub Form_Current()
If IsNull(Me.DATA_INICIO_ATIVIDADE) = False Or Me.DATA_INICIO_ATIVIDADE <> "" Then
    Me.DATA_INICIO_ATIVIDADE.Locked = True
Else
    Me.DATA_INICIO_ATIVIDADE.Locked = False
End If
End Sub

Cumprimentos.

Prezadao Moderador,

Não houve, de minha parte, intenção de menosprezar seu tempo e trabalho de forma alguma.

Tanto que testei o novo código enviado e... FUNCIONOU!!!

Muito obrigado a você e ao Kanyan!

Apesar de muitos anos usando Access, ainda estou aprendendo (principalmente a programar).

Um abraço,

Sérgio Sporch

Opa!, beleza então, perdoe-me o equivoco.

Não se esqueça de clicar no joinha da mensagem que o auxiliou.

Sucesso!