Discussion :

[euromarc]

Bonjour,
petite chose simple pour vous je crois ,mais dur pour moi ;
je voudrais que quand on clic sur un bouton d'un formulaire pour ouvrir un autre formulaire , on me demande un mot de passe ( mot de passe qui ne changera jamais , donc en dur dans le code ) et si le code est bon le formulaire s'ouvre sinon il ouvre un autre formulaire .
par ex un truc comme : open form1 if mot passe = "123" else open form 2

merci de votre aide

[BMABMA]

Voila tu doit créer une zone text appelée dans cet exemple mp et un bouton de nom Commande1 et voila:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub Commande1_Click()
If mp = 123 Then
DoCmd.Close
stDocName = "Form1"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Else
DoCmd.Close
stDocName = "Form2"
DoCmd.OpenForm stDocName, , , stLinkCriteria
End If
End Sub

[@rkane]

Salut,
essaies ça sur un form independant avec un champ "Login" et un champ "Password"... ça marche nickel et sinon j'ai une solution avec une table .

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
 
Option Compare Database
Option Explicit
Private Type sLoginPw
Login As String
PW As String
End Type
Dim LoginPw(3) As sLoginPw ' adapter la dimension au besoin
Private Sub cmdValid_Click()
Dim i As Integer, ok As Boolean
For i = 1 To 100
If Me!Login = LoginPw(i).Login And Me.PW = LoginPw(i).PW Then
ok = True
Exit For
End If
Next i
If ok Then
DoCmd.OpenForm "Administrateur"
DoCmd.Close acForm, Me.Name
Else
MsgBox "LOGIN OU PASSWORD ERRONE ! VEUILLEZ LES RESSAISIR", vbInformation
DoCmd.Close acForm, Me.Name
End If
Erase LoginPw
End Sub
Private Sub Form_Load()
Call Initialisation
End Sub
 
Sub Initialisation()
Dim i As Integer
For i = 1 To 100
LoginPw(1).Login = "toto"
LoginPw(1).PW = "zozo"
LoginPw(2).Login = "titi"
LoginPw(2).PW = "zizi"
LoginPw(3).Login = "tata"
LoginPw(3).PW = "zaza"
'ou alors 1 seul couple Log/pwd
'LoginPw(i).Login = "aaaa"
'LoginPw(i).PW = "zzzz"
Next i
End Sub

bon courage