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

    Apos clicar no botão salvar atualizar tabelas

    avatar
    mfmaiafilho
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Apos clicar no botão salvar atualizar tabelas Empty Apos clicar no botão salvar atualizar tabelas

    Mensagem  mfmaiafilho em Sex Nov 27, 2020 7:40 pm

    Tenho uma tabela Tbl_Estoque onde eu cadastro os produtos e coloco o Saldo Inicial com os campos

    CodEstoque, Produto, UndMedida, Quantidade, Suprimento

    Tenho outra tabela Tbl_Requisicoes onde eu faço requisição de algo que coloquei no Tbl_Estoque, com os campos

    CodRequisicao, Solicitante, Setor, Unidade, Produto, UndMedida, QtdEstoque, Suprimento

    porém os campos aqui são auto-preenchidos no Form, UndMedida, QtdEstoque e Suprimento são puxados quando eu digito o produto,

    aquele esquema Me.undMedida.Value = Me.Produto.Column(2)


    o que está errado é que quando eu atualizo a Tbl_Estoque dentro do Form e pressiono Salvar ele não atualiza o Saldo.

    fiz de tudo com o codigo abaixo da um erro 2465, alguem pode me ajudar ?

    Dim rs As DAO.Recordset
    Set rs = CurrentDb.OpenRecordset("TBL_ESTOQUE")
    rs.MoveFirst
    Do While Not rs.EOF
    CurrentDb.Execute "UPDATE TBL_REQUISICOES SET QtdEstoque = '" & rs!Quantidade & "' WHERE [Tbl_Requisicoes].[CodRequisicao] = " & [Tbl.Requisicoes].[QtdEstoque] & "'"
    rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
    MsgBox "Processo de atualização concluído.", vbInformation, "SQL"
    Exit Sub
    tauron
    tauron
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1275
    Registrado : 07/12/2011

    Apos clicar no botão salvar atualizar tabelas Empty Re: Apos clicar no botão salvar atualizar tabelas

    Mensagem  tauron em Sex Nov 27, 2020 9:24 pm

    Tente adaptar este

    Código:

    DoCmd.RunSQL ("UPDATE tblProdutos set Quantidade=(Quantidade-(Formulários![FrmSaida]![SFrmDetSaida]![Quantidade])) Where tblProdutos.codProduto=(Formulários![FrmSaida]![SFrmDetSaida]![CodProduto]);")
    tauron
    tauron
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1275
    Registrado : 07/12/2011

    Apos clicar no botão salvar atualizar tabelas Empty Re: Apos clicar no botão salvar atualizar tabelas

    Mensagem  tauron em Ter Dez 08, 2020 9:22 am

    E então? ...

    mfmaiafilho gosta desta mensagem

    avatar
    mfmaiafilho
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Apos clicar no botão salvar atualizar tabelas Empty Re: Apos clicar no botão salvar atualizar tabelas

    Mensagem  mfmaiafilho em Sex Dez 11, 2020 2:12 pm

    desculpa a demora, concluir funcionou!
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3237
    Registrado : 21/04/2011

    Apos clicar no botão salvar atualizar tabelas Empty Re: Apos clicar no botão salvar atualizar tabelas

    Mensagem  Marcelo David em Sex Dez 11, 2020 2:34 pm

    Bom dia,
    se foi solucionando, marque o como [Resolvido],
    veja como na imagem abaixo:

    Apos clicar no botão salvar atualizar tabelas 1EJDe8jrD42r0OovUmk1HZeXrisMD5LWb8H_wyaTZ4gk0_rRNtg4646VuABLjllmpPCrKHNs3X0CwJbDEBsynm0jFGRdq5onRXOrothxQuOnask1n-conDvqKhVTU8mZuoT3l28bwKtHu6e-o8Cx9Lo9hX_B30v5GZLfAO7UIrS_kd8EJAgHupYL7sAQPKM-k40BJZC77gb688hOvIQMG0bMc7vWUHZAXimTORn1Ahe4bR8o6sH38coHJanFZ0fAhoRne5Q5DPOBXoOBslEEjkYBj4iwQ5faopPPf3lmk2ctfUoQhUuo7BZv6tescX2A_KvyBo3k0IYh7Cu3CjsQrsRwKuBWv9k1tHMsc8Wm7IEcUliqCJQsSkd-E3SDFuU5Ty3PxsmXz6AYGWcQIJBV8esHSzJfxebogbXH4gKIc2O4Phq4w9odO5mZXB-ybOMckYo7jt6X_xxuOlOlXzPvYK4z2BGVjDkNoH6jzBJ3KcBquaMJEKst1RO2ZIBI1Agqqosexy5BM0yAYn9xNXEZf-VtGZr11Sgf4_FF2eAmGWdvH4ctfxmpyaL6OIX595T8yIErX-KWOx-v26lokDzh7CcvFO0ow_NvMf9FqwEga3DRKroiIX5CNEY8VZO3DD914-AhNRKEljKW57JMjbbhsHSPk3PZXcnZyc53_SHMglcBFVZtny2m600mrZdZSQ=w929-h328-no?authuser=0


    .................................................................................
    Marcelo David | Apos clicar no botão salvar atualizar tabelas LinkedIn_Icon.jpg.original LinkedIn
    https://www.freetool.dev

      Data/hora atual: Sab Jan 16, 2021 12:16 pm