[Resolvido]Função Dirty

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.

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


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