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

4 participantes

    [Resolvido]Repetir valor de um campo em outros campos respeitando condição IF... ELSE

    avatar
    Luiz antônio
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 36
    Registrado : 06/02/2020

    [Resolvido]Repetir valor de um campo em outros campos respeitando condição IF... ELSE Empty [Resolvido]Repetir valor de um campo em outros campos respeitando condição IF... ELSE

    Mensagem  Luiz antônio Qui 10 Mar - 13:14

    Estou usando o código a seguir para editar campos existentes na mesma tabela.

    Código:
           
    Private Sub Form_AfterUpdate()
            Dim db As Database
            Dim rs As Recordset
            Set db = CurrentDb()
            Set rs = db.OpenRecordset("tbl_ContasReceberPagar")
           
            If Tipo_De_Movimentação_De_Caixa = "1" And Financeiro = "1" Then
                Valor_da_Parcela = ValorDaParcelaRecebida
                               
                rs.Edit
                rs("Entradas") = Valor_da_Parcela
                rs("Saídas") = 0
                rs("EntradasCaixa") = Valor_da_Parcela
                rs("SaídasCaixa") = 0
                rs("EntradasReais") = Valor_da_Parcela
                rs("SaídasReais") = 0
                rs("EntradasBanco") = 0
                rs("SaídasBanco") = 0
                rs("EntradasPag") = 0
                rs("SaídasPag") = 0
                rs.Update
           
            rs.Close
            db.Close
            Me.[frm_SubformulárioContasReceberPagar-1].Requery

        Else...

        End If

    End Sub

    O código não está atualizando os campos. Todos continuam com valor zero.

    Gostaria que o valor do campo ValorDaParcelaRecebida fosse inserido (ou repetido):

    1) se MovimentoDeCaixa=1 (Entrada) e Financeiro=1 (Caixa) nos campos Entradas, EntradasCaixa e EntradasReais.
    2) se MovimentoDeCaixa=2 (Saídas) e Financeiro=1 (Caixa) nos campos Saídas, SaídasCaixa e SaídasReais.

    Os demais campos devem permanecer com valor zero.

    Estou adotando esse procedimento, porque, se porventura, tentar reeditar corrigir um registro de Entradas para Saídas, os registros sejam invertidos.

    Eu insiro os dados de recebimento em um subformulário de um formulário de Clientes/Fornecedores.

    Podem me ajudar? Desde já obrigado.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10762
    Registrado : 04/11/2009

    [Resolvido]Repetir valor de um campo em outros campos respeitando condição IF... ELSE Empty Re: [Resolvido]Repetir valor de um campo em outros campos respeitando condição IF... ELSE

    Mensagem  JPaulo Qui 10 Mar - 13:41

    Olá

    Está um pouco dificil de ajudar assim, não vejo nenhum Loop ae.

    Consegue enviar um pequeno exemplo em BD ?


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Repetir valor de um campo em outros campos respeitando condição IF... ELSE Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Repetir valor de um campo em outros campos respeitando condição IF... ELSE Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Repetir valor de um campo em outros campos respeitando condição IF... ELSE Folder_announce_new Instruções SQL como utilizar...
    avatar
    Luiz antônio
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 36
    Registrado : 06/02/2020

    [Resolvido]Repetir valor de um campo em outros campos respeitando condição IF... ELSE Empty Repetir valor de um campo em outros campos respeitando condição IF... ELSE

    Mensagem  Luiz antônio Qui 10 Mar - 14:16

    JPaulo, obrigado por me responder. Estou enviando, anexo, o BD.

    Entre, por gentileza, no frm_ContasReceberPagar. Ele vai lhe pedir um parâmetro: digite 43, que é uma operação de venda a prazo que está no BD. Esse frm tem um subformulário: frm_SubformulárioContasReceberPagar-1. É neste subformulário, no campo cbo_Financeiro, que introduzi o código de atualização da postagem inicial, e que não está funcionando. Pode testar lançando o recebimento da parcela 1/5: [DataDeRecebimento] 16/02/2022, [ValorDaParcelaRecebida] 30000 e [cbo_Financeiro] Caixa.

    Há vários campos cujo formato é moeda que estão com valor 0. Eu gostaria que, ao escolher o tipo financeiro (Banco ou Caixa), as colunas de valores de entrada ou saída a seguir fossem atualizadas automaticamente pelo valor que está no campo [ValorDaParcelaRecebida] 30000. Os campos a serem preenchidos quando escolher o Financeiro=Caixa seriam [Entradas], [EntradasCaixa] e [EntradasReais]. Para isso preciso de um IF...ELSE, porque pode ser um recebimento/pagamento por Caixa ou por Banco, que vai usar diferentes campos desse subformulário.

    Um grande abraço
    avatar
    Luiz antônio
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 36
    Registrado : 06/02/2020

    [Resolvido]Repetir valor de um campo em outros campos respeitando condição IF... ELSE Empty Repetir valor de um campo em outros campos respeitando condição IF... ELSE

    Mensagem  Luiz antônio Sex 11 Mar - 13:34

    Alguém pode me ajudar?
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2334
    Registrado : 13/12/2016

    [Resolvido]Repetir valor de um campo em outros campos respeitando condição IF... ELSE Empty Re: [Resolvido]Repetir valor de um campo em outros campos respeitando condição IF... ELSE

    Mensagem  Alexandre Fim Sex 11 Mar - 14:21

    Ola Luis,

    No subformulário "frm_SubformulárioContasReceberPagar-1", no combobox "Fianceiro", no evento "Após atualizar" , insira o código abaixo:

    Código:

    '-- Alexandre Fim - 11/03/2022
    '-- Atualização dos campos conforme criterio do combo
    Private Sub Financeiro_AfterUpdate()
       
        '1-Caixa / 2-Banco / 3-PagSeguro
       
        If Me.Financeiro.Value = 1 Or Me.Financeiro.Value = 2 Then
            Me.Entradas.Value = Me.ValorDaParcela.Value
            Me.EntradasCaixa.Value = Me.ValorDaParcela.Value
            Me.EntradasReais.Value = Me.ValorDaParcela.Value
        Else
            Me.Entradas.Value = 0
            Me.EntradasCaixa.Value = 0
            Me.EntradasReais.Value = 0
        End If


    End Sub


    Acredito que seja isso que vc precisa.

    []'s

    Alexandre Fim


    .................................................................................
    [Resolvido]Repetir valor de um campo em outros campos respeitando condição IF... ELSE Information2 Marcar tópico como Resolvido: CLIQUE AQUI
    [Resolvido]Repetir valor de um campo em outros campos respeitando condição IF... ELSE Information2 Postar anexos no fórum: CLIQUE AQUI

    [Resolvido]Repetir valor de um campo em outros campos respeitando condição IF... ELSE Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    Luiz antônio
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 36
    Registrado : 06/02/2020

    [Resolvido]Repetir valor de um campo em outros campos respeitando condição IF... ELSE Empty Repetir valor de um campo em outros campos respeitando condição IF... ELSE

    Mensagem  Luiz antônio Sex 11 Mar - 14:48

    Ô Alexandre Fim, legal seu interesse. Para mim que tem pouco conhecimento de VBA é difícil explicar o problema.

    Na verdade são duas condições IF: Tipo de Movimentação (1=Entrada; 2=Saída) e Financeiro(1=Caixa; 2=Banco; 3=PagSeguro).

    Acho que os cenários possíveis são:

    1) Se o Financeiro=1 e o Tipo de movimentação=1, os valores do campo [ValorParcelaRecebida] serão "repetidos" nas colunas de Entradas, EntradasCaixa e EntradasReais.

    2) Se o Financeiro=1 e o Tipo de movimentação=2, os valores do campo [ValorParcelaRecebida] serão "repetidos" nas colunas de Saídas, SaídasCaixa e SaídasReais.

    3) Se o Financeiro=2 e o Tipo de movimentação=1, os valores do campo [ValorParcelaRecebida] serão "repetidos" nas colunas de Entradas, EntradasBanco e EntradasBanco.

    4) Se o Financeiro=2 e o Tipo de movimentação=2, os valores do campo [ValorParcelaRecebida] serão "repetidos" nas colunas de Saídas, SaídasBanco e SaídasReais.

    5) Se o Financeiro=3 e o Tipo de movimentação=1, os valores do campo [ValorParcelaRecebida] serão "repetidos" nas colunas de Entradas, EntradasPag e EntradasBanco.

    4) Se o Financeiro=3 e o Tipo de movimentação=2, os valores do campo [ValorParcelaRecebida] serão "repetidos" nas colunas de Saídas, SaídasPag e SaídasReais.

    Se ainda puder me ajudar, Alexandre Fim, agradeço muitíssimo!
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2334
    Registrado : 13/12/2016

    [Resolvido]Repetir valor de um campo em outros campos respeitando condição IF... ELSE Empty Re: [Resolvido]Repetir valor de um campo em outros campos respeitando condição IF... ELSE

    Mensagem  Alexandre Fim Sex 11 Mar - 15:09

    Mas onde vc informa/seleciona o Tipo de Movimentação?


    .................................................................................
    [Resolvido]Repetir valor de um campo em outros campos respeitando condição IF... ELSE Information2 Marcar tópico como Resolvido: CLIQUE AQUI
    [Resolvido]Repetir valor de um campo em outros campos respeitando condição IF... ELSE Information2 Postar anexos no fórum: CLIQUE AQUI

    [Resolvido]Repetir valor de um campo em outros campos respeitando condição IF... ELSE Setinf11
    Sistemas e Tecnologia Ltda
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Repetir valor de um campo em outros campos respeitando condição IF... ELSE Empty Re: [Resolvido]Repetir valor de um campo em outros campos respeitando condição IF... ELSE

    Mensagem  Silvio Sex 11 Mar - 16:12

    Boas.....

    Tipo caso de Select case !


    .................................................................................
    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."
    avatar
    Luiz antônio
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 36
    Registrado : 06/02/2020

    [Resolvido]Repetir valor de um campo em outros campos respeitando condição IF... ELSE Empty Repetir valor de um campo em outros campos respeitando condição IF... ELSE

    Mensagem  Luiz antônio Sex 11 Mar - 20:27

    Alexandre Fim, eu faço esses registro no frm_ContasReceberPagar. Por favor, 1) abra o frm_ContasReceberPagar; 2) ele vai pedir um parâmetro que é o ID_Operação de alguma de compra ou venda a prazo: eu sugeri que se digitasse 43, porque essa operação está no meu BD e é de uma venda a prazo. 3) Os dados das parcelas estão no subformulário dentro do frm_ContasReceberPagar. 4) Os campos que vou editar quando houver um pagamento/recebimento são DataDeVencimento, ValorDaParcelaRecebida e Financeiro. É no Financeiro que suponho que precise de um código para copiar os dados do ValorDaParcelaRecebida para os campos seguintes, observando as condições TipoDeMovimentação e Financeiro, conforme disse antes.

    Eu enviei o banco de dados em uma das postagens anteriores.

    Mais uma vez, obrigado, Alexandre Fim.
    [Resolvido]Repetir valor de um campo em outros campos respeitando condição IF... ELSE Passo-12
    avatar
    Luiz antônio
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 36
    Registrado : 06/02/2020

    [Resolvido]Repetir valor de um campo em outros campos respeitando condição IF... ELSE Empty Socorro!!! :?:

    Mensagem  Luiz antônio Dom 13 Mar - 9:06

    Me ajudem, por favor!
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2334
    Registrado : 13/12/2016

    [Resolvido]Repetir valor de um campo em outros campos respeitando condição IF... ELSE Empty Re: [Resolvido]Repetir valor de um campo em outros campos respeitando condição IF... ELSE

    Mensagem  Alexandre Fim Dom 13 Mar - 14:43

    Olá Luiz,
    Agora ficou mais fácil. Vou ajustar o sistema e em seguida disponibilizo aqui.

    Obs.: Tem coluna repetida:



    3) Se o Financeiro=2 e o Tipo de movimentação=1, os valores do campo [ValorParcelaRecebida] serão "repetidos" nas colunas de Entradas, EntradasBanco e EntradasBanco.



    Ate +

    Alexandre


    .................................................................................
    [Resolvido]Repetir valor de um campo em outros campos respeitando condição IF... ELSE Information2 Marcar tópico como Resolvido: CLIQUE AQUI
    [Resolvido]Repetir valor de um campo em outros campos respeitando condição IF... ELSE Information2 Postar anexos no fórum: CLIQUE AQUI

    [Resolvido]Repetir valor de um campo em outros campos respeitando condição IF... ELSE Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    Luiz antônio
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 36
    Registrado : 06/02/2020

    [Resolvido]Repetir valor de um campo em outros campos respeitando condição IF... ELSE Empty Tem razão

    Mensagem  Luiz antônio Dom 13 Mar - 17:21

    Alexandre Fim, tem razão. Eu acabei repetindo.
    Na vdd é Entradas, EntradasBanco e EntradasReais se Financeiro = 2 e Tipo_De_Movimentação = 1.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2334
    Registrado : 13/12/2016

    [Resolvido]Repetir valor de um campo em outros campos respeitando condição IF... ELSE Empty Re: [Resolvido]Repetir valor de um campo em outros campos respeitando condição IF... ELSE

    Mensagem  Alexandre Fim Dom 13 Mar - 18:45

    Olá Luiz,

    Ao atualizar o combo Financeiro executa a seguinte rotina:

    Código:


    Private Sub Financeiro_AfterUpdate()
    Dim iTipoMov As Integer
        '-- Tipo financeiro - 1-Caixa / 2-Banco / 3-PagSeguro
        '-- Tipo de Movimentação - 1-Entrada / 2-Saida
        
        '-- Carrega variável do tipo de movimentação da operação
        iTipoMov = Nz(DLookup("Tipo_De_Movimentação", "tbl_ContasReceberPagar", "[ID_Operação] = " & Me.ID_Operação & ""), 0)
        
        '-- Executa função com condição concatenada
        Call fnAtualizaCampos(Me.Financeiro.Value & iTipoMov)


    End Sub


    OBS: O sistema concatena o Tipo Financeiro com o Tipo de Movimentação:
    Ex: Tipo Financeiro = 1 / tipo Movimentação = 2 ==> Resultado "12"...Com este resultado, entra como parametro(nMov) na função on o Select Case determina quais os campos devem ser preenchidos.


    Função com as devidas condições, conforme tipo financeiro e tipo de movimentação:

    Código:

    Private Function fnAtualizaCampos(nMov As Integer)

        
        Select Case (nMov)
            
            Case 11
                Me.Entradas.Value = Me.ValorDaParcela.Value
                Me.EntradasCaixa.Value = Me.ValorDaParcela.Value
                Me.EntradasReais.Value = Me.ValorDaParcela.Value
                Me.EntradasBanco.Value = 0
                Me.EntradasPag.Value = 0
            
            Case 12
                Me.Saídas.Value = Me.ValorDaParcela.Value
                Me.SaídasCaixa.Value = Me.ValorDaParcela.Value
                Me.SaídasReais.Value = Me.ValorDaParcela.Value
                Me.SaídasBanco.Value = 0
                Me.SaídasPag.Value = 0
            
            Case 21
                Me.Entradas.Value = Me.ValorDaParcela.Value
                Me.EntradasBanco.Value = Me.ValorDaParcela.Value
                Me.EntradasReais.Value = Me.ValorDaParcela.Value
                Me.EntradasPag.Value = 0
                Me.EntradasCaixa.Value = 0
            
            Case 22
                Me.Saídas.Value = Me.ValorDaParcela.Value
                Me.SaídasBanco.Value = Me.ValorDaParcela.Value
                Me.SaídasReais.Value = Me.ValorDaParcela.Value
                Me.SaídasCaixa.Value = 0
                Me.SaídasPag.Value = 0
            
            Case 31
                Me.Entradas.Value = Me.ValorDaParcela.Value
                Me.EntradasPag.Value = Me.ValorDaParcela.Value
                Me.EntradasBanco.Value = Me.ValorDaParcela.Value
                Me.EntradasCaixa.Value = 0
                Me.EntradasReais.Value = 0
                
            Case 32
                Me.Saídas.Value = Me.ValorDaParcela.Value
                Me.SaídasPag.Value = Me.ValorDaParcela.Value
                Me.SaídasReais.Value = Me.ValorDaParcela.Value
                Me.SaídasCaixa.Value = 0
                Me.SaídasBanco.Value = 0
        End Select


    End Function

    NOTA: Alguns campos eu coloquei como ZERO, pois se o usuário escolher "Banco", os campos serão preenchidos, mas se ele voltar e escolher "Caixa", os campos referente à "Banco" também estarão preenchidos. Então, devem ser zerados conforme condição. (Acho que é isso...rsss)


    É isso.

    Se faltar alguma coisa, acredito que é só adaptar a rotina.

    Segue versão.

    Boa sorte.

    []'s

    FIM


    .................................................................................
    [Resolvido]Repetir valor de um campo em outros campos respeitando condição IF... ELSE Information2 Marcar tópico como Resolvido: CLIQUE AQUI
    [Resolvido]Repetir valor de um campo em outros campos respeitando condição IF... ELSE Information2 Postar anexos no fórum: CLIQUE AQUI

    [Resolvido]Repetir valor de um campo em outros campos respeitando condição IF... ELSE Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    Luiz antônio
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 36
    Registrado : 06/02/2020

    [Resolvido]Repetir valor de um campo em outros campos respeitando condição IF... ELSE Empty Maravilha!!!!

    Mensagem  Luiz antônio Dom 13 Mar - 21:03

    Alexandre Fim, acho que é isso. Foi na mosca!

    Tinha um repetição no código de uma das saídas que corrigi e tá funcionando muito bem.

    Você é o cara! Obrigado viu! Vou testar até amanhã e em seguida volto aqui para posicionar você e o Fórum sobre o resultado da solução.

    Um abração.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2334
    Registrado : 13/12/2016

    [Resolvido]Repetir valor de um campo em outros campos respeitando condição IF... ELSE Empty Re: [Resolvido]Repetir valor de um campo em outros campos respeitando condição IF... ELSE

    Mensagem  Alexandre Fim Dom 13 Mar - 21:58

    Blza Luiz..
    Boa sorte...
    Abs


    .................................................................................
    [Resolvido]Repetir valor de um campo em outros campos respeitando condição IF... ELSE Information2 Marcar tópico como Resolvido: CLIQUE AQUI
    [Resolvido]Repetir valor de um campo em outros campos respeitando condição IF... ELSE Information2 Postar anexos no fórum: CLIQUE AQUI

    [Resolvido]Repetir valor de um campo em outros campos respeitando condição IF... ELSE Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    Luiz antônio
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 36
    Registrado : 06/02/2020

    [Resolvido]Repetir valor de um campo em outros campos respeitando condição IF... ELSE Empty Finalizando...

    Mensagem  Luiz antônio Seg 14 Mar - 13:06

    Alexandre Fim, só mais uma coisinha... Se não for atrapalhar.

    Vamos supor que digite o registro errado: que eu apague então o ValorDaParcelaRecebida e o Financeiro. Como poderia voltar os valores para 0 novamente? O que precisaria acrescentar ao código?

    Valeu demais. Ficou muito bom. 10 (deizzzzzzzzz)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2334
    Registrado : 13/12/2016

    [Resolvido]Repetir valor de um campo em outros campos respeitando condição IF... ELSE Empty Re: [Resolvido]Repetir valor de um campo em outros campos respeitando condição IF... ELSE

    Mensagem  Alexandre Fim Seg 14 Mar - 16:43

    Luiz,

    O que daria pra fazer é incluir um botão no subformulário e, ao clicar, o Access verifica o registro selecionado no grid e aplica valor ZERO nos campos desejados, mas com mensagem de confirmação.

    Vou fazer esse ajuste e te mando a versão.

    []'s

    FIM


    .................................................................................
    [Resolvido]Repetir valor de um campo em outros campos respeitando condição IF... ELSE Information2 Marcar tópico como Resolvido: CLIQUE AQUI
    [Resolvido]Repetir valor de um campo em outros campos respeitando condição IF... ELSE Information2 Postar anexos no fórum: CLIQUE AQUI

    [Resolvido]Repetir valor de um campo em outros campos respeitando condição IF... ELSE Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    Luiz antônio
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 36
    Registrado : 06/02/2020

    [Resolvido]Repetir valor de um campo em outros campos respeitando condição IF... ELSE Empty Chique!

    Mensagem  Luiz antônio Seg 14 Mar - 17:10

    sunny

    obrigado


    Última edição por Luiz antônio em Ter 15 Mar - 12:05, editado 1 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2334
    Registrado : 13/12/2016

    [Resolvido]Repetir valor de um campo em outros campos respeitando condição IF... ELSE Empty Re: [Resolvido]Repetir valor de um campo em outros campos respeitando condição IF... ELSE

    Mensagem  Alexandre Fim Seg 14 Mar - 18:14

    Luiz,

    A rotina para zerar os valores informados incorretamente está no campo "Valor Recebido".

    [Resolvido]Repetir valor de um campo em outros campos respeitando condição IF... ELSE Contas11


    Ao informar ZERO, entra na rotina abaixo e zera os campos (não sei quais campos são..fica a seu criterio para ajustes):

    Código:


    Private Sub ValorDaParcelaRecebida_AfterUpdate()


        If Me.ValorDaParcelaRecebida.Value <= 0 Then
            If MsgBox("Os valores informados serão zerados. Deseja prosseguir?", vbQuestion + vbYesNo, "Confirma(S/N)") = vbYes Then
                Me.Entradas.Value = 0
                Me.EntradasCaixa.Value = 0
                Me.EntradasBanco.Value = 0
                Me.EntradasPag.Value = 0
                Me.EntradasReais.Value = 0
                Me.Saídas.Value = 0
                Me.SaídasCaixa.Value = 0
                Me.SaídasBanco.Value = 0
                Me.SaídasPag.Value = 0
                Me.SaídasReais.Value = 0
                Me.Financeiro = ""
            End If
        End If

    End Sub


    NOTA: Fiz um ajuste no layout do formulário para o grid ficar um pouco mais visível, pois possui muitas colunas. Caso não queira, copie e cole a rotina no formulário original que vai funcionar do mesmo jeito.

    NOTA2: Aquele ajuste que vc fez na outra rotina que estava repetido, NÃO ESTÁ contemplado nesta versão. Necessário fazer o ajuste.

    Segue versão atualizada

    É isso

    []'s

    FIM


    .................................................................................
    [Resolvido]Repetir valor de um campo em outros campos respeitando condição IF... ELSE Information2 Marcar tópico como Resolvido: CLIQUE AQUI
    [Resolvido]Repetir valor de um campo em outros campos respeitando condição IF... ELSE Information2 Postar anexos no fórum: CLIQUE AQUI

    [Resolvido]Repetir valor de um campo em outros campos respeitando condição IF... ELSE Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    Luiz antônio
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 36
    Registrado : 06/02/2020

    [Resolvido]Repetir valor de um campo em outros campos respeitando condição IF... ELSE Empty Alexandre, nota 1000

    Mensagem  Luiz antônio Ter 15 Mar - 12:04

    Cara, vc é incrível: nota 1000. Funcionando legal. Desculpe-me demorar a retornar.

    Sobre a repaginação do formulário, não será necessária: todas as colunas de entradas e saídas ficarão ocultas.

    Muitíssimo obrigado, Alexandre Fim.

    Um grande abraço.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2334
    Registrado : 13/12/2016

    [Resolvido]Repetir valor de um campo em outros campos respeitando condição IF... ELSE Empty Re: [Resolvido]Repetir valor de um campo em outros campos respeitando condição IF... ELSE

    Mensagem  Alexandre Fim Ter 15 Mar - 12:40

    Valeu Luiz....O fórum agradece.
    Sucesso !!!!
    Abs
    FIM


    .................................................................................
    [Resolvido]Repetir valor de um campo em outros campos respeitando condição IF... ELSE Information2 Marcar tópico como Resolvido: CLIQUE AQUI
    [Resolvido]Repetir valor de um campo em outros campos respeitando condição IF... ELSE Information2 Postar anexos no fórum: CLIQUE AQUI

    [Resolvido]Repetir valor de um campo em outros campos respeitando condição IF... ELSE Setinf11
    Sistemas e Tecnologia Ltda

      Data/hora atual: Qua 18 Maio - 18:29