| auteur : Drosera | On défnit le type :
Type Patient
dtmdrc As Date
strIPP As String
strNom As String
strNjf As String
strPre As String
dtmDdn As Date
strGro As String
strRhe As String
strAdr As String
strCpo As String
strVil As String
strTel As String
lngCjt As Long
End Type
|
dans le code on déclare la variable :
Dim udtPatient As Patient
|
et on utilise : udtPatient. dtmdrc = #12 / 10 / 1968 #
udtPatient. strIPP = " 021584 "
udtPatient. strNom = " LA GAFFE "
udtPatient. strNjf = " "
udtPatient. strPre = " Gaston "
|
|
| auteur : Drosera | Pour faire ça il faut faire appel au groupe Administrateur en tant que groupe d'appartenance de l'utilisateur par : DBEngine. Workspaces (0 ). Users (strUser). Groups (" admins " ). Name
|
Si pas d'erreur l'utilisateur appartient au groupe administrateur.
Si Err.Number = 3265 élément non trouvé dans cette collection, l'utilisateur n'est pas administrateur.
Exemple :
Dim esp As Workspace
Dim strUser As String
On Error Resume Next
strUser = Application. CurrentUser
Set esp = DBEngine. Workspaces (0 )
strUser = esp. Users (strUser). Groups (" admins " ). Name
If Err . Number = 3265 Then
ElseIf Err . Number > 0 Then
ElseIf Err . Number = 0 Then
End If
|
|
| auteur : Argyronet | Normalement, un UserName sous Novell est loggé avec son nom de Login Windows... Il faut donc utiliser l'api GetUserName :
Private Declare Function GetUserName Lib " advapi32.dll " Alias " GetUserNameA " (ByVal lpBuffer As String , nSize As Long) As Long
|
Private Function fGetUserName () As String
Dim strUserName As String
strUserName = String (100 , vbNullChar )
GetUserName strUserName, 100
strUserName = Left $(strUserName, InStr (strUserName, vbNullChar ) - 1 )
fGetUserName = strUserName
End Function
|
|
lien : Comment connaître le nom de l'utilisateur connecté ?
|
| auteurs : Tofalu, Lou Pitchoun | Utilisez le code VBA suivant :
With DBEngine. Workspaces (0 )
. Users (. UserName ). NewPassword " ancienmotdepasse " , " nouveaumotdepasse "
End With
|
Voici un exemple complet d'utilisation dans un Formulaire :
Composition du Formulaire :
- 4 zones de textes indépendantes : une pour récupérer l'utilisateur courant, 1 pour l'ancien mdp et 2 pour le nouveau mdp (choix+confirmation).
- 2 boutons : 1 valider et un annuler.
Private Sub CmdAnnuler_Click ()
On Error GoTo err
DoCmd. Close
err :
Select Case err
Case 0
Case Else
MsgBox err . Description & vbLf & err . Source
End Select
End Sub
Private Sub CmdValider_Click ()
On Error GoTo err
If Me. OldPwd = Me. NewPwd Then
MsgBox " Le nouveau mot de passe est identique à l'ancien. " & vbLf & _
" Veuillez choisir un autre mot de passe. " , vbOKOnly + vbExclamation , " Nouveau mot de passe invalide "
Me. NewPwd = " "
Me. ConfNewPwd = " "
DoCmd. GoToControl Me. NewPwd
Else
If Me. NewPwd < > Me. ConfNewPwd Then
MsgBox " Le mot de passe entré en confirmation " & vbLf & _
" ne correspond pas au nouveau mot de passe. " , vbOKOnly + vbExclamation , " Erreur de confirmation "
Me. NewPwd = " "
Me. ConfNewPwd = " "
DoCmd. GoToControl Me. NewPwd
Else
With DBEngine. Workspaces (0 )
. Users (. UserName ). NewPassword Me. OldPwd , Me. NewPwd
End With
MsgBox " Le mot de passe a été changé. " , vbOKOnly + vbInformation , " Confirmation "
DoCmd. Close
End If
End If
err :
Select Case err
Case 3033
MsgBox " L'ancien mot de passe saisi n'est pas valide. " , vbOKOnly + vbExclamation , " Ancien mot de passe incorrect "
Me. OldPwd = " "
Me. NewPwd = " "
Me. ConfNewPwd = " "
DoCmd. GoToControl (" OldPwd " )
Case 0
Case Else
MsgBox err . Description & vbLf & err . Source
End Select
End Sub
Private Sub Form_Load ()
On Error GoTo err
Me. UtilCourant = " Utilisateur courant : " & DBEngine. Workspaces (0 ). UserName
err :
Select Case err
Case 0
Case Else
MsgBox err . Description & vbLf & err . Source
End Select
End Sub
|
Voici ce que cela donne
|
Consultez les autres F.A.Q's
Les sources présentés sur cette pages sont libre de droits,
et vous pouvez les utiliser à votre convenance. Par contre cette page de présentation de ces sources constitue une oeuvre intellectuelle protégée par les droits d'auteurs.
Copyright ©2004
Developpez LLC. Tout droits réservés Developpez LLC.
Aucune reproduction, même partielle, ne peut être faite de ce site et de
l'ensemble de son contenu : textes, documents et images sans l'autorisation
expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à 3 ans
de prison et jusqu'à 300 000 E de dommages et intérets.
Cette page est déposée à la SACD.
|