[Resolvido]Validação de campo vazio

Bom dia a todos, gostaria de uma ajuda com um código que estou tentando fazer, ate fiz o código e funciona mas o menos, ao abrir o formulário funciona perfeitamente, aperto no botão para cadastrar os dados com os campos vazio e não cadastra, mas quando preencho os campos e gravo normalmente os dados, ai minha validação não funciona mas. Gostaria de saber o que eu estou fazendo de errado para corrigir.

BancoComandosSQL

Boa tarde

Teste

Private Sub btnCadastrar_Click()
   If IsNull(Me.txtNome) Or Me.txtNome = "" Then
       MsgBox "Campo Nome em branco favor prencher", vbInformation, "Erro ao Cadastrar"
       Me.txtNome.SetFocus
       ElseIf IsNull(Me.txtCpf) Or Me.txtCpf = "" Then
       MsgBox "Campo CPF em branco favor prencher", vbInformation, "Erro ao Cadastrar"
       Me.txtCpf.SetFocus
       ElseIf IsNull(Me.txtdinheiro) Or Me.txtdinheiro = "" Then
       MsgBox "Campo Dinheiro em branco favor prencher", vbInformation, "Erro ao Cadastrar"
       Me.txtdinheiro.SetFocus
       Else
       CurrentDb.Execute "INSERT INTO[tblCadastrar]" _
               & "(Nome, CPF, Dinheiro) VALUES" _
                   & "('" & txtNome & "', '" & txtCpf & "', '" & txtdinheiro & "');"
             
          DoCmd.RunCommand acCmdSaveRecord
          DoCmd.GoToRecord , , acNewRec
       
       CurrentDb.Close
       Me.txtNome.Value = ""
       Me.txtCpf.Value = ""
       Me.txtdinheiro.Value = ""
       Me.txtNome.SetFocus
       MsgBox "Dados inseridos com sucesso", vbInformation, "Cadastro OK"
      End If
End Sub

Bom dia

Resolveu ?

bom dia, Resolveu sim muito obrigado e me desculpe pela a demora para responder muito grato