Limitar o campo quantidade ao meu valor em estoque.

Bom dia,

Tenho três tabelas conforme descrevo abaixo:
TB_CodMat = Com os Campos: CodMat e Descrição.
TB_Mat_Nota = Cod_Mat, NR_Nota, Nota_Empenho, Quantidade e Valor_Item.
TB_Mat_Destino = Cod_Mat, NR_Nota, Quantidade, Recebedor, Destino e OBS.

Vamos lá! Cadastro previamente todos os materiais na tabela TB_CodMat, após essa etapa cadastrado a entrada desse material na tabela TB_Mat_Nota e por fim a saída dessa material na tabela TB_Mat_Destino.
Eu gostaria somente conseguir lançar quantidade na TB_Mat_Destino enquanto tiver quantidade disponível em estoque, ou seja se eu tentar lançar alguma quantidade de material que encontra-se com o estoque zerado, eu não consiga fazer o lançamento e que seja apresentado uma mensagem dizendo que não há aquele produto disponível em estoque.

Podes usar o Dlookup

Dim qtd As double
qtd = DLookup("Quantidade", "TB_CodMat", "CodMat=" & campo Código do Material no formulário.Value )

If campo Quantidade no formulário.Value <=0 then
Msgbox "Não pode ..."
exit sub
else

Rotina para atualizar o estoque

end if