Besoin d'aide sur cette Sub

Version imprimable

Bonjour,

Cette sub me répond par une erreur : manque Addnew ou Edit

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
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

Quelle erreur ai-je fait ? Cette sub fait partie d'un module que je peux transmettre si besoin est !
Merci pour vos réponses, Jacques.

28/02/2019, 10h01
madefemere

Bonjour,

Comme il y a boucle, les lignes 38 et 44 doivent être dans la boucle.
Donc avant et après la ligne 41.

Cordialement.
28/02/2019, 14h34
Jsiorat
Citation:

Envoyé par madefemere

Bonjour,

Comme il y a boucle, les lignes 38 et 44 doivent être dans la boucle.
Donc avant et après la ligne 41.

Cordialement.

Meci beaucoup pour cette réponse.
Voilà comment j'ai transformé :
Code:

1 2 3 4 5 6 7 8 9 Do Until oRst.EOF oRst.MoveFirst oRst.Edit oRst!A_Inserer = True ' coché oRst.Update oRst.MoveNext Loop
Le résultat n'est pas bon parce que mon appli ne répond plus et se trouve bloquée
J'ai essayé en positionnant "oRst.Edit" juste après le "Do Until" et avant le "oRst.MoveFirst"; le résultat est identique : appli qui ne répond plus !
28/02/2019, 14h54
madefemere

Bonjour,

Ton .ModeFirst n'est pas à la bonne place. Il doit être à l'extérieur de la boucle. Désolé j'ai pas vu au premier message.

Cordialement.
01/03/2019, 16h29
Jsiorat

Citation:

Envoyé par madefemere

Bonjour,

Ton .ModeFirst n'est pas à la bonne place. Il doit être à l'extérieur de la boucle. Désolé j'ai pas vu au premier message.

Cordialement.

Comme disait Johnny, ... Ah que MERCI.
De plus, j'ai vu dans mon code une grossière erreur dans le Select Case !
j'ai écris "Case 1 Or 3 Or 5" etc. alors que j'aurais du écrire "Case 1, 3 ,5 etc." :roll:
Pour voir le résultat de la modification du .ModeFirst, je dois attendre la fin du mois puisque c'est un échéancier et compte tenu du code ci-dessus ; sauf si je change la date système de mon ordi. :calim2:
07/03/2019, 08h48
volsan

Bonjour,

Sans avoir à changer la date systeme ni attendre le mois prochain tu peux remplacer :

Code:

MoisEncours = Month(Now())

par

Code:

MoisEncours = 4

si c'est le mois Avril que tu veux et changer sa valeur si c'est un autre mois que tu veux tester
08/03/2019, 10h21
Jsiorat

Merci à tous,
effectivement pour des tests je fais MoisEnCours= 4 !
Merci pour la suggestion !