[Resolvido]Preencher caixa de texto automaticamente

Pessoal, criei um botao salvar com o seguinte código:

Private Sub btn_Salvar_Click()
DoCmd.RunCommand acCmdSaveRecord
Me.Recalc
Form_frmPesquisa.Recalc
End Sub

e na propriedade após atualizar do formulário:

Private Sub Form_AfterUpdate()
Form_frmDados.Refresh
MsgBox "As alterações foram salvas com sucesso.", vbInformation, "Aviso"
End Sub

Gostaria que ao clicar neste botão para salvar, os campos Nome_Pai e Nome_Mae, caso não fossem preenchidos pelo usuário, recebessem o texto: NAO DECLARADO

Tentei várias formas e não consegui

Tenta algo assim:

Private Sub Form_AfterUpdate()
If Me.Nome_Pai = "" Then
Me.Nome_Pai = "NAO DECLARADO"
End If
If Me.Nome_Mae = "" Then
Me.Nome_Pai = "NAO DECLARADO"
End If
Form_frmDados.Refresh
MsgBox "As alterações foram salvas com sucesso.", vbInformation, "Aviso"
End Sub

Ve o codigo correto

If IsNull(Me.Nome_Pai) Or (Me.Nome_Pai = "") Then
Me.Nome_Pai = "NAO DECLARADO"
End If
If IsNull(Me.Nome_Mae) Or (Me.Nome_Mae = "") Then
Me.Nome_Mae = "NAO DECLARADO"
End If

Apresentou problema na linha em destaque após salvar:

Private Sub btn_Salvar_Click()
DoCmd.RunCommand acCmdSaveRecord
Me.Recalc
Form_frmPesquisa.Recalc
End Sub

olá amigo Veríssimo, fiz a alteração que precisa quando Não informado nome do pai ou da mãe no campo aparece Não declarado.
abraço Nogaro !

Perfeito, Nogaro.

Muito obrigado.

Uma dúvida: O problema apresentado anteriormente seria pelo fato de ter inserido o código no evento After_Update do formulário e não no botão de Salvar?

olá amigo Veríssimo, sim no botão salvar é o correto mas compare os códigos vai ver que estão diferentes.

fico feliz de ter Resolvido seu aplicativo

O Fórum agradece o retorno
bons estudos, e um feliz Natal

Nogaro !