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

2 participantes

    [Resolvido]Gravar dados na Tabela Vinculada

    avatar
    fcamara
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 116
    Registrado : 07/01/2016

    [Resolvido]Gravar dados na Tabela Vinculada Empty [Resolvido]Gravar dados na Tabela Vinculada

    Mensagem  fcamara 12/4/2022, 18:44

    Boa Tarde!

    Tenho um banco que usava normalmente e estava funcionando perfeito, só que fui tentar dividir as tabelas para usar em rede ai me ocorreu o problema.
    è um controle de estoque que salvava os histórico das peças retiradas na tabela tblMovimentações depois que separei não salva mais as movimentações. Consigo incluir e dar saída nos produtos só que da erro e não salva a movimentação.

    e tudo isso era feito através de um modulo com o seguinte código.


    Public Function AcertaStock1(CódigoDoProduto As Long, Quantidade As Integer)
    'Altera o stock e coloca a informação na tabela de Movimentações (entrada)
    Dim db As DAO.Database
    Dim rstProdutos As DAO.Recordset
    Dim rstMovimentações As DAO.Recordset

    Set db = CurrentDb()
    Set rstProdutos = db.OpenRecordset("SELECT * FROM tblProdutos " & _
    "WHERE CódigoDoProduto=" & CStr(CódigoDoProduto), dbOpenDynaset)

    If rstProdutos.RecordCount = 0 Then
       MsgBox "Não há produto cadastrado com o código " & _
       CStr(CódigoDoProduto) & ".", vbCritical
    Else
       With rstProdutos
           .MoveFirst
           .Edit
           !UnidadesEmStock = !UnidadesEmStock + Quantidade
           .Update
           iStock = !UnidadesEmStock
       End With
    End If

    Set rstProdutos = Nothing

    Set rstMovimentações = db.OpenRecordset("tblMovimentações", dbOpenTable) " O ERRO Esta dando nessa Linha"
    With rstMovimentações
       .AddNew
       !CódigoDoProduto = CódigoDoProduto
       !Quantidade = Quantidade
       !Data = Now()
       .Update
    End With

    Set rstMovimentações = Nothing
    Set db = Nothing

    End Function


    Alguém pode me ajudar.
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4966
    Registrado : 20/04/2011

    [Resolvido]Gravar dados na Tabela Vinculada Empty Re: [Resolvido]Gravar dados na Tabela Vinculada

    Mensagem  Silvio 12/4/2022, 19:44

    Boas...
    Experimente dessa forma.

    Set rstMovimentações = db.OpenRecordset("tblMovimentações")


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."

    fcamara gosta desta mensagem

    avatar
    fcamara
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 116
    Registrado : 07/01/2016

    [Resolvido]Gravar dados na Tabela Vinculada Empty Resolvido

    Mensagem  fcamara 13/4/2022, 11:42

    Muito obrigado funcionou perfeitamente
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4966
    Registrado : 20/04/2011

    [Resolvido]Gravar dados na Tabela Vinculada Empty Re: [Resolvido]Gravar dados na Tabela Vinculada

    Mensagem  Silvio 13/4/2022, 11:55

    O fórum agradece o retorno.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."

      Data/hora atual: 5/12/2022, 01:01