Restrição de acesso a formularios

[Justiceira]

Tenho o seguinte codigo que queria que me bloqueasse os usuarios sem permissão a certos forms,mas ele me retorna sempre acesso negado

'função de acesso
Function VerificarUsuario(ByVal Usua As Long) As String
  Dim varAcesso As String
  Dim TBusuario As Recordset
  Set TBusuario = bancodedados.OpenRecordset("usuario", dbOpenTable)

  TBusuario.Index = "ID"
  TBusuario.Seek "=", (Usua)

  If TBusuario.EOF = False Then
    varAcesso = TBusuario!Padrão
    MsgBox varAcesso
  Else
    varAcesso = ""
  End If
  VerificarUsuario = varAcesso

End Function
'Botão que chama o Form3
Private Sub Cmdpart_Click()
  If varAcesso = "A" Or varAcesso = "F" Then
    Form3.Show
  Else
    MsgBox "Acesso Negado!"
  End If
End Sub

'Botão que chama o Form4
Private Sub Cmdativ_Click()
  If varAcesso = "A" Then
    Form4.Show
  Else
    MsgBox "Acesso Negado!"
  End If
End Sub

'Botão que chama o Form5
Private Sub Cmdfunc_Click()
  If varAcesso = "A" Or varAcesso = "F" Then
    Form5.Show
  Else
    MsgBox "Acesso Negado!"
  End If
End Sub

'Botão que chama FORM6
Private Sub Cmdinscri_Click()
  If varAcesso = "A" Then
    FormSUE6.Show
  Else
    MsgBox "Acesso Negado!"
  End If
End Sub
[/codebox]

[codebox]
Private Sub form_Load()
Dim varAcesso As String
varAcesso = VerificarUsuario(1)
End Sub

alguém pode me ajudar nisso

[kuroi]

justiceira, aquela linha, onde ele diz MsgBox varAcesso. ele esta passando ai e mostrando a mensagem??

você tb pode tentar isso:

Dim varAcesso As String
Dim TBusuario As Recordset
Set TBusuario = bancodedados.OpenRecordset("usuario", dbOpenDynaset)

TBusuario.FindFirst "ID = " & Usua

If Not TBusuario.NoMatch Then
    varAcesso = TBusuario!Padrão
    MsgBox varAcesso
Else
    varAcesso = ""
End If[/code]

Editado Maio 30, 2010 por kuroi

[Anderson Fernandes]

O erro provavelmente esta aqui:

Private Sub form_Load()
 Dim varAcesso As String
 varAcesso = VerificarUsuario(1)
End Sub

a variável varAcesso esta privada ao escopo da sub form_Load. Você deve declara-la no escopo geral do projeto. tipo:

option explicit
Public varAcesso As String

Do jeito que esta atualmente a sub form_load e executada, a varAcesso é carregado porem é destruida no fim da Sub.

ou seja as outras subs não tem acesso a esta variavel.

Recomendo a verificação de acesso na sub form_Load de cada form com restrições e não no botão que chama o form.

t+!

[kuroi]

a variável varAcesso esta privada ao escopo da sub form_Load.

Você deve declara-la no escopo geral do projeto.

bem observado, eu não tinha visto isso.