[Resolvido]Formulario ( com variaveis )

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...

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