MaximoAccess

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

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

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

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

    Respeito às Regras 100%

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

    [Resolvido]MsgBox em subformulário mas com referência em consulta Empty 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
    avatar
    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 Empty 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
    [Resolvido]MsgBox em subformulário mas com referência em consulta AttachmentErros.docx
    Você não tem permissão para fazer download dos arquivos anexados.
    (302 Kb) Baixado 3 vez(es)
    avatar
    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 Empty 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.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]MsgBox em subformulário mas com referência em consulta Empty 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: 24/10/2020, 07:20