[Resolvido]Preenchimento datas automático

Pessoal!

Gostaria de ajuda para o seguinte item:

Intens da minha tabela.

"DataInicialServico" e "DataFinalServico"

Preciso preencher automático no formulário esta data a partir de um botão para os operadores não poder definir as datas, ou seja, quando conluido os serviços, eles podem clicar no botão e preencher e bloquear automático, sem mais poder editar.

Como faço isso. Já apliquei alguns critérios mas sem sucesso.

Private Sub Form_BeforeUpdate(Cancel As Integer)
If Me.Form.Dirty = True Then
DataInicialServico = Date
End If
End Sub

Private Sub Form_BeforeUpdate(Cancel As Integer)
If Me.Form.Dirty = True Then
DataFinalServico = Date
End If
End Sub

Não funciona. Me ajudem por gentileza.

Att

Fabiano Puiatti

Uma ideia simples pode ser deixar os campos bloqueados e desabilitados e programar o botão para inserir a data apenas quando os campo estiver nulo:

Código:

If IsNull(Me.NomeDoCampo) Or Me.NomeDoCampo.Value = "" Then
    Me.NomeDoCampo = Date
End If

No evento "No atual" do formulário, pode ainda desabilitar ou ocultar o botão quando esse campo for diferente de nulo:

Código:

If NotIsNull(Me.NomeDoCampo) Then
    Me.NomeDoBotão.Enabled = False ' ou .Visible = False
Else
    Me.NomeDoBotão.Enabled = True ' ou .Visible = True
End If

Perfeito!

Encerrado o tópico, muito obrigado, deu certo

Só faltou clicar no botão Resolvido ali ↓embaixo↓ e à →direita→