[Resolvido]Verificar se campo texto está vazio

Tenho num formulário o campo chave [Nº Documento] do tipo texto que é preenchido automáticamente de forma sequencial do tipo 001/2014 ao gravar o registo:
 
Para isso utilizei o seguinte código associado a um botão de gravar registo, após pesquisa no forum:
 
   Me.Nº_Documento = IIf(DCount("[Nº Documento]", "TB-Receitas&Despesas") = 0, ("001" & Year(Date)), Format((Left(DMax("[Nº Documento]", "TB-Receitas&Despesas"), 3) + 1) & Year(Date), "000\/0000"))
 
Mas preciso de verificar primeiro se o campo já está numerado, para que este código só seja corrido se o campo ainda estiver vazio.
 
Para isso tentei acrecentar mais o seguinte:
 
If [Nº Documento] = null then
Me.Nº_Documento = IIf(DCount("[Nº Documento]", "TB-Receitas&Despesas") = 0, ("001" & Year(Date)), Format((Left(DMax("[Nº Documento]", "TB-Receitas&Despesas"), 3) + 1) & Year(Date), "000\/0000"))
End if
 
Mas não está a dar. Provavelmente tem haver por o campo texto vazio não ter o valor Null
 
Sei que é uma duvida básica de principiantes, mas alguém me pode ajudar ?

Bom dia Amigo!

Tente assim:


If isnull([Nº Documento]) then

Abraços

Danilo

Experimente assim:

If isnull([Nº Documento]) OR [Nº Documento]= "" then ' as aspas juntas, significa cordão vazio (string vazia)

Para acrescentar um novo ID a um novo registro, você pode colocar o código na propriedade Ao alterar do primeiro controle do formulário
a ser digitado.Assim terá certeza de que o registro recebeu a ID.

*Dica: Evite colocar espaços nos nomes de controles/campos.

Abraços

Noob

Com o If isnull já funcionou.

obirgado pela v/ ajuda.
  

o meu esta dando erro , no ao clicar primeira vez ele não verifica na segunda ele verifica
Já fiz 5 tipos diferente mais não dá

Código:

f IsNull([txtNome]) Or [txtCpf] Or [txtSenha] = "" Then
MsgBox "campo não pode ficar vazio", vbInformation, "Registrador"

Else

    Set DB = CurrentDb
            sSQL = "INSERT INTO CadatroDeFuncionarios"
            'CAMPOS----------------------------------------
            sSQL = sSQL & "("
            sSQL = sSQL & "  tblNome"
            sSQL = sSQL & " ,tblCpf"
            sSQL = sSQL & " ,tblSenha"
            sSQL = sSQL & " ,tbldataDeCadstro"
            sSQL = sSQL & ")"
            'VALORES -------------------------------------
            sSQL = sSQL & " VALUES"
            sSQL = sSQL & "("
            sSQL = sSQL & "  '" & Trim(Me.txtNome) & "'"
            sSQL = sSQL & " ,'" & Trim(Me.txtCpf) & "'"
            sSQL = sSQL & " ,'" & Trim(Me.txtSenha) & "'"
            sSQL = sSQL & " ,'" & Trim(Me.Texto38) & "'"
            sSQL = sSQL & ")"
            DB.Execute sSQL
            MsgBox "  cadastrado!", vbInformation, "Registrador"
           Me.txtNome = ""
           Me.txtCpf = ""
           Me.txtSenha = ""
           Me.Requery
  End If
End Sub