Ajuda com botão Lançar informações na tabela nos campos receita e despesa

Bom dia a todos,

Mais uma vez incomodando vocês coim dúvidas e necessidades profissional, pois preciso de ajuda com uma situação...

Estou desenvolvendo um sistema simples de controle financeiro. Na tabela tblFinanceiro criei os campos:
IDFinanc | Data | Responsável | Razão | Cidade | UF | Recibo_NFe | Tipo (Combo com tipo de lançamento: Receita ou Despesa) | Descrição | Valor

Num botão, coloquei a opção para salvar assim:

Private Sub cmdSalvar_Click()
If MsgBox(" Deseja salvar esse cadastro ?", vbOKCancel + vbDefaultButton1 + vbInformation, "Aviso!") = vbOK Then
DoCmd.Save ' salva o registro
DoCmd.RunCommand acCmdRefresh ' atualiza a tabela e o formulario
MsgBox " Cadastro salvo com sucesso", vbInformation + vbOKOnly, " Aviso!"

DoCmd.RunCommand acCmdSaveRecord
DoCmd.GoToRecord , , acNewRec
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
Exit Sub

End If
End Sub

Só que gostaria de ao salvar, se na combo cboTipo estiver marcado "Receita" ou "Despesa" os valores vão para esses respectivos campos.

Ex:

Lancei as informações referente a Receita... Preenchi os campos, e na cboTipo, escolhi "Receita". Quando clicar em salvar, o valor inserido vá para o campo Recita na tabela tblFinanceiro. Da mesma forma se escolher na cboTipo Despesa, o valor vá para o campo Despesa...

Desde já agradeço,

Abraço

Francisco

Quer postar só esse formulário de registar os movimentos, e as tabelas em questão ?

Não deve utilizar o nome "Valor" para um campo, antes de continuar mude para por exemplo "txtvalor" para não vir a ter problemas no futuro.
Assim como o campo "Data".

Agardo

Bom dia,

Mas na lista de campos que você passou não existem os campos "Despesa" e "Receita". Apenas o campo "tipo", que é o identificador do lançamento.

Abraço.

Bom dia Assis, Cássio,

Desde já agradeço seu apoio...

Segue link como solicitado...

É uma base simples para controle financeiro pessoal... Mais me ajudará. No Anexo da para compreender. Quando lanço as informações e escolho na combo Tipo= Receita ou Despesa, gostaria que os valores do campo valor, seja salva nos campos Receita ou Despesa. Preciso fazer o saldo e a consulta com os totalizadores para os relatórios... Me enganchei aí...

Mais uma vez obrigado...

Segue,

https://www.4shared.com/rar/IMQjDjWHca/ControleFinanceiro.html

Francisco

Desse link não faço downlods

Ponha aqui no forum

Opa, Assis, segue link no Dropbox...

https://www.dropbox.com/s/87dr1rrk6inf1oj/ControleFinanceiro%20-%20Copia.rar?dl=0

Aqui não tenho o WinZip instalado...

Francisco

Na próxima nao coloque o link completo

Ponha assim
dropbox.com/s/87dr1rrk6inf1oj/ControleFinanceiro%20-%20Copia.rar?dl=0

Corte esta parte abaixo

https://www

Leis do forum

Aguarde vou analisar.

Opa, tranquilo. Obrigado por me orientar

Estou sempre aberto a aprender...

Blz, aguardo sim...

Vocês são uma benção em minha vida..

Francisco

Teste

Muito bom Assis.

Sou grato a Deus pela sua vida...

Ao salvar esta dando erro no .Update. Diz que o ID está duplicado...

Me.txtID = "" Fica amarelo...

A mensagem:

Depois que clica em salvar e mostra mensagem ok...

Erro em tempo de execução '-2147352567 (80020009)':
Você deve digitar um valor no campo 'tblLancamentos.ID'.

Francisco

Está a testar na que eu alterei ou importou os objetos para a sua ?

Aqui no meu 2013 32 Bits posso fazer 10 registos seguidos sem problemas.

Qual o seu Office?
Tem todas as atualizações?

Aguardo

PS espero que alguém teste aqui no fórum e retorne o mesmo acontecimento

Opa, a versão do meu Office é o 2016 e win 10 64bits

Subi na minha base e deu o mesmo erro... Tinha testado no download que baixei...

Na minha base deu o mesmo erro...

Salva a informação, quando clico em apurar, mostra o erro no VB... Mais fica salva as informação.

Francisco

Teste esta ... se não der vai ter que esperar ajuda . Pode ser por o seu ser 64.

Amigo, você é uma benção... Agora foi. Deu erro não...

Desde já lhe agradeço pela sua atenção e ajuda...

Quero aqui mencionar a importância de cada um de vocês da equipe Maximo Access, em se disponibilizar para ajudar muitos que de forma profissional ou não, buscam aprender a programar. O Microsoft Access é complexo de manejar, pois exige conhecimento avançado de Lógica de programação e VB. Contudo, é excelente e de grande importância o trabalho realizado por cada um dos senhores na caminhada de nós iniciantes em programação...

Deus abençoe cada um e suas famílias...

Dou esse problema por resolvido.

Francisco

Obrigado pelo retorno.

Veja a diferença ....

Se resolvido ???? Marque o mesmo

Opa, homem fiquei tão feliz aqui que esqueci de marcar o resolvido...

Pronto feito...

Boa tarde senhores,

Me desculpe reabrir esse tópico. Pois um problema surgiu dentro do mesmo formulário tratado aqui...

É que ao registrar as informações, salva normalmente. Mas quando preciso alterar alguma informação nesse registro, e clico no botão salvar, simplesmente exclui as informações do registro...

Algum dos senhores já viu algo assim...

A base é a mesma...

Desde já agradeço peça ajuda...