[Resolvido]Declaração de Variaveis ( um campo da tabela )

Tabela: Senha

Campos: Logon
       Nivel
       Senha

Formulario Logon

[Procedimento do evento]

Private Sub Comando9_Click()
Dim t As Recordset, d As Database
Set d = CurrentDb
Set t = d.OpenRecordset("SENHA", dbOpenDynaset)
While t.EOF = False
If LOGON = t!LOGON And SENHA = t!SENHA Then
   MsgBox "SENHA CONFIRMADA!  " & LOGON, vbInformation, "AVISO !"
DoCmd.OpenForm "A - MENU"
Me.Visible = False
Exit Sub
Else
t.MoveNext
End If
Wend
MsgBox "LOGON OU SENHA INCORRETOS!", vbCritical, "AVISO !"
End Sub


Eu acrescentei o campo Nivel na tabela: senha

Como declarar o nivel do logon para ser obtido no formulario (A - MENU)



Formulario ( A - MENU )

outra : nome = Usuario_Atual

valor padrão =[Formulários]![LOGON]![LOGON]

Eu Obtenho o Nome do Usuario


Porem necessito obter o Nivel o usuario.

Como fazer ?



******************

Hoje estou usando este comando funciona...

Private Sub Comando328_Click()
On Error GoTo Err_Comando328_Click

Dim stDocName As String

If [Usuario_Atual] = "XX" Then
stDocName = "Rel_1"
DoCmd.OpenReport stDocName, acPreview

Else
MsgBox "Usuario não Autorizado! ", vbInformation, "AVISO !"
Exit_Comando328_Click:
Exit Sub
Err_Comando328_Click:
MsgBox Err.Description
Resume Exit_Comando328_Click
End If
End Sub


Gostaria de usar com o comando abaixo e não funciona ..
Pois não estou conseguindo captar o nivel do usuario na função abaixo:
Poderiam me ajudar

Obrigado


Private Sub Comando328_Click()
On Error GoTo Err_Comando328_Click

Dim stDocName As String

If nivel = "I" Then
stDocName = "Rel_1"
DoCmd.OpenReport stDocName, acPreview

Else
MsgBox "Usuario não Autorizado! ", vbInformation, "AVISO !"
Exit_Comando328_Click:
Exit Sub
Err_Comando328_Click:
MsgBox Err.Description
Resume Exit_Comando328_Click
End If
End Sub

Boa tarde!

tente usar a função nz(Dlookup("seunivel","suatabela","loginuser=form_logon"),0)

este código retornar o nível do seu usuário.

se não conseguir disponibilizar o projeto, para melhor ajuda-lo

abraços

Como faço para pegar o valor da variavel ( nivel ) no formulario ( A - MENU )


o PROCEDIMENTO ESTA NO FORMS LOGON  ---  PROXIMO FORMS (A - MENU )


Private Sub Confirmar_Click()
Dim T As Recordset, d As Database
Set d = CurrentDb
Set T = d.OpenRecordset("SENHA", , dbOpenDynaset)
Dim Nivel
While T.EOF = False
If LOGON = T!LOGON And SENHA = T!SENHA Then
Nivel = T!Nivel
MsgBox "SENHA CONFIRMADA!  " & LOGON, vbInformation, "AVISO !"
DoCmd.OpenForm "A - MENU"
Me.Visible = False
Exit Sub
Else
T.MoveNext
End If
Wend
MsgBox "LOGON OU SENHA INCORRETOS!", vbCritical, "AVISO !"
End Sub



senhores mestres no acess

Alguem poderia me ajudar...


se anexo o projeto

Faça o teste por favor;

Private Sub Confirmar_Click()
Dim T As Recordset, d As Database
Set d = CurrentDb
Set T = d.OpenRecordset("SENHA", , dbOpenDynaset)
Dim Nivel
While T.EOF = False
If LOGON = T!LOGON And SENHA = T!SENHA Then
Nivel = T!Nivel
MsgBox "SENHA CONFIRMADA! " & LOGON, vbInformation, "AVISO !"
DoCmd.OpenForm "A - MENU"
Forms![A - MENU].Campo = "'" & Nivel & "'"
Me.Visible = False
Exit Sub
Else
T.MoveNext
End If
Wend
MsgBox "LOGON OU SENHA INCORRETOS!", vbCritical, "AVISO !"
End Sub

jpaulo

Agora funcionou

Muito obrigado pela diga

Obrigado pelo retorno o forum agradece.

JPAULO

Descupe estar perguntando novamente...

o comando abaixo esta funcionado perfeitamente, o forms logon ... chama o forms ( A- MENU ) a variavel nivel é alimentada..

Forms![A - MENU].Campo = "'" & Nivel & "'"


Porem a casos que o forms ( A - MENU )  e fechado e ao reabri-lo a variavel esta vazio...


