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

    avatar
    mfmaiafilho
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 195
    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 em 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
    Anexos
    [Resolvido]Baixa no estoque, Subtrair a QtdUso no campo QtdEstoque Attachmentimpressoras.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (191 Kb) Baixado 19 vez(es)
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 798
    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 em 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
    avatar
    mfmaiafilho
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 195
    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 em 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!

      Data/hora atual: 22/9/2020, 19:05