MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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]Baixa no estoque, Subtrair a QtdUso no campo QtdEstoque

    mfmaiafilho
    mfmaiafilho
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 370
    Registrado : 02/08/2018

    [Resolvido]Baixa no estoque, Subtrair a QtdUso no campo QtdEstoque Empty [Resolvido]Baixa no estoque, Subtrair a QtdUso no campo QtdEstoque

    Mensagem  mfmaiafilho 29/7/2020, 14:04

    Bom dia amigos!

    fiz uma tela recentemente pra controle de liberação de tonners, eu tenho um campo que seleciona o tipo de cartucho que está na tabela Tbl_ImpEst

    e preencho a QtdUso na tabela Tbl_Imp preciso que essa QtdUso seja substraido do campo QtdEstoque na mesma tela porém o campo QtdEstoque está na tabela Tbl_ImpEst, e a quantidade de uso está na Tbl_Imp.


    por favor me ajudem a resolver esse caso, eu tentei fazer com consulta mas não da certo =/ tipo fazer uma soma [Tbl_Imp].[QtdEstoque] - [Tbl_ImpEst].[QtdUso]

    mas não deu certo
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 875
    Registrado : 11/11/2009

    [Resolvido]Baixa no estoque, Subtrair a QtdUso no campo QtdEstoque Empty Re: [Resolvido]Baixa no estoque, Subtrair a QtdUso no campo QtdEstoque

    Mensagem  scandinavo 29/7/2020, 19:24

    Insira este código no evento antes de atualizar do campo QtdUso


    Dim db As DAO.Database
    Dim rs As DAO.Recordset

    Set db = CurrentDb
    'Abre a tabela e seleciomna o cartucho
    Set rs = db.OpenRecordset("Select * from Tbl_ImpEst where Codigo =" & Me.Cartucho.Column(0) & "")
    'Verifica se tem saldo antes de fazer a venda
    If rs!QtdEstoque > Me.QtdUso Then
    'se tiver saldo retira o valor da venda
    rs.Edit
    rs!QtdEstoque = rs!QtdEstoque - Me.QtdUso.Value

    rs.Update
    'se n?o emite mensagem
    Else
    MsgBox ("Sem estoque"), vbCritical, "Mensagem"
    'desfaz a saida
    Me.Undo
    End If
    rs.Close: Set rs = Nothing
    db.Close: Set db = Nothing
    mfmaiafilho
    mfmaiafilho
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 370
    Registrado : 02/08/2018

    [Resolvido]Baixa no estoque, Subtrair a QtdUso no campo QtdEstoque Empty Re: [Resolvido]Baixa no estoque, Subtrair a QtdUso no campo QtdEstoque

    Mensagem  mfmaiafilho 11/8/2020, 18:01

    oi perdão por não ter postado a resposta, ficou otimo, obrigado pela ajuda eu não tinha fechado ainda pq poderia faltar algo, mas ficou excelente.

    obrigado!

    Conteúdo patrocinado

    [Resolvido]Baixa no estoque, Subtrair a QtdUso no campo QtdEstoque Empty Re: [Resolvido]Baixa no estoque, Subtrair a QtdUso no campo QtdEstoque

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 14/5/2021, 12:11