[Resolvido]MsgBox em subformulário mas com referência em consulta

Sras e Srs, bom dia!

Estou criando um sistema para controle de saldos de estoque e pedidos no qual pretendo colocar uma MsgBox no formulário de pedidos (Frm_RecebSub) alertando quando não houver saldo em estoque após atualizar o campo "pedido", que é onde se digita a quantidade desejada, para isto, estou utilizando o seguinte código no VBA:

Private Sub Pedido Sub_AfterUpdate()
If Pedido >= [Cns_Saldo]![SaldoUnid] Then
MsgBox ("Item sem saldo!"), VbCritical, "Atenção"
Forms! Frm_RecebSub! Pedido.SetFocus
EndIf

Entretanto, o comando sempre vai para o depurador, como posso corrigir?

Observações:
1-O "SetFocus" é para voltar ao campo "pedido" e corrigir a quantidade.
2-O saldo de estoque está localizado no campo "SaldoUnid" que fica na consulta "Cns_Saldo".

Agradeço a ajuda desde já.

Ola Raimundo,
Vou considerar que o erro e na linha msgbox
Tente assim:

Código:


Private Sub Pedido Sub_AfterUpdate()
If Pedido >= [Cns_Saldo]![SaldoUnid] Then
MsgBox "O saldo disponível é " &[Cns_Saldo]![SaldoUnid] &" unidades", VbCritical, "Atenção"
Forms! Frm_RecebSub! Pedido.SetFocus
EndIf


Abraço

Olá.

Usei seu código, mas ele mostrou alguns problemas como segue no arquivo em anexo.

Grato pela ajuda.

Boa noite!

Consegui resolver o problema usando o seguinte código:

Private Sub Pedido_AfterUpdate()
If Pedido < texto26 Then
Me.Requery
Else
MsgBox ("ITEM SEM SALDO!!!")
Pedido.SetFocus
End If
End Sub

Consegui resolver colocando um novo campo na tabela de registros de saídas dos produtos o qual associei ao saldo de estoque na consulta "Cns_Saldo".
Coloquei este campo no formulário de saídas (deixando-o não visível), criei uma caixa de texto no rodapé do sub-formulário de saídas associando-a ao campo que foi colocado no formulário, esta caixa de texto no rodapé do subformulário foi associada a outra que chamei de "texto26" conforme está no código acima.
Em suma: problema resolvido.

Olá Raimundo,
Obrigado pelo retorno.

Abraço