MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    [Resolvido]ComBox a registar em 2 campos da tabela

    avatar
    Luís Antunes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 254
    Registrado : 05/04/2016

    [Resolvido]ComBox a registar em 2 campos da tabela Empty [Resolvido]ComBox a registar em 2 campos da tabela

    Mensagem  Luís Antunes em 30/1/2018, 15:47

    Tenho no formulário uma combox com duas opções "Receitas" e "Despesas"  que regista, uma ou outra opção, num campo da tabela "Tipo".
    O que eu pretendia, não abusando da vossa vontade, era a combox a registar os valores a débito ou a crédito, conforme a opção, em dois campos da tabela "Receitas" e "Despesas".
    Junto a BD para melhor cpmpeenção.

    Luís Antunes
    Anexos
    [Resolvido]ComBox a registar em 2 campos da tabela AttachmentExemplo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (113 Kb) Baixado 8 vez(es)
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]ComBox a registar em 2 campos da tabela Empty Re: [Resolvido]ComBox a registar em 2 campos da tabela

    Mensagem  JPaulo em 30/1/2018, 16:24

    ola;

    Para isso acontecer e segundo entendi;

    No evento VBA depois de atualizar no seu campo ValorLanc;

    Código:
    Private Sub ValorLanc_AfterUpdate()
        Select Case Me.Tipo
        Case Is = "RECEITA"
        Me.Receita.Value = Me.ValorLanc.Value
        Me.Despesa.Value = ""
        Case Else
        Me.Despesa.Value = Me.ValorLanc.Value
        Me.Receita.Value = ""
        End Select
        DoCmd.RunCommand acCmdSaveRecord
    End Sub


    .................................................................................
    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]ComBox a registar em 2 campos da tabela Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]ComBox a registar em 2 campos da tabela Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]ComBox a registar em 2 campos da tabela Folder_announce_new Instruções SQL como utilizar...
    avatar
    Luís Antunes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 254
    Registrado : 05/04/2016

    [Resolvido]ComBox a registar em 2 campos da tabela Empty Re: [Resolvido]ComBox a registar em 2 campos da tabela

    Mensagem  Luís Antunes em 30/1/2018, 18:24

    J.Paulo
    Grato pelo interesse.
    O Código dá-me erro na linha Me.Receita.Value = Me.ValorLanc.Value.
    Uma dúvida, se hover um lapso e emendar, por exp., Receita por Despesa a tabela actualiza a mudança?
    Luís Antunes
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]ComBox a registar em 2 campos da tabela Empty Re: [Resolvido]ComBox a registar em 2 campos da tabela

    Mensagem  JPaulo em 31/1/2018, 11:17

    Teste você mesmo a alterar de Receita para Despesa e veja.

    Download


    .................................................................................
    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]ComBox a registar em 2 campos da tabela Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]ComBox a registar em 2 campos da tabela Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]ComBox a registar em 2 campos da tabela Folder_announce_new Instruções SQL como utilizar...
    avatar
    Luís Antunes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 254
    Registrado : 05/04/2016

    [Resolvido]ComBox a registar em 2 campos da tabela Empty Re: [Resolvido]ComBox a registar em 2 campos da tabela

    Mensagem  Luís Antunes em 31/1/2018, 15:13

    J paulo
    Funciona Perfeitamente no exemplo, quando ponho o código no meu projecto dá-me erro.
    Deve existir algum conflito que tenho de verificar.
    Fico-lhe grato pela ajuda

    Luís Antunes

    Conteúdo patrocinado

    [Resolvido]ComBox a registar em 2 campos da tabela Empty Re: [Resolvido]ComBox a registar em 2 campos da tabela

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 26/5/2019, 06:45