[Resolvido]Ao Sair do campo Erro em tempo de execução '3075'

Bom dia

Tenho um campo 'ID' que ao abrir o foco fica nele, neste campo tenho um função que verifica se o código digitado está ou não cadastrado na tabela:

Código:


Private Sub ID_LostFocus()
If DCount("ID", "tbl_OrdemServicos", "ID =" & Me!ID & "") > 0 Then
    Call CarregaDados
Else
    MsgBox "Código digitado não existe!", vbCritical, "Aviso"
    Call LimparDados
End If
End Sub


Até aqui tudo certo!

Mas quando eu vou para inserir um novo registro, ou seja, vou mudar de campo, me aparece o Erro em tempo de execição '3075'.

A questão é o seguinte, como eu faço para tirar este erro e ir para o próximo campo, com o campo 'ID' vazio (null)?

Gratidão!

Coloque um On Error Resume Next abaixo do Private Sub ID_LostFocus()

Para valores numéricos: (sem aspas)

Código:

DCount("ID", "tbl_OrdemServicos", "ID=" & forms!NomeDoFormulario!ID)

Muito Obrigado, funcionou perfeitamente.

Obrigado pelo retorno!