Estoque Insuficiente

Boa tarde galera, estou aqui precisando de ajuda para efetuar esse código abaixo, eu tenho 2 tabelas uma Tab_Estoque, e outra Tab_saida e nesse formulário de saída eu gostaria que ao clicar no botão salvar ele analisasse se o Campo estoque tem a quantidade solicitada pelo campo quantidade e se estiver correto subtrair no estoque, essa parte esta certa o único problema é que não consigo adaptar esse código para informar quando não tiver a quantidade solicitada podem me ajudar ?


Private Sub Salvar_Click()
If Me.txtPRODUTO.Column(3) <= Estoque Then
MsgBox "Não há quantidade suficiente em estoque para efetivar este pedido!", vbInformation, "Estoque baixo"
Else
DoCmd.RunSQL "UPDATE Tab_Estoque Set [Tab_Estoque].[Estoque] = [Tab_Estoque].[Estoque]- " & Me.Quantidade & ""
DoCmd.SetWarnings True
Me.Lista_Autorizacao.Requery
Me.Refresh
End If
End Sub

Olá samueldrun,

venha este exemplo se ajuda, na mensagem nº 1 e 6.
https://www.maximoaccess.com/t30874-resolvidoerro-funcao-dlookup