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]Ajuda com alteração de valores no formulário

    Compartilhe

    cjsilva2013
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 253
    Registrado : 26/06/2013

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

    Mensagem  cjsilva2013 em Sex 16 Mar 2018, 10:39

    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
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  Silvio em Sex 16 Mar 2018, 11:20

    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.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    cjsilva2013
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 253
    Registrado : 26/06/2013

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

    Mensagem  cjsilva2013 em Sex 16 Mar 2018, 11:29

    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
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  Silvio em Sex 16 Mar 2018, 13:00

    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




    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    cjsilva2013
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 253
    Registrado : 26/06/2013

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

    Mensagem  cjsilva2013 em Sex 16 Mar 2018, 13:49

    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...
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  Silvio em Sex 16 Mar 2018, 19:23

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


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    cjsilva2013
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 253
    Registrado : 26/06/2013

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

    Mensagem  cjsilva2013 em Sex 16 Mar 2018, 21:50

    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!

    cjsilva2013
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 253
    Registrado : 26/06/2013

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

    Mensagem  cjsilva2013 em Seg 19 Mar 2018, 21:41

    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,

      Data/hora atual: Qua 25 Abr 2018, 19:14