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]Erro de tabulação no formulário com sub-formulário

    Siscrau
    Siscrau
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 21/05/2022

    [Resolvido]Erro de tabulação no formulário com sub-formulário Empty [Resolvido]Erro de tabulação no formulário com sub-formulário

    Mensagem  Siscrau 18/11/2022, 20:58

    Fazendo um pedido com vários itens, a tabulação não para no inicio do novo registro (novo), ele "pula" para o primeiro ítem do pedido...
    Eu uso um script que vai totalizando os valores no fim de item registrado...

    Private Sub Quant_entregue_Exit(Cancel As Integer)
       '-- Alexandre Fim - Forum Maximo Access - 22/09/2022

       Dim vTotal As Double
           vTotal = Format(Nz(DSum("SubTotal", "Vendas", "Número_pedido = " & Me.Número_pedido & ""), 0), "#,##0.#0")
           CurrentDb.Execute ("UPDATE PDVendas SET Valor_Total = '" & vTotal & "' WHERE Número_pedido = " & Me.Número_pedido & "")
    End Sub

    Se eu não uso ele funciona.
    Segue o bd pra ajudar...
    Anexos
    [Resolvido]Erro de tabulação no formulário com sub-formulário AttachmentTeste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (558 Kb) Baixado 10 vez(es)
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Erro de tabulação no formulário com sub-formulário Empty Re: [Resolvido]Erro de tabulação no formulário com sub-formulário

    Mensagem  Marcelo David 23/11/2022, 03:03

    Boa noite,
    não ficou claro para mim a intensão e quando você ousa ou não o código indicado.


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Clique aqui e conheça o treinamento.
    [Resolvido]Erro de tabulação no formulário com sub-formulário Marcel11
    Siscrau
    Siscrau
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 21/05/2022

    [Resolvido]Erro de tabulação no formulário com sub-formulário Empty Re: [Resolvido]Erro de tabulação no formulário com sub-formulário

    Mensagem  Siscrau 23/11/2022, 10:51

    Bom dia, uso (sempre) este código para fazer uma totalização dos sub-totais no sub-formulário e atualizar o valor total do pedido no formulário principal.
    Uso ele na saida do último campo do sub-formulário.
    O formulário principal (PDVendas) tem o campo "Valor_total", ele atualiza a tabela "PDVendas"
    O subformulário (Vendas) tem o campo "SubTotal", ele atualiza a tabela "Vendas"

    O que eu preciso é que quando vou lançando as vendas ele atualize o valor total do pedido...
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Erro de tabulação no formulário com sub-formulário Empty Re: [Resolvido]Erro de tabulação no formulário com sub-formulário

    Mensagem  Marcelo David 26/11/2022, 02:47

    Olá Pedro,

    adicione abaixo da linha CurrentDb.Execute...:

    Código:
    'Salvo o novo registro
    DoCmd.RunCommand acCmdSaveRecord
    'Atualizo o campo do formulário principal com o valor salvo
    Me.Parent.Valor_total.Requery
    'Forço o sistema operacional realizar tarefas que estão aguardando
    DoEvents
    'Adiciono um novo registro
    DoCmd.RunCommand acCmdRecordsGoToNew

    Veja se funciona e nos retorne, por gentileza.


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Clique aqui e conheça o treinamento.
    [Resolvido]Erro de tabulação no formulário com sub-formulário Marcel11
    Siscrau
    Siscrau
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 21/05/2022

    [Resolvido]Erro de tabulação no formulário com sub-formulário Empty Re: [Resolvido]Erro de tabulação no formulário com sub-formulário

    Mensagem  Siscrau 27/11/2022, 12:29

    Olá Marcelo, ficou perfeito, exatamente o que eu precisava, muito obrigado pela ajuda (e pela aula, me ajudou bastante o passo a passo do código).

      Data/hora atual: 27/1/2023, 04:33