Discussion :

[Gerpat]

Bonjour ou bonsoir,
Encore une fois, je dois faire appel à vous car je bloque depuis plusieurs jours sur une base de données en Access. Voici le code que j’ai fais dans une base de données en Access 2007, le code à très bien fonctionné et, sans raison apparente, a cesser de fonctionner ; les listes déroulantes ne fonctionnent plus et certains calculs (pour l’âge, en autres) ne fonctionnent plus. Croyant que le problème venait d’Access 2007, j’ai recommencé ma base de données en Access 2003 ; même résultat : tout fonctionnait très bien, et après avoir fermé ma base de données et l’avoir rouverte, les procédures VBA ne fonctionnent plus. J’ai rouvert la base de données avec Access 2010 et elle fonctionne (pour combien de temps ?) mais le club possède Access 2007. Je ne comprends plus rien.
Cette base de données étant importante pour mon club, merci de bien vouloir vous pencher sur mon cas.

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Option Compare Database
Private Sub Form_Current()
'Synchronisation de la liste déroulante
Me.Modifiable27 = ID
'Place le focus sur le champ Date_Naissance
Me.NOM.SetFocus
'Calcul de l'âge
Me.Age = DateDiff("d", [DateNaissance], Date) / 365.25
'Calul de la validité de l'extrait de casier judiciaire
Me.ValiditeExtrait = Me.Date_de_l_extrait_du_casier_judiciaire + 365
'Nombre de jour avant changement de l'extrait du casier judiciaire
Me.Texte58 = DateDiff("d", Date, Me.ValiditeExtrait)
'Calcul du nombre de jours pour remettre la LTS au tireur
Me.Texte143 = DateDiff("d", [LTS reçue au bureau], [LTS remise au tireur])
'Affichage de la catégorie du tireur
If Age < 12 Then
Me.Modifiable116 = "Poussin"
ElseIf Age >= 12 And Age < 14 Then
Me.Modifiable116 = "Benjamin"
ElseIf Age >= 14 And Age < 16 Then
Me.Modifiable116 = "Cadet"
ElseIf Age >= 16 And Age <= 20 Then
Me.Modifiable116 = "Junior"
End If
End Sub
 
Private Sub Modifiable27_AfterUpdate()
' Rechercher l'enregistrement correspondant au contrôle.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[ID] = " & Str(Nz(Me![Modifiable27], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
 
Private Sub Modifiable27_GotFocus()
'Vider le champ de recherche
Me.Modifiable27 = ""
'Dérouler la liste
Me.Modifiable27.Dropdown
End Sub
 
Private Sub Modifiable31_AfterUpdate()
'Insérer la localité après MAJ du champ code postal
Me.Localite_test = Modifiable31.Column(2)
End Sub

[Domi2]

Bonjour,

Deux premières questions :

1) C'est tout le code de ton application ?

2)   tu as bien ça dans ton code (cf ligne 26) ?

Domi2

[Gerpat]

Bonsoir,
Merci beaucoup pour cette prompte réponse. Je viens de vérifier la base de données et je ne vois aucun autre code VBA. Pour la ligne 26, je crois que cela vient de Word car j'ai fait un copier-coller dans Word pour pouvoir coller le tout dans les balises [code] du forum.