Base corrompue à plusieurs reprises
Bonjour,
Ca fait plusieurs fois que je perds certaines fonctionnalités de ma base suite à des modifications des formulaires (+ code VBA associé).
Normalement j'ai un formulaire d'identification qui se charge au démarrage de ma base. Quand le phénomène se produit, non seulement il ne se charge pas, mais je ne parviens même pas à l'ouvrir manuellement.
Je n'ai pas trouvé d'autre solution que de restaurer la copie de sauvegarde, c'est tout de même assez fâcheux !
Voici le code associé à mon formulaire (issu de la FAQ) :
Code:
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
|
Private Sub ButConnexion_Click()
Me.Requery
Dim SQL, User_id, User_groupe As String
Dim rs As DAO.Recordset
Static i As Byte
'Chargement de la liste des intervenants
SQL = "SELECT * FROM INTERVENANTS WHERE INITIALES = '" & Me.CmbUtilisateur & "' AND PASSWORD ='" & Me.TxtPassword & "';"
Set rs = CurrentDb.OpenRecordset(SQL)
'Vérification mot de passe
If Not rs.EOF Then
User_id = rs("INITIALES").Value
User_groupe = rs("GROUPE").Value
DoCmd.OpenForm "Menu", acNormal, , , , acWindowNormal, User_id
DoCmd.Close acForm, "IDENTIFICATION"
Else
MsgBox "(Identifiant, Mot de Passe) incorrect ", vbInformation, "Connexion"
i = i + 1
End If
'Dépassement du nombre de tentatives
If i = 3 Then
MsgBox "Vous avez dépassé le nombre de tentatives autorisés", vbCritical
DoCmd.Quit
End If
End Sub |
J'ajoute que seul ce formulaire ne fonctionne plus. Est-ce que le DAO (que je ne maîtrise pas vraiment) peut être la cause ?
Merci pour votre aide