Como resolver este problema...

Descupe estar perguntando novamente...

o comando abaixo esta funcionado perfeitamente, o forms logon ... chama o forms ( A- MENU ) a variavel nivel é alimentada..

Forms![A - MENU].Campo = "'" & Nivel & "'"


Porem a casos que o forms ( A - MENU )  e fechado e ao reabri-lo a variavel esta vazio...


Como resolver este problema...


segue script abaixo:

***********

Private Sub Confirmar_Click()
Dim T As Recordset, d As Database
Set d = CurrentDb
Set T = d.OpenRecordset("SENHA", , dbOpenDynaset)
Dim Nivel
While T.EOF = False
If LOGON = T!LOGON And SENHA = T!SENHA Then
Nivel = T!Nivel
MsgBox "SENHA CONFIRMADA! " & LOGON, vbInformation, "AVISO !"
DoCmd.OpenForm "A - MENU"
Forms![A - MENU].Campo = "'" & Nivel & "'"
Me.Visible = False
Exit Sub
Else
T.MoveNext
End If
Wend
MsgBox "LOGON OU SENHA INCORRETOS!", vbCritical, "AVISO !"
End Sub

Desculpe fiz conforme abaixo e não funcionou...

Option Compare Database
 

'variável de escopo público
Public nivelUsuario As Long
 

Public Function Nivel(Optional nivelUsuario As Long = 0) As Long
If Nivel = 0 Then

    'função recebe o valor da variável nivel
    Nivel = nivelUsuario
Else

    'Variável recebe valor do argumento Nivel
    Nivel = nivelUsuario
    End If
End Function

***

como poderia fazer para funcionar?

Desabilitei a funçao dim Nivel Conforme solicitado..

Private Sub Confirmar_Click()
Dim T As Recordset, d As Database
Set d = CurrentDb
Set T = d.OpenRecordset("SENHA", , dbOpenDynaset)
'Dim Nivel
While T.EOF = False
If LOGON = T!LOGON And SENHA = T!SENHA Then
Nivel = T!Nivel
MsgBox "SENHA CONFIRMADA! " & LOGON, vbInformation, "AVISO !"
DoCmd.OpenForm "A - MENU"
Forms![A - MENU].Nivel = "" & Nivel & ""
Me.Visible = False
Exit Sub
Else
T.MoveNext
End If
Wend
MsgBox "LOGON OU SENHA INCORRETOS!", vbCritical, "AVISO !"
End Sub

Alguem poderia me ajudar
a declarar o comando abaixo:

Como uma variavel global.. que o pegasse o valor em qualquer form....

Forms![A - MENU].Campo = "'" & Nivel & "'"

pois o comando acima eu tenho o valor somente no forms ( A - MENU ) ao fecha-lo o valor e perdido...

Eu gostaria de declarar o valor até a saida do programa...



*********

Private Sub Confirmar_Click()
Dim T As Recordset, d As Database
Set d = CurrentDb
Set T = d.OpenRecordset("SENHA", , dbOpenDynaset)
Dim Nivel
While T.EOF = False
If LOGON = T!LOGON And SENHA = T!SENHA Then
Nivel = T!Nivel
MsgBox "SENHA CONFIRMADA! " & LOGON, vbInformation, "AVISO !"
DoCmd.OpenForm "A - MENU"
Forms![A - MENU].Campo = "'" & Nivel & "'"
Me.Visible = False
Exit Sub
Else
T.MoveNext
End If
Wend
MsgBox "LOGON OU SENHA INCORRETOS!", vbCritical, "AVISO !"
End Sub

• [url=t19776-formulario-com-variaveis#top][/url]
  

• [url=post?p=146080&mode=editpost][/url]
  

Bom dia.
Veja se ajuda:

Código:


'Crie um módulo chamado por ex. VariáveisGlobais e declare suas variáveis:
Global StrVar

Me!Forms![A - MENU].Campo = "'" & Nivel & "'" = StrVar

'Não esqueça, antes de mover algum dado para uma variável, você deve zera-la.

StrVar = Null



Código:

Criei a variavel conforme instrução, porem esta ocorrendo erro na lima abaixo:

Me!Forms![A - MENU].Campo = "'" & Nivel & "'" = StrVar

( Não seria os = ( duas vezes no mesmo comando) ?

Fico no aguardo

Obrigado



Ola;

Só hoje vi a nova duvida neste tópico já resolvido.

Você para poder guardar a variável, tem de a colocar num módulo e declarar como Publica.

Exemplo:
Num modulo novo:

Public Nivel As String

Tópicos fundidos. Mesmo autor, mesma dúvida.

Carlos, como ficou esta situação? A dica dos colegas ajudaram?

Aguardamos...

Sim já resolvido

Obrigado