MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    Compartilhe

    Raimundo Jeová
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 31
    Registrado : 01/08/2016

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

    Mensagem  Raimundo Jeová em 19/10/2017, 13:22

    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á.
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5580
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em 19/10/2017, 18:39

    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

    Raimundo Jeová
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 31
    Registrado : 01/08/2016

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

    Mensagem  Raimundo Jeová em 20/10/2017, 00:11

    Olá.

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

    Grato pela ajuda.
    Anexos
    Erros.docx
    Você não tem permissão para fazer download dos arquivos anexados.
    (302 Kb) Baixado 3 vez(es)

    Raimundo Jeová
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 31
    Registrado : 01/08/2016

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

    Mensagem  Raimundo Jeová em 21/10/2017, 01:53

    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.
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5580
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em 21/10/2017, 10:41

    Olá Raimundo,
    Obrigado pelo retorno.

    Abraço

      Data/hora atual: 14/11/2018, 11:49