• 0
Sign in to follow this  
Victor.Zero

Problemas com o evento Fechar

Question

Saudações

Criei um botão em meu formulario para fechá-lo, porém necessitei acrescentar nele uma função de desfazer alterações antes de fechar o form.

aí surgiu um problema.

quando eu altero algo, e fecho o formulário, funciona perfeitamente.

Mas quando eu não altero nada, ou seja, simplesmente abro o formulário e clico no botão para fechar ele dá a seguinte mensagem:

"O comando ou ação 'Desfazer' não está disponível agora!".

e então o formulario não fecha.

Private Sub Form_Unload(Cancel As Integer)

Dim i As Integer

Dim sMsg As String

sMsg = "Ao fechar os registros alterados ou inclusos não serão salvo?"

i = MsgBox(sMsg, vbYesNo, "Fechar!")

If i = vbYes Then

DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70

Else

If i = vbNo Then

DoCmd.CancelEvent

Me.Nome_Empregado.SetFocus

End If

End If

End Sub

como posso fechar o fomulário, tendo alterado ou não seu conteúdo?

Share this post


Link to post
Share on other sites

1 answer to this question

Recommended Posts

  • 0

Crie uma caixa de texto invisivel com o nome de txtTst por exemplo e coloque nos campos do formulário na propriedade de evento após atualizar um codigo que altere o valor de txtTxt para 1 por exemplo, dai coloque um comparação (IF) para executar essa parte do código somente se o valor de txtTST estiver como 1, só observe que ao confirmar o salvamento do registro alterre o valor de txtTst para outro diferente de 1 para que ele não tente executar o undo.

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this