Discussion :

[simo_fathi]

Bonjour a tous
j'ai une basse de donne Microsoft Access 2010 j'ai fait une moulinette pour convertir une écriture comptable bien sur avec un mot de passe.
Ma question est : comment puis-je créer un code de neuf chiffres qui se met à jour chaque année avec une interface externe Microsoft ACCESS ? c'est moi que je doit remis le code pour les personnes pour les utilisateurs.

merci de vérifier ci-joint.

C'est l’interface ma basse .

Je veux faire un interface comme se lui là .

comptent sur votre total collaboration.

cordialement.

[simo_fathi]

Bonjour a tous
j'ai une basse de donne Microsoft Access 2010 j'ai fait une moulinette pour convertir une écriture comptable bien sur avec un mot de passe.
Ma question est : comment puis-je créer un code de neuf chiffres qui se met à jour chaque année avec une interface externe Microsoft ACCESS ? c'est moi que je doit remis le code pour les personnes pour les utilisateurs.

merci de vérifier ci-joint.

C'est l’interface ma basse .

Je veux faire un interface comme se lui là .

comptent sur votre total collaboration.

cordialement.

Étape 1 : Créer une table pour stocker les codes de sécurité
Ouvrez Microsoft Access et créez une nouvelle base de données.

Créez une table nommée CodesSecurite avec les champs suivants :

Annee (Type : Numérique) : Pour stocker l'année.

Code (Type : Texte) : Pour stocker le code de sécurité.

DateExpiration (Type : Date/Heure) : Pour stocker la date d'expiration du code.

Étape 2 : Créer un formulaire pour saisir le code
Créez un nouveau formulaire nommé frmCodeSecurite.

Ajoutez un champ de texte nommé txtCode pour que l'utilisateur puisse saisir le code.

Ajoutez un bouton nommé btnValider pour valider le code.

Étape 3 : Écrire le code VBA pour gérer la logique
Ouvrez l'éditeur VBA (Alt + F11).

Dans le module du formulaire frmCodeSecurite, ajoutez le code suivant :

Private Sub btnValider_Click()
Dim anneeActuelle As Integer
Dim codeSaisi As String
Dim codeValide As String
Dim dateExpiration As Date

' Récupérer l'année actuelle
anneeActuelle = Year(Date)

' Vérifier si l'année est dans la plage de 10 ans
If anneeActuelle > Year(Date) + 10 Then
MsgBox "La période de 10 ans est écoulée.", vbInformation
Exit Sub
End If

' Récupérer le code saisi par l'utilisateur
codeSaisi = Me.txtCode.Value

' Récupérer le code valide pour l'année en cours
codeValide = DLookup("Code", "CodesSecurite", "Annee = " & anneeActuelle)

' Vérifier si le code saisi est correct
If codeSaisi = codeValide Then
MsgBox "Code valide. Accès autorisé.", vbInformation
Else
MsgBox "Code invalide. Accès refusé.", vbCritical
End If
End Sub

Private Sub Form_Load()
Dim anneeActuelle As Integer
Dim codeValide As String

' Récupérer l'année actuelle
anneeActuelle = Year(Date)

' Vérifier si un code existe pour l'année en cours
codeValide = DLookup("Code", "CodesSecurite", "Annee = " & anneeActuelle)

' Si aucun code n'existe pour l'année en cours, en générer un nouveau
If IsNull(codeValide) Then
' Générer un nouveau code (par exemple, un code aléatoire)
Dim nouveauCode As String
nouveauCode = GenerateRandomCode()

' Calculer la date d'expiration (fin de l'année)
Dim dateExpiration As Date
dateExpiration = DateSerial(anneeActuelle, 12, 31)

' Insérer le nouveau code dans la table
CurrentDb.Execute "INSERT INTO CodesSecurite (Annee, Code, DateExpiration) VALUES (" & anneeActuelle & ", '" & nouveauCode & "', #" & dateExpiration & "#)"

' Afficher le nouveau code à l'utilisateur
MsgBox "Un nouveau code de sécurité a été généré pour l'année " & anneeActuelle & ": " & nouveauCode, vbInformation
End If
End Sub

Private Function GenerateRandomCode() As String
' Générer un code aléatoire de 6 caractères
Dim i As Integer
Dim code As String
Dim characters As String
characters = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"

For i = 1 To 6
code = code & Mid(characters, Int(Rnd() * Len(characters)) + 1, 1)
Next i

GenerateRandomCode = code
End Function

Explication du code :
Form_Load : Lorsque le formulaire est chargé, il vérifie si un code existe pour l'année en cours. Si aucun code n'existe, il en génère un nouveau
et l'insère dans la table CodesSecurite.

btnValider_Click : Lorsque l'utilisateur clique sur le bouton "Valider", le code saisi est comparé au code valide pour l'année en cours.
Si le code est correct, un message de succès est affiché. Sinon, un message d'erreur est affiché.

GenerateRandomCode : Cette fonction génère un code aléatoire de 6 caractères.

Étape 4 : Tester l'application
Ouvrez le formulaire frmCodeSecurite.

Si un nouveau code est généré, il sera affiché dans une boîte de message.

Saisissez le code et cliquez sur "Valider" pour vérifier si le code est correct.

Remarque :
Ce code suppose que vous avez une table CodesSecurite avec les champs Annee, Code, et DateExpiration.

Vous pouvez adapter le code pour qu'il corresponde à vos besoins spécifiques, par exemple en changeant la longueur du code ou en ajoutant
des validations supplémentaires.

Ce code devrait vous permettre de gérer un système de code de sécurité annuel pendant 10 ans dans Microsoft Access.