Connexion / Déconnexion sous Access
Claude
-
Eric -
Eric -
Bonjour et merci pour votre site qui m'apporte une aide précieuse!
Je souhaitais vous poser une question.
J'ai fait une base Access dont une bonne partie en code VBA.
J'ai trois niveaux d'utilisateur, utilisateur simple, utilisateur avec pouvoir et administrateur.
J'aimerai pouvoir changer de session sans fermer la base donc créer un bouton déconnexion.
Cela est-il possible et si oui comment ?
Merci d'avance pour votre réponse.
Je souhaitais vous poser une question.
J'ai fait une base Access dont une bonne partie en code VBA.
J'ai trois niveaux d'utilisateur, utilisateur simple, utilisateur avec pouvoir et administrateur.
J'aimerai pouvoir changer de session sans fermer la base donc créer un bouton déconnexion.
Cela est-il possible et si oui comment ?
Merci d'avance pour votre réponse.
A voir également:
- Connexion / Déconnexion sous Access
- Gmail connexion - Guide
- Meetic dernière connexion ✓ - Forum Réseaux sociaux
- Acer quick access - Forum Logiciels
- Quick Access service ✓ - Forum PC portable
- France connect connexion - Guide
4 réponses
Personne n'a d'idées ?
C'est très important, même si vous n'est pas sur proposez moi des idées merci beaucoup
claude
C'est très important, même si vous n'est pas sur proposez moi des idées merci beaucoup
claude
J'aimerais bien taider.... sauf que je mis connais pas! Moi et Access... tk, c'était juste pour dire que on ne t'ignore pas mais qu'on est (je suis) ignorant dans ce domaine la! :p
D_d.
"J'ai fais le switch"
D_d.
"J'ai fais le switch"
Pas compris la question mais si tu insistes.
tu as peut-être une fonction de se type.
Public Function Connectiondatabase()
Set Cnx = New ADODB.Connection '
If Connection = True Then 'si la connection est possible
With Cnx
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source =" & cheminbase & " ;User Id=Admin;Password="
On Error Resume Next '.(Précaution)
.Open
'Si la connection n'est pas possible :
If Err.Number <> 0 Then Connection = False
End With
End If
End Function
Public Function Connectiondatabase()
Set Cnx = New ADODB.Connection '
If Connection = True Then 'si la connection est possible
With Cnx
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source =" & chemindetabase & " ;User Id=Admin;Password="
On Error Resume Next '.(Précaution)
.Open
End With
End if
End Function
En jouant avec le Cnx.Open ou.Close ça donne quoi?
Sinon losque tu veux effectuer un nouvel enregistrement tu test si le bouton Deconnect à été cliqué depuis la derniére fois Si oui tu refiltres Simple utilisateur, Mega utilisateur administrateur...
Le problême c'est que je ne comprend même pas la réponse.
tu as peut-être une fonction de se type.
Public Function Connectiondatabase()
Set Cnx = New ADODB.Connection '
If Connection = True Then 'si la connection est possible
With Cnx
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source =" & cheminbase & " ;User Id=Admin;Password="
On Error Resume Next '.(Précaution)
.Open
'Si la connection n'est pas possible :
If Err.Number <> 0 Then Connection = False
End With
End If
End Function
Public Function Connectiondatabase()
Set Cnx = New ADODB.Connection '
If Connection = True Then 'si la connection est possible
With Cnx
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source =" & chemindetabase & " ;User Id=Admin;Password="
On Error Resume Next '.(Précaution)
.Open
End With
End if
End Function
En jouant avec le Cnx.Open ou.Close ça donne quoi?
Sinon losque tu veux effectuer un nouvel enregistrement tu test si le bouton Deconnect à été cliqué depuis la derniére fois Si oui tu refiltres Simple utilisateur, Mega utilisateur administrateur...
Le problême c'est que je ne comprend même pas la réponse.
