Discussion :

[maguy27]

salut a tous!!!

Voila je vous explique mon problème, je dois (pour mes cours) créer une base de donnée sous access pour gérer un annuaire téléphonique avec numero de tel adresse mail et différentes choses. Je voudrais aussi avoir un menu pour les utilisateurs et un menu administrateur donc que certains champs apparaissent ou pas selon qui va voir la base. Mon gros soucis dans tout ca c'est que je ne connait pas très bien access et que je ne sais pas par ou commencé. Je demande que quelqu'un fasse mon truc mais simplement des infos afin que je sache par ou commencé.
Merci de votre aide car j'en aies besoin.

[milia]

Oula vu que tu commence et que tu t'y connais pas dutout, personnellement je te conseillerais d'aller acheter un livre Access (qui te permettra de connaître le minimum de base pour commencer son projet) et de commencer avec ça. Il faut pas commencer un projet tête baissé, il faut acquérir avant un minimum d'information.

Bon courage.

[@rkane]

salut ,
moi je verrais un menu d'accueil, avec un bouton pour acceder a l'annuaire et un bouton pour acceder un menu admin, en passant par un form "LogAdmin" . pour ça tu crée un petit formulaire en mode independant er tu colles ce script dans le code :

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(100) As sLoginPw      ' adapter la quantité de logins selon le 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" 'Formulaire à ouvrir
DoCmd.Close acForm, Me.Name       'Fermeture LogAdmin
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 = "1234"
LoginPw(2).Login = "kiki"
LoginPw(2).PW = "2345"
LoginPw(3).Login = "Dede"
LoginPw(3).PW = "3456"
'ou alors 1 seul couple Log/pwd
'LoginPw(i).Login = "aaaa"
'LoginPw(i).PW = "zzzz"
Next i
End Sub

Mais comme t'as dit Milia , potasses un peu la question avec un bouquin, sinon tu vas ramer grave

[maguy27]

merci pour vos réponses. Je sais qu'il faut que je potases le sujet c'est pourquoi j'aies éffectivement acheté un bouquin je voulais juste avoir l'idée de base car je voyais pas comment je pouvais lancer mon truc mais avec les infos que vous m'avez apporté je vais pouvoir commencer.

[morobaboumar]

salut ,
moi je verrais un menu d'accueil, avec un bouton pour acceder a l'annuaire et un bouton pour acceder un menu admin, en passant par un form "LogAdmin" . pour ça tu crée un petit formulaire en mode independant er tu colles ce script dans le code :

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(100) As sLoginPw      ' adapter la quantité de logins selon le 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" 'Formulaire à ouvrir
DoCmd.Close acForm, Me.Name       'Fermeture LogAdmin
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 = "1234"
LoginPw(2).Login = "kiki"
LoginPw(2).PW = "2345"
LoginPw(3).Login = "Dede"
LoginPw(3).PW = "3456"
'ou alors 1 seul couple Log/pwd
'LoginPw(i).Login = "aaaa"
'LoginPw(i).PW = "zzzz"
Next i
End Sub

Bonsoir @rkane !
Personnellement, votre code m’intéresse pour ouvrir ma BD.
Comment dois je procéder ?
Cordialement.

[tee_grandbois]

bonjour morobaboumar,
quand on ressort un post vieux de 13 ans, il est préférable de le signaler dès le départ dans l'énoncé du message, sinon cela risque de perturber le sens des réponses ...

[morobaboumar]

bonjour morobaboumar,
quand on ressort un post vieux de 13 ans, il est préférable de le signaler dès le départ dans l'énoncé du message, sinon cela risque de perturber le sens des réponses (voir celle que Jeanno45 a faite à l'auteur d'origine du post) ...

Bonsoir professeur tee_grandbois !
Message compris. Je vais y songer.
Cordialement.