Discussion :

[Simon27]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[loufab]

Bonjour,

Non pas vraiment de problème dans ce code à part le me.requery au début. A quoi sert-il ?

Essaye une décompilation puis un compactage en suivant.

Cordialement,

[Tofalu]

Bonjour,

sans oublier de vérifier que les services packs d'office 2000 ont été correctement appliqués.

[Simon27]

Le me.requery, je ne sais pas exactement à quoi il sert. Je suppose que c'était dans le code d'origine sur la FAQ. Dans tous les cas, je ne pense pas que ça gêne...

J'ai vérifié pour les mises à jour, effectivement elles ne sont pas présentes.
Le problème est que Microsoft ne propose plus que la SP3 au téléchargement. Or pour installer cette dernière, il faut que les SP1 et SP2 soient installés...

Bref je ne vois pas de solution. Je vais chercher un peu plus pour ces mises à jour.

Pour la décompilation, comment fait-on ?

J'ai encore perdu des modifs ce matin, ça commence à me gaver sérieusement !

Merci quand même pour votre aide.

[loufab]

Bonjour,
Le SP3 couvre SP1 et 2.

Pour la décompil voir le tuto "options ligne de commande" sur ma page.

Le requery va te rammener à la première fiche de la source.

Cordialement,

[Simon27]

Au temps pour moi, c'est le Service Release 1a (SR-1a) qui manque.
Il est nécessaire pour installer la SP3, et n'est plus disponible sur le site de Microsoft.

Edit : Ca y est je suis à jour.
Je vais essayer la décompilation, je vous tiens au courant.

[Simon27]

Bon bien voilà, après décompilation, ça semble fonctionner.
Tout ceci reste bien mystérieux, mais au moins j'ai pu récupérer mon travail, et apprendre des choses par la même occasion.

Merci beaucoup pour votre aide, ce site est vraiment une mine d'or pour quelqu'un comme moi qui souhaite apprendre !

[loufab]

Donc tu peux tagger Resolu (bouton en bas de la page)