Public Variable (Form vers Form)
Bonjour a tous
Apres une matinee de recherche active, et n'ayant pu trouver une solution a mon probleme, je me tourne vers vous. Il s'agit d'un probleme de "transfert de Public Variable" en deux Forms
Form A - FAuthentification - <Form Classique d'authentification CODE + PWD>
Code:
1
2
3
4
5
6
7
8
9
10
11
12
| Option Compare Database
Option Explicit
Public PubCEntity As String
] ... [
If Me.Password.Value = DLookup("PASSWORD", "ENTITIES", "[ACRONYM] ='" & Me.CboEntity.Value & "'") Then
PubCEntity = Me.CboEntity
DoCmd.Close acForm, "FAuthentification", acSaveYes
DoCmd.OpenForm "MAIN MENU "
Else
MsgBox "Password Invalid. Please Try Again", vbOKOnly, "Invalid Entry!"
Me.Password.SetFocus
End If |
-----------------------------------------------------------------
Form B -FCreationRecord
Code:
1
2
3
4
5
6
7
| Option Compare Database
Option Explicit
Public PubCEntity As String
Public Function LoadCurrentEntity() As String
LoadCurrentEntity = PubCEntity
End Function |
Et lorsque je fais un MsgBox de LoadCurrentEntity, le champ est vide
Ou se situe mon erreur ?
Merci a vous
S.
