[Resolvido]Salvar data em campo caso o campo esteja vazio

Pessoal,

Vc's poderiam dar uma ajuda? Estou batendo cabeça faz dois dias e não consigo sair do lugar.

Estou montando uma tela de cadastro de orçamento e o que era para ser simples está me arrancando os cabelos kkkkkk.

Trata-se de um campo do formulário que deve receber a data e hora atual (=now) quando o campo estiver vazio. Entao coloquei a rotina abaixo dentro do click de um botão salvar.

tentei assim:

If IsNull(txtData_Orcamento) Then
Me.txtData_Orcamento = Now()
End If

Também tentei assim:

If txtData_Orcamento.text = "" Then
Me.txtData_Orcamento = Now()
End If

nada funciona.

Agradeço a  ajuda.

Você vai acionar o código a partir de um botão?

A partir de um botao, a ideia é salvar a data de criação do orçamento e mesmo que venha a fazer alterações no orcamento, a data de criação fica intacta, sem alterações.

obrigado

Boa tarde gustavolaqua,

Esta parte do nome do campo refere-se a um espaço ou um _ ?

Se for espaço tente alterar o nome do campo para : txtDataOrcamento

E o código abaixo devera funcionar.

If IsNull(txtDataOrcamento) Then
Me.txtDataOrcamento = Now
Else
End If

Removi o underline(_) porém nao vai . postei o projeto, agradeço a ajuda

Coloque parte do projeto aqui que fica mais fácil

removi os outros forms, tem o frmVenda, neste é que desejo colocar a funçao de salvar a data no campo.

Olá, não vi o projecto, mas teste assim:

Código:

If Len(txtData_Orcamento &"")=0 Then
Me.txtData_Orcamento = Now()
End If

Abraço

Olá Gustavo, ainda bem que postou a parte envolvida do seu projeto.

Você não está a usar VBA no botão gravar, mas sim Macro.
Para fazer o que pretende, usando a mesma técnica (VBA) da minha mensagem anterior, fica assim (Macro):



Segue o meu teste ERP_rev.zip
Abraço

Bom dia gustavolaqua, eu fiz um teste aqui também e deu certo. segue o código VBA abaixo.



Private Sub Comando4_Click()

'Este codigo verifica se o campo de txtDataOrcamento esta nulo, se tiver ele coloca data e hora
If IsNull(Me.txtDataOrcamento) Then
Me.txtDataOrcamento = Now
Else
End If
'este codigo verifica se o campo do subformulario esta nulo, se tiver ele coloca data e hora
If IsNull([Tabela]![Data]) Then
Me.[Tabela]![Data] = Now
Else
End If
'Este comando salva o registro
DoCmd.RunCommand acCmdSaveRecord
End Sub

gustavolaqua, segue o teste que realizai. Nome do Formulário "Formulario1".

Bom dia a todos!

Muito Obrigado pela ajuda, resolveu!

Pode fechar o tópico!

Olá Gustavo, obrigado pelo retorno.
Os utilizadores do fórum agradecem.

Veja como dar o tópico como resolvido:
https://www.maximoaccess.com/t860-resolucao-de-topicos
Abraço

Obrigado pela explicação

Que bom que resoveu
Sucesso