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]atualizar campos de um subform via dao

    alozs
    alozs
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 295
    Registrado : 07/02/2018

    [Resolvido]atualizar campos de um subform via dao Empty [Resolvido]atualizar campos de um subform via dao

    Mensagem  alozs 4/1/2019, 17:12

    boa tarde a todos, estou quebrando a cabeça aqui com um problema "simples" porem estou começando a aprender agora com manipulação de dados via dao recordset, estou montando um sistema de ordem de serviço e tenho um subform dentro de um form principal (onde eu insiro a quantidade de produtos orçados) porem eu gostaria que quando no form principal coloca-se faturado automaticamente os números que contem na caixa de texto "qtdorcamento" automaticamente passa-se para a caixa de texto "quantidade" para dar saída no estoque corretamente somente quando "faturar" a ordem de serviço, tentei algumas combinações aqui mais nada deu certo, vou colocar algumas que tentei logo abaixo.

    lembrando que como são várias linhas (produtos) precisaria o código passar por todos os registros (loop) para salvar todos os resultados.

    Código:
    Dim rs5 As DAO.Recordset
       
        Set rs5 = Me!FRM_SERVICOS_SUB.Form.RecordsetClone
        Do While Not rs5.EOF
        rs5.Edit
            rs5!quantidade.Value = rs5!qtdorcamento.Value
        rs5.Update
    rs5.MoveNext
    Loop



    Dim rs5 As DAO.Recordset
        Set rs5 = Me!FRM_SERVICOS_SUB.Form.RecordsetClone
        If rs5.RecordCount > 0 Then
            Me!quantidade.Value = 0
            rs5.MoveFirst
            While Not rs5.EOF
                Me!quantidade.Value = Me!qtdorcamento.Value
            rs5.MoveNext

    Dim rs5 As DAO.Recordset
        Set rs5 = Me!FRM_SERVICOS_SUB.Form.RecordsetClone
        If rs5.RecordCount > 0 Then
            Me!quantidade.Value = 0
            rs5.MoveFirst
            While Not rs5.EOF
                Me!FRM_SERVICOS_SUB.Form!quantidade.Value = Me!FRM_SERVICOS_SUB.Form!qtdorcamento.Value
            rs5.MoveNext

    tentei outras combinações que não me recordo agora mais nenhuma deu certo

    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]atualizar campos de um subform via dao Empty Re: [Resolvido]atualizar campos de um subform via dao

    Mensagem  Marcelo David 4/1/2019, 22:27

    Boa noite.
    Se há um subformulário, normalmente há um relacionamento entre as tabelas deles.

    Se há, então nem precisa de loop e nem do DAO, uma consulta pode fazer isso no VBA.
    Mas para isso precisamos saber nomes de tabela e campos e como está o relacionamento.

    Se puder, poste seu aplicativo e indique os objetos envolvidos que tentamos algo.


    .................................................................................
    [Resolvido]atualizar campos de um subform via dao Logo-coral Aprenda Formulário Desacoplado, clique aqui. | Marcelo David
    alozs
    alozs
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 295
    Registrado : 07/02/2018

    [Resolvido]atualizar campos de um subform via dao Empty Re: [Resolvido]atualizar campos de um subform via dao

    Mensagem  alozs 5/1/2019, 14:15

    bom dia segue o meu sistema no link abaixo

    https://www.dropbox.com/s/i2kq33mxznpg83x/Controle%20de%20Servi%C3%A7os%20v11%20site.accdb?dl=0

    no formulario FRM_SERVIÇOS tem os campos "qtdorcamento" e "quantidade" (esse campo seria a quantidade vendida), conforme mencionei acima assim que o cliente mudasse para "faturado" automáticamente ele preenche o campo quantidade, sem ter que fazer essa mudança manual, e se voltasse para "aberto" por exemplo zerasse o campo "quantidade" para não dar baixa no estoque, tentei de várias formas e não consegui Sad
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]atualizar campos de um subform via dao Empty Re: [Resolvido]atualizar campos de um subform via dao

    Mensagem  Marcelo David 6/1/2019, 03:24

    Bom dia,
    experimente:

    Código:
    If Me.Status = "Faturado" Then 'Caso o status seja faturado, a quantidade recebe o valor de qtdorcamento
        CurrentDb.Execute "UPDATE tblMovimentacao SET quantidade=qtdorcamento WHERE idvendaservico=" & Me.ID_SERVICO, dbFailOnError
    Else 'caso não seja faturado, a quantidade recebe zero.
        CurrentDb.Execute "UPDATE tblMovimentacao SET quantidade=0 WHERE idvendaservico=" & Me.ID_SERVICO, dbFailOnError
    End If


    .................................................................................
    [Resolvido]atualizar campos de um subform via dao Logo-coral Aprenda Formulário Desacoplado, clique aqui. | Marcelo David
    alozs
    alozs
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 295
    Registrado : 07/02/2018

    [Resolvido]atualizar campos de um subform via dao Empty Re: [Resolvido]atualizar campos de um subform via dao

    Mensagem  alozs 7/1/2019, 01:42

    muito obg Marcelo David, funcionando perfeito!!!!
    Deus te abençõe!
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]atualizar campos de um subform via dao Empty Re: [Resolvido]atualizar campos de um subform via dao

    Mensagem  Marcelo David 7/1/2019, 02:30

    Obrigado pelo retorno. O fórum agradece!


    .................................................................................
    [Resolvido]atualizar campos de um subform via dao Logo-coral Aprenda Formulário Desacoplado, clique aqui. | Marcelo David

      Data/hora atual: 25/7/2021, 04:49