[Resolvido]Como evitar esta mensagem do Access

Boa tarde Amigos  

O formulário não abre com o comando abaixo, mas como evitar esta Msg .



O Comando é este.
Private Sub Form_Open(Cancel As Integer)
If IsNull(Me.txtUsuario) Then
   MsgBox "Acesso Negado ", vbExclamation, "Aviso"
    Cancel = True
    Exit Sub
End If

End Sub

Veja qual o Código desse erro, e Ignore ele...


On Error GoTo 1
....comandos a ser executados...

1:
If Err.Number = 2501 Then 'Ignora o Erro 2501
       Err.Number=0
       Exit Sub
   Else

       MsgBox Err.Description
       Exit Sub
   End If


Nesse caso quando o Usuário cancelava a ação, era exibido esse erro 2501 dizendo que o usuário cancelou a ação...

Não diz o codigo

Quando essa mensagem ocorre? quando nao tem usuario Logado?

Experimente trocar Cancel = true

Por: DoCmd.Close acForm, "NomeFormulario"

Nome do formulário que não devera ser aberto se nao tiver usuário logado.


OBs: Mas Ignore o ERRO 2501, que provavelmente é esse o numero dele...

É igual

Como lhe falei la em cima, Coloque assim:


If IsNull(Me.txtUsuario) Then
MsgBox "Acesso Negado ", vbExclamation, "Aviso"
   DoCmd.Close acForm, "Formulário1"
   Exit Sub
End If

Formulário1 é o formulario que nao sera aberto se a afirmação for verdadeira.

Boa tarde Amigos
Mestre Avelino continuou igual

Resolvi assim:

Quando não pede a password de acesso o nome do usuário não é passado para o formulário "MudaPasswordAltera", daí querer evitar que ele abra pois o campo " Me.txtUsuario " está nulo.

Private Sub Form_Open(Cancel As Integer)
If DLookup("[pedepass]", "Proprietario") = "Não" Then
MsgBox "Accesso Negado", vbExclamation, "Aviso"
DoCmd.Close acForm, "MudaPasswordAltera"
Exit Sub
Else
MsgBox "Olá " & Forms!menu!txtNomeUsuario & " !" & Chr(13) & "Digite a Senha Atual, Depois a Nova Senha, e a Confirmação ! ", vbInformation, "Aviso"

End If