[Resolvido]Você tentou atribuir o valor Null a uma variável que não é do tipo de dados variant.

Bom dia à todos do fórum,
Tenho um formulário para cadastro de entradas (compras) de material, tudo funcionando perfeitamente,
- Ao escolher um material na Cbo_Material, aceita normalmente,
- Se o campo ficar em branco e tentar salvar, pede para escolher um material

Exceto por isto:
  PROBLEMA:
- Se eu selecionar um material, e depois apagar o material e o campo ficar em branco, e ao sair do campo (em branco) aparece a mensagem:
 Você tentou atribuir o valor Null a uma variável que não é do tipo de dados variant.
Queria substituir por uma mensagem minha. Tem como?

Obs.:
No botão de salvar uso este código para verificar se o campo está em branco,
se estiver a mensagem avisa que falta o material
'----------------------- Verifica se tem o MATERIAL (produto)  -------------------------------------------
If IsNull(Filtro_MaterialEntrada) Or Me.Filtro_MaterialEntrada.Value = "" Then  'se material estiver em branco
   MsgBox "Falta o material", vbInformation, "Atenção"
       Forms!Frm_Entradas!Frm_Entradassub!Txt_Materialentradadet.SetFocus '<<<-- MATERIAL --------<<<<<<<<
   DoCmd.CancelEvent
   End
Else...
-------------------------------------------------------
Desde já obrigado a todos.

Boa tarde
'----------------------- Verifica se tem o MATERIAL (produto) -------------------------------------------
If len("" & Filtro_MaterialEntrada)=0 Or Len("" & Filtro_MaterialEntrada) = 0 Then 'se material estiver em branco
MsgBox "Falta o material", vbInformation, "Atenção"
Forms!Frm_Entradas!Frm_Entradassub!Txt_Materialentradadet.SetFocus '<<<-- MATERIAL --------<<<<<<<<
DoCmd.CancelEvent
End
Else...

Obrigado,
mas a situação é esta:
a pessoa seleciona um material e vai para preencher os outros campos,
depois percebe que não era aquele material que queria, e na pressa
apenas apaga o material, deixando o campo em branco, e vai para o outro campo
antes de clicar em salvar, é aí que aparece a mensagem.

Mas isso será porque o campo é obrigatório e não deixa sair sem preencher
Se quer que saia sem preencher, altere e deixe o preenchimento opcional

Me desculpe, mas não entendi...
Na tabela o campo esta: Requerido = Não
Seria isso?

Quando o campo é de preenchimento é obrigatório, não é possível criar registo com esse campo por preencher

Boa tarde à todos,
Depois de várias tentativas, resolvi fazer um modelo do zero.
Descobri que no modelo antigo, No subformulário/ fonte de registro, todos os campos vinham da tabela Entrada_Detalhes,
somente um estava buscando na tabela de cadastro de material (Unidade do produto)
eu mudei para que buscasse na tabela Entrada_Detalhes,
Me.Txt_unidade.Value = DLookup("unidade", "Tbl_CadMaterial", "codmaterial =" & Cbo_Materialentradadet)
depois disto, passou a aceitar minha mensagem personalizada.
Obrigado à todos.

Boa tarde
Faltou o "Resolvido"

Obrigado.