MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Função Dirty

    Compartilhe

    anderson_cgms
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 247
    Registrado : 26/03/2012

    [Resolvido]Função Dirty

    Mensagem  anderson_cgms em Sex 30 Maio 2014, 15:31

    Bom dia a todos colegas,

    estou utilizando o código abaixo para instruir usuários a opção de salvar ou não um registro o código funciona perfeitamente porém se eu não ter feito alteração ou inclusão o mesmo fica inativo e gostaria que caso não houvesse alteração a segunda parte funciona-se do mesmo jeito.


    Private Sub btVoltarlista_Click()
    On Error Resume Next

    If Me.Dirty Then
    If MsgBox("Houve alteração ou inclusão de registro, Deseja salvar?", vbExclamation + vbYesNo, Me.Caption) = vbYes Then
       
       Me.btSalvarProduto.SetFocus

    Else
       Me.Undo
       DoCmd.CancelEvent
       Me.Lista_de_produtos.Visible = True
       Me.Lista53.SetFocus
       Me.Rótulo41.Visible = False
       Me.txtPesquisa.Visible = False
       Me.txtPesquisa.Enabled = False
       Me.Especificação_do_produto.Visible = False
       Me.Dados_NFe.Visible = False
       Me.Histórico_de_compras.Visible = False
       Me.Histórico_de_vendas.Visible = False
    End If
    End If
    End Sub


    desde já agradeço.

    anderson_cgms
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 247
    Registrado : 26/03/2012

    Re: [Resolvido]Função Dirty

    Mensagem  anderson_cgms em Sex 30 Maio 2014, 18:29

    Não sei se fiz do modo correto, mas funcionou com um ELSE (caso alguém saiba uma maneira mais enxuta ou saiba se isso pode ocasionar algum tipo de erro peço que me avise...)  Razz  tongue 


    Segue como ficou, a parte em vermelho foi adicionada para resolver o tópico:

    Private Sub btVoltarlista_Click()
    On Error Resume Next

    If Me.Dirty Then
           If MsgBox("Houve alteração ou inclusão de registro, Deseja salvar?", vbExclamation + vbYesNo, Me.Caption) = vbYes Then
               
               Me.btSalvarProduto.SetFocus
           
           Else
               Me.Undo
               DoCmd.CancelEvent
               Me.Lista_de_produtos.Visible = True
               Me.Lista53.SetFocus
               Me.Rótulo41.Visible = False
               Me.txtPesquisa.Visible = False
               Me.txtPesquisa.Enabled = False
               Me.Especificação_do_produto.Visible = False
               Me.Dados_NFe.Visible = False
               Me.Histórico_de_compras.Visible = False
               Me.Histórico_de_vendas.Visible = False
           End If
       
    Else
           Me.Undo
           DoCmd.CancelEvent
           Me.Lista_de_produtos.Visible = True
           Me.Lista53.SetFocus
           Me.Rótulo41.Visible = False
           Me.txtPesquisa.Visible = False
           Me.txtPesquisa.Enabled = False
           Me.Especificação_do_produto.Visible = False
           Me.Dados_NFe.Visible = False
           Me.Histórico_de_compras.Visible = False
           Me.Histórico_de_vendas.Visible = False

    End If
    End Sub

      Data/hora atual: Dom 11 Dez 2016, 00:19