[Resolvido]Preenchimento de um campo, coma data atual automaticamente

Boa tarde,
Mais uma vez, preciso de uma ajuda.

Estou montando um sistema, onde o setor comercial da empresa, trabalha utilizando o formulário [frmListrad]. Este formulário contém informações do tipo: data de cadastro, empresa, solicitante, data de aprovação, data de entrega, quantidade, valor unitário, valor total e status.

O campo status possui as seguintes opções:

Proposta
Cancelada
Aprovada
Etapa1
Etapa2
Etapa3
Pronta
Entrega
Fat. Mensal
Emitir NF
Cobrança
Pago



Preciso que, após o usuário alterar o campo "status" para a opção aprovada, o campo "data de aprovação" seja preenchida automaticamente com a data atual e que os campos: data de aprovação, data de entrega, quantidade, valor unitário, valor total e status, sejam desabilitados para edição.

Um detalhe importante que me foi solicitado, é que APENAS o campo "status" retorne a ser editado quando o mesmo for alterado para as opções abaixo:

Pronta
Entregue
Fat. Mensal


Resumindo, após o campo "status"  for alterado para a opção "aprovado", a data de aprovação será preenchida automaticamente com a data atual e todos os campos do registro serão bloqueados para a edição. Mas quando o campo status for alterado para uma das opções: "Pronta"; "Entregue" e "Fat. Mensal", e volta a permitir a edição.

Alguém pode me orientar, como seria o código para fazer isto.

Desde já agradeço!

Para preencher o campo de data de acordo com o Status e bloquear os campos para Editar e Excluir:
No campo Status, no Evento 'Após atualizar' coloque:

If (Me.NomeDoCampo.Value = "Aprovada") = True Then
Me.NomeDoCampoDaData.Value = Date
Form.AllowEdits = False
Form.AllowDeletions = False
End If

Desculpe a demora para responder...

Agradeço muito mesmo a ajuda.

Usando sua sugestão, fiz uma adaptação para o que eu precisava e ficou assim:

---

Private Sub Etapa_BeforeUpdate(Cancel As Integer)
If Me!Etapa = "Aprovada" Then
   If MsgBox("Certifique-se que todos os dados para execução do projeto estejam preenchidos. Após a confirmação, somente os campos financeiro e comercial poderão ser editados." & vbNewLine & vbNewLine & "Confirma aprovação do projeto ?", vbInformation + vbYesNo, "Confimação") = vbNo Then
       Cancel = True
       Me!Etapa.Undo
   End If
End If
End Sub

---

Private Sub Etapa_AfterUpdate()
If (Me.Etapa.Value = "Aprovada") = True Then
Me.Aprovação.Value = Now
End If
DoCmd.RunCommand acCmdSaveRecord
Call Form_Current
End Sub

---

Private Sub Form_Current()
If (Me.Etapa.Value = "Proposta") = True Then
  Me.AllowEdits = True
  Me.AllowDeletions = True
  Me.Detalhe.BackColor = vbWhite
  Me!Cliente.Enabled = True
  Me!Contato.Enabled = True
  Me!Área.Enabled = True
  Me!Combinação39.Enabled = True
  Me!Anexo.Enabled = True
  Me!Aprovação.Enabled = False
  Me!Prazo.Enabled = True
  Me!Orig.Enabled = True
  Me!Dest.Enabled = True
  Me!T.Enabled = True
  Me!Palavras.Enabled = True
  Me!Valor.Enabled = True
  Me!Total.Enabled = True
  Me!Etapa.Enabled = True
  Me!Descrição.Locked = False
  Me!Comercial.Locked = False
  Me!Produção.Locked = False
  Me!Financeiro.Locked = False
