[Problemas com o evento Fechar]

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?

[Login e Senha para abrir o formulário]

Saudações

01 tabela com os seguntes campos:

Usuário Senha Permissão

Adm 123456 Cadastro

Claudio 121212 Leitura

e uma consulta com os seguintes critérios

Usuário Senha

[Forms]![frm_Login]![ComboBoxUsuario] [Forms]![frm_Login]![senha]

um formulário de login

com um botão

Private Sub Comando19_Click()

DoCmd.OpenForm "frm_Apresentacao_Arquivo_Central", acNormal, "", "", , acNormal

End Sub

e no formulário frm_Apresentacao_Arquivo_Central

no evento ao abrir

Private Sub Form_Open(Cancel As Integer)

If Me.RecordsetClone.RecordCount = 0 Then

MsgBox "A senha digitada não confere", vbExclamation, "Atenção"

DoCmd.Close acForm, "frm_Login"

DoCmd.OpenForm "frm_Login", acNormal, "", "", , acNormal

DoCmd.Close acForm, "frm_Apresentacao_Arquivo_Central"

End If

End Sub

e no evento Carregar

DoCmd.Close acForm, "frm_Login"

se a senha for correta o frm_Apresentacao_Arquivo_Central abre normalmente

o que posso fazer para quando o usuário for de adm permissão cadastro abra o formulário frm_Apresentacao_Arquivo_Central

e quando for Claudio permissão leitura abra o formulário frm_Apresentacao_Arquivo_Central_Leitura ao invés do formualário frm_Apresentacao_Arquivo_Central

[Login, Senha e Permissões]

Saudações a todos

Como posso fazer um controle de login, senha e permissões para os usuários tipo

Admin - Controle Geral

Usuario Admin - Atualizar, Inserir , Excluir, imprimir relatorios

Usuario Consulta - Apenas consulta os dados sem poder fazer Atualizar, Inserir , Excluir, imprimir relatorios

controle de bloqueio de formularios.

Utilizo o access 2003.