MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


    [Resolvido]Função Dirty

    anderson_cgms
    anderson_cgms
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Função Dirty Empty [Resolvido]Função Dirty

    Mensagem  anderson_cgms 30/5/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
    anderson_cgms
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Função Dirty Empty Re: [Resolvido]Função Dirty

    Mensagem  anderson_cgms 30/5/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: 19/3/2024, 02:46