End If
If Me!Etapa = "Pronta" Or Me!Etapa = "Entregue" Or Me!Etapa = "Fat. Mensal" = True Then
  Me.AllowEdits = True
  Me.AllowDeletions = True
  Me.Detalhe.BackColor = RGB(237, 237, 237)
  Me!Cliente.Enabled = False
  Me!Contato.Enabled = False
  Me!Área.Enabled = False
  Me!Combinação39.Enabled = False
  Me!Anexo.Enabled = False
  Me!Aprovação.Enabled = False
  Me!Prazo.Enabled = False
  Me!Orig.Enabled = False
  Me!Dest.Enabled = False
  Me!T.Enabled = False
  Me!Palavras.Enabled = False
  Me!Valor.Enabled = False
  Me!Total.Enabled = False
  Me!Etapa.Enabled = True
  Me!Descrição.Locked = True
  Me!Comercial.Locked = False
  Me!Produção.Locked = True
  Me!Financeiro.Locked = False
End If
If Me!Etapa = "Aprovada" Or Me!Etapa = "Em Espera" Or Me!Etapa = "Pré-diagramação" Or Me!Etapa = "Terceirização" Or Me!Etapa = "Tradução" Or Me!Etapa = "Tradução (Ext.)" Or Me!Etapa = "Trad. Simultânea" Or Me!Etapa = "Trad. Consecutiva" Or Me!Etapa = "Revisão" Or Me!Etapa = "NC_Diag" Or Me!Etapa = "NC_Trad" Or Me!Etapa = "CQ" Or Me!Etapa = "Impressão" = True Then
  Me.AllowEdits = True
  Me.AllowDeletions = True
  Me.Detalhe.BackColor = RGB(237, 237, 237)
  Me!Cliente.Enabled = False
  Me!Contato.Enabled = False
  Me!Área.Enabled = False
  Me!Combinação39.Enabled = False
  Me!Anexo.Enabled = False
  Me!Aprovação.Enabled = False
  Me!Prazo.Enabled = True
  Me!Orig.Enabled = False
  Me!Dest.Enabled = False
  Me!T.Enabled = False
  Me!Palavras.Enabled = False
  Me!Valor.Enabled = False
  Me!Total.Enabled = False
  Me!Etapa.Enabled = False
  Me!Descrição.Locked = True
  Me!Comercial.Locked = False
  Me!Produção.Locked = True
  Me!Financeiro.Locked = False
End If
If Me!Etapa = "Cancelada" Or Me!Etapa = "Cortesia" Or Me!Etapa = "Emitir NF" Or Me!Etapa = "Recibo" Or Me!Etapa = "Cobrança" Or Me!Etapa = "Dar baixa" Or Me!Etapa = "Pago" Or Me!Etapa = "Inadimplente" = True Then
  Me.AllowEdits = True
  Me.AllowDeletions = True
  Me.Detalhe.BackColor = RGB(237, 237, 237)
  Me!Cliente.Enabled = False
  Me!Contato.Enabled = False
  Me!Área.Enabled = False
  Me!Combinação39.Enabled = False
  Me!Anexo.Enabled = False
  Me!Aprovação.Enabled = False
  Me!Prazo.Enabled = False
  Me!Orig.Enabled = False
  Me!Dest.Enabled = False
  Me!T.Enabled = False
  Me!Palavras.Enabled = False
  Me!Valor.Enabled = False
  Me!Total.Enabled = False
  Me!Etapa.Enabled = False
  Me!Descrição.Locked = True
  Me!Comercial.Locked = True
  Me!Produção.Locked = True
  Me!Financeiro.Locked = True
End If
End Sub


Mais uma vez agradeço muito a ajuda de todos!


Agora, surgiu um problema que não esperava.
Eu usei o comando "NOW", onde insere automaticamente a data e hora da aprovação do projeto.

E tenho um relatório onde lista o valor vendido no período... com base justamente na data de aprovação.
O usuário informa a data de inicial e a data final deste período para gerar o relatório.

Ex.:
Data Inicial: 01/06/14
Data Final: 12/06/14

Mas os projetos que estão com a data no formato "11/06/14 15:00:00" não aparecem...
É como se a consulta não reconhecesse este formato de data.

Sabe me informar como posso solucionar este problema?

O Fórum agradece o retorno.
Por favor, abra outro tópico para tratarmos o novo problema e marque este tópico como [Resolvido].

Consegui resolver aqui...

Quando eu informei a data final eu coloquei 11/06/14... só que o sistema considera isso como 11/06/14 00:00:00.
Por isso, não considerou os projetos aprovados no decorrer do dia.