[Resolvido]ComBox a registar em 2 campos da tabela

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

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

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

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

Download

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