Bonjour,
Cette sub me répond par une erreur : manque Addnew ou Edit
Quelle erreur ai-je fait ? Cette sub fait partie d'un module que je peux transmettre si besoin est !
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
46
47
48
49
50
51
52
53 Private Sub EchFinDeMois(JourDuMois) ' La table tblEcheancier : les cases à cocher doivent être FALSE en fin de mois et APRES l'insertion ' de l'échéance si la date du jour est le dernier jour du mois Dim MoisEncours As Integer Dim odb As Database Dim oRst As Recordset Set odb = CurrentDb Set oRst = odb.OpenRecordset("tblEcheancier", dbOpenTable) MoisEncours = Month(Now()) Select Case MoisEncours ' Mois de 31 jours Case 1 Or 3 Or 5 Or 7 Or 8 Or 10 Or 12 If JourDuMois = 31 Then GoTo CocheFalse Else GoTo Fin End If Case 2 ' Mois de Février 28 ou 29 jours Select Case JourDuMois Case 29 GoTo CocheFalse Case 28 GoTo CocheFalse Case Else GoTo Fin End Select Case 4 Or 6 Or 9 Or 11 ' Mois de 30 jours If JourDuMois = 30 Then GoTo CocheFalse Else GoTo Fin End If End Select CocheFalse: oRst.Edit Do Until oRst.EOF oRst.MoveFirst oRst!A_Inserer = True ' coché oRst.MoveNext Loop oRst.Update Fin: '======================== ' Insérer ici l'accès à la procédure d'effacement des échéances arrivant à terme SupprEchATerme '======================== Set oRst = Nothing Set odb = Nothing End Sub
Merci pour vos réponses, Jacques.
Partager