[Resolvido]Problema para pegar resultado de Nz(dmax)

Ola pessoal recentemente o JPAULO esclareceu uma duvida(na verdade resolveu um problema) pra mim utilizando Dz(Nmax) entretanto agora preciso saber como porceder com uma condicional apartir de um resultado nulo dessa consulta abaixo tem o exemplo do banco de dados.

O problema se da assim tenho um form que após o Usuario selecionar o Tipo e a Origem do Documento em Combo diferentes deve ser inserido o numero do documento automaticamente

ex CI DEartamento A (gera cod 3)
CI Departamento B (gera cod 3)
PARECER Departamento A (gera cod 4)
PARECER Departamento B (gera cod 4)
CI DEartamento A (gera cod 4)

ate ai ok mas se tento inserir um "Tipo de um DEpartamento" que a não existe na tabela da erro


Private Sub Combinação148exp_AfterUpdate()

Dim Contar As Integer

If IsNull(Me.NumeroDocexp) = True Then

'è aqui que preciso da solução
Contar = Nz(DMax("Num_docexp", "Tbldocexped", "Tipoexp = '" & Me!Combinação91exp.Value & "' AND Origemexp = '" & Me!Combinação148exp.Value & "'"), "")

If (Contar = 0) Then

Contar = 1
MsgBox "O Numero de Documentos é " & Contar
Me.RegistroDocexp = Contar & "/" & Format(Year(Now), "00")
Me.RegistroDocexp.Requery
Me.NumeroDocexp = Contar
Me.NumeroDocexp.Requery

ElseIf (Contar <> 0) Then

Contar = Nz(DMax("Num_docexp", "Tbldocexped", "Tipoexp = '" & Me!Combinação91exp.Value & "' AND Origemexp = '" & Me!Combinação148exp.Value & "'"), "")

Me.RegistroDocexp = Contar + 1 & "/" & Format(Year(Now), "00")
Me.RegistroDocexp.Requery
Me.NumeroDocexp = Contar + 1
Me.NumeroDocexp.Requery

End If

End If
End Sub

Não vi o banco ainda, mas deduzo que não está a fazer referencia à coluna da combobox;

Me!Combinação91exp.Column(1)

A coluna (0) deve estar o código.

Se me permitem um pitaco...


Boas.. em caso de nulo você está carregando a variável com valor em branco... Branco <> Nulo <> 0

Veja:
Contar = Nz(DMax("Num_docexp", "Tbldocexped", "Tipoexp = '" & Me!Combinação91exp.Value & "' AND Origemexp = '" & Me!Combinação148exp.Value & "'"), "")

Para checar se 0 teria que ser assim:

Veja:
Contar = Nz(DMax("Num_docexp", "Tbldocexped", "Tipoexp = '" & Me!Combinação91exp.Value & "' AND Origemexp = '" & Me!Combinação148exp.Value & "'"), 0)

ai sim executaria a condição

If Contar = 0 Then


da Outra forma


If Contar = "" Then



Cumprimentos.

Valeu Pela Atenção Pessoal Agora Funcionou Obrigado

JPAULO Vou Procurar Estudar melhor essa questão de procurar valor pela coluna da Combobox

Piloto

Gostei do seu modo de pensar na frase

Boas.. em caso de nulo você está carregando a variável com valor em branco... Branco <> Nulo <> 0

O Fórum agradece o Retorno.