COMO RESTRINGIR ACESSO AO MENU?

DARKANIMA90 15/11/2010 17:01:33
#357501
Estou tentando restringir o acesso ao menu,dependendo do nivel de acesso do usuario se for 1 terá acesso a todos os menus se for 2 terá acesso somente ao menu cadastro de alunos,mais quando eu tento acessar o sistema aparece um erro [Ô]Object Required[Ô] e eu não posso acessar o sistema.
Ficaria assim:
Cadastro
...Aluno /somente 1 ou 2
...Funcionarios /somente 1
...Equipamentos /somente 1
Relatorios
...Relatorio de Vendas /somente 1
...Relatoria de Turmas /somente 1

esse é o codigo que aparece o erro em vermelho.
Private Sub btnEntrar_Click()
Dim funcionarios As DAO.Recordset
Dim SQL As String

SQL = [Ô]SELECT * FROM funcionarios WHERE usuario=[ô][Ô] & txtUsuario.Text & [Ô][ô][Ô]
Set funcionarios = bcacademia.OpenRecordset(SQL)

If funcionarios.EOF Then
MsgBox [Ô]Usuário ou Senha inválidos[Ô], vbCritical, [Ô]Atenção[Ô]
ElseIf txtsenha.Text <> funcionarios([Ô]senha[Ô]) Then
MsgBox [Ô]Usuário ou Senha Inválidos[Ô], vbCritical, [Ô]Atenção[Ô]
Else
If funcionarios([Ô]nivelacesso[Ô]) = 1 Then
MsgBox [Ô]Usuário:Gerente[Ô]
[txt-color=#e80000] mnucadastro.Enabled = True [/txt-color]
[txt-color=#e80000] mnurelatorios.Enabled = True[/txt-color]
Else
MsgBox [Ô]Usuário:Atendente[Ô]
[txt-color=#e80000] mnucadastro.Enabled = False[/txt-color]
[txt-color=#e80000] mnurelatorios.Enabled = False[/txt-color]
End If
autenticado = True
Unload Me
End If
End Sub

O que posso fazer pra consertar esse erro?
ESLEYSANCHES 15/11/2010 17:04:59
#357503 Resposta escolhida
Da uma olhadinha no meuEditor (Aonde vc constroi os menus) e veja a propriedade name do cadastro e do relatorios.
veja se está correto.

Cadastro
propriedade name = mnucadastro
Relatorios
propriedade name = mnurelatorios

Esse erro indica que o objeto não existe e ele é requerido. rsrs

Antes de teclar F5 para testar, exclui o executavel atual e tente de novo.
Qualquer coisa poste ae !!!


Abraços !!!
DARKANIMA90 15/11/2010 17:30:52
#357510
Ainda continua dando erros,acabei de ver os names das propriedades do menu editor e está tudo certo.
XXXANGELSXXX 16/11/2010 19:05:51
#357605
Object Required erro 424 é quando ta faltando objeto na sua sintaxe ou string, entao tem algo errado ai nesses menus seus
MARCELO.TREZE 16/11/2010 20:27:34
#357610
vc poder apontar qual linha apresenta o erro?
DARKANIMA90 17/11/2010 00:43:14
#357620
Conseguir resolver o erro,era o seguinte esse primeiro formulario era a senha(frmSenha) depois de verificar no sistema ele bloqueava alguns menus no proximo formulario (frmPrincipal).

o erro no codigo estava aqui:
MsgBox [Ô]Usuário:Gerente[Ô]
mnucadastro.Enabled = True
mnurelatorios.Enabled = True
Else
MsgBox [Ô]Usuário:Atendente[Ô]
mnucadastro.Enabled = False
mnurelatorios.Enabled = False


O correto seria apontar o formulario que ele deveria bloquear o acesso,ficando assim:

MsgBox [Ô]Usuário:Gerente[Ô]
frmPrincipal.mnucadastro.Enabled = True
frmPrincipal.mnurelatorios.Enabled = True
Else
MsgBox [Ô]Usuário:Atendente[Ô]
frmPrincipal.mnucadastro.Enabled = False
frmPrincipal.mnurelatorios.Enabled = False

Valeu pela ajuda.
ESLEYSANCHES 17/11/2010 01:11:50
#357621
kkkkkkkkkkkkkkkkkkkkkkkkkkk
é basicamente aquilo mesmo amigo, ele dizia que não tinha o objeto pois ele buscava no form atual ou seja o login.
Era isso, bastava apontar o form PRINCIPAL.

Não esqueça de encerrar o tópico !!
Abraços !!!
Tópico encerrado , respostas não são mais permitidas
Voltar