Cette partie de code montre comment affecter un mot de passe a une base Access .MDB
Et écrire un module qui correspond à cette sécurité.
Source / Exemple :
Sub Main()
Source = "gc.mdb" (nom base de donnée)
passwords = Array("banana", "master", "ricky", "ibis", "marsouin") (tous les mots de passe que tu a déclare si un jour tu veux change)
For i = 0 To UBound(passwords)
On Error Resume Next
mpasse = ";pwd=" & passwords(i)
Set base_de_donnees = OpenDatabase(Source, False, False, mpasse)
If Err.Number <> 3031 Then
Exit For
End If
Next
If Err.Number <> 0 Then
Select Case Err.Number
Case 3024
MsgBox "La base de données est Introuvable dans le Chemin spécifiée"
Case 3045
MsgBox "La base de données ne peut etre ouverte en ce moment " & vbCrLf & " car elle est ouverte en mode exclusif par un autre utilisateur "
End Select
Exit Sub
End If
menugc.Show (appelle du menu)
End Sub
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.