[Resolvido]Ajuda com alteração de valores no formulário

Bom dia senhores,

Peço ajuda para corrigir um erro referente a alteração de valores no Formulário...

É 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...


dropbox.com/s/f7916f2jffuwih9/ControleFinanceiro%20Assis%20II.zip?dl=0

Bom dia...

Duas coisas:
1- não disse em qual formulário está a ocorrer o problema.
2- o arquivo no dropbox não está compartilhado para download.

Abraços.

Bom dia Silvio,

Desde já obrigado pela atenção...

O form é frmFinanceiro.

Segue novo link:

dropbox.com/s/f7916f2jffuwih9/ControleFinanceiro%20Assis%20II.zip?dl=0

CJSilva...

Crie um botão de comando, coloque nele,o nome " alterar ", depois disso no evento ao clicar coloque esse código abaixo.

Código:

Private Sub bt_alterar_Click()
'Desenvolvido por Silvio para CJSilva / MaximoAccess
'16/03/2018
'A finalidade é alterar qualquer parte do  registro depois de ser salvo.

'inicio da rotina com mensagem de aviso.
 If MsgBox("O ID de entrada de Nº " & Me!txtID & vbCrLf & _
          "NFE Nº :" & Me.ListBox.Column(2) & vbCrLf & _
          "Descriminação :" & Me.ListBox.Column(3) & vbCrLf & _
          "Foi incluído ou alterado. Deseja salvar?", vbQuestion + vbYesNo, "AVISO") = vbYes Then
      DoCmd.RunCommand acCmdSaveRecord
                      ' aqui faço a inserção na tabela tblLancamentos com as alterações feitas no registro.
      Dim DB As Database, rs As Recordset
      Set DB = CurrentDb()
      Set rs = DB.OpenRecordset("tblLancamentos", dbOpenDynaset)
      rs.FindFirst "ID = " & Me!txtID
      rs.Edit
      rs("anodata") = Me.cboAnoData
      rs("data") = Me.txtData
      rs("usuário") = Me.Usuário.Column(0)
      rs("razão") = Me.Razão
      rs("cidade") = Me.Cidade
      rs("uf") = Me.UF
      rs("recibo_nfe") = Me.Recibo_NFe
      rs("descriminacao") = Me.Descriminacao
      rs("tipo") = Me.cboTipo
      rs("valor") = Format(Me.Valor, "0.00")
Else
MsgBox " Registro não foi alterado", vbInformation, "AVISO"
Exit Sub
End If


If Me.cboTipo = "Receita" Then
rs("receita") = Format(Me.Valor, "0.00")
Else
rs("despesa") = Format(Me.Valor, "0.00")
End If

        rs.Update
        rs.Close
        Set rs = Nothing
        Set DB = Nothing
        Me.ListBox.Requery
    ' fim da inserção
     
End Sub

Teste e nos informe.

Abraços

Meu amigo, quem sabe, sabe...

Deu certo. Obrigado...

Se não for pedir muito, você tem algum exemplo nos seus arquivos de como listar na caixa de seleção, só os itens que foram lançados por eno ou mês ao escolher na caixa de combinação?

Não estou conseguindo desenvolver essa função...

Na parte superior do formulário, tem uma caixa de combinação "Mês Lanc" e o "Ano Lanc". Tô apanhando aqui para fazer uma função, qua ao selecionar o ano, liste na caixa, só os lançamentos referentes ao ano ou o mês...

Desde já agradeço mais uma vez...

No que postou aqui no fórum....não vi nada de combobox com esses nomes.

Boa noite, Home viajei... Tem só a referente ao mês...

Segue um base com as duas...

dropbox.com/s/p43rt6hwxgkuyuw/ControleFinanceiro%20Assis_Agora.rar?dl=0

Desde já obrigado Silvio... Deus te abençoe hoje e sempre!

Boa noite, Silvio, vou encerrar esse tópico e abrir outro com a dificuldade apresentada no final deste...

Desde já agradeço sua colaboração. Que foi de grande importância para o projeto...

Abraço,