Requête ou fonction pour créer une liste de nombres de 1 à 28, 29, 30 ou 31 jours selon une date

**possible924** · 16/06/2018, 12h12

Bonjour à tous,
Je souhaiterais créer une liste de nombres de nombres de 1 à 28, 29, 30 ou 31 jours selon une date,
par exemple pour 16/6/2018 je souhaiterais obtenir cette liste sous forme de reqûête ou table de 1 à 30
soit par une requête ou par une fonction.
Merci par avance pour votre réponse
Pierre

**hyperion13** · 16/06/2018, 14h08

Et cette date provient de quel objet ? tbl, form ?

**droggo** · 16/06/2018, 14h19

Bonjour,

Comment ferais-tu ça à la main ?

... Voilà, tu as ton algorithme.

**possible924** · 16/06/2018, 14h31

Envoyé par hyperion13

Et cette date provient de quel objet ? tbl, form ?

Cette date se trouve dans un contrôle de formulaire

**hyperion13** · 16/06/2018, 18h14

Une solution basique
Créer une tbl (T_NumJour) avec un seul champ (NumJour) et de saisir de 1 à 31
Dans ton formulaire créer une zone de texte indépendante (NumJour) et insérer dans sa source contrôle

Code :

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

=Jour(SérieDate(Année([MonChampDate]);Mois([MonChampDate])+1;1)-1)

Créer une req

Code :

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

SELECT T_NumJour.NumJour FROM T_NumJour WHERE T_NumJour.NumJour Between 1 And [Forms]![MonForm]![NumJour]));

EDIT : 20:58 Sinon j'ai un truc plus sympa
Consiste via évènement sur click d'un btn de commande dans ton formulaire de créer une table temporaire (T_NumJour_tmp) avec un seul champ (idNum) et de l'alimenter de 1 à 28, 29, 30 ou 31, calculé avec Day(DateSerial(Year([dateTbl1]),Month([dateTbl1])+1,1)-1)

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
Private Sub EXEC_SQL_Click()
On Error GoTo Err_EXEC_SQL_Click
    DoCmd.SetWarnings False
    Dim dbs As Database
    Dim qdf As DAO.QueryDef
    Dim tdf As DAO.TableDef
    Dim fld As DAO.Field
    Dim prp As DAO.Property
    Dim ind As DAO.Index
    Dim rst As DAO.Recordset, rst1 As DAO.Recordset
    Dim SqlStr As String
    Dim i As Long
 
    Set dbs = CurrentDb()
    Set tdf = dbs.CreateTableDef("T_NumJour_tmp")
    With tdf
        .Fields.Append .CreateField("idNum", dbLong)
    End With
    tdf.Fields("idNum").Attributes = dbAutoIncrField
    dbs.TableDefs.Append tdf
    Set ind = tdf.CreateIndex("idNum")
    Set fld = ind.CreateField("idNum", dbLong)
    ind.Fields.Append fld
    ind.Primary = True
    tdf.Indexes.Append ind
    tdf.Indexes.Refresh
    Set tdf = Nothing
    SqlStr = "SELECT Table1.idTbl1, Table1.dateTbl1, Day(DateSerial(Year([dateTbl1]),Month([dateTbl1])+1,1)-1) AS DernierJour FROM Table1 WHERE idTbl1 =" & Me!idTbl1
    Set rst = dbs.OpenRecordset(SqlStr, dbOpenDynaset)
    Set tdf = dbs.TableDefs("T_NumJour_tmp")
    Set rst1 = tdf.OpenRecordset(dbOpenDynaset)
    For i = 1 To rst!DernierJour
    rst1.AddNew
    rst1.Fields("idNum") = i
    rst1.Update
    Next i
    DoCmd.SetWarnings True
    RefreshDatabaseWindow
Exit_EXEC_SQL_Click:
    Set rst1 = Nothing
    Set rst = Nothing
    Set dbs = Nothing
    Exit Sub
Err_EXEC_SQL_Click:
    MsgBox Err.Description
    Resume Exit_EXEC_SQL_Click
End Sub

Code :

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

1
2
3
4
5
6
Private Sub Form_Close()
    DoCmd.SetWarnings False
    DoCmd.DeleteObject acTable, "T_NumJour_tmp"
    DoCmd.SetWarnings True
    RefreshDatabaseWindow
End Sub

**possible924** · 17/06/2018, 11h45

Envoyé par hyperion13

Une solution basique
Créer une tbl (T_NumJour) avec un seul champ (NumJour) et de saisir de 1 à 31
Dans ton formulaire créer une zone de texte indépendante (NumJour) et insérer dans sa source contrôle

Code :

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

=Jour(SérieDate(Année([MonChampDate]);Mois([MonChampDate])+1;1)-1)

Créer une req

Code :

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

SELECT T_NumJour.NumJour FROM T_NumJour WHERE T_NumJour.NumJour Between 1 And [Forms]![MonForm]![NumJour]));

EDIT : 20:58 Sinon j'ai un truc plus sympa
Consiste via évènement sur click d'un btn de commande dans ton formulaire de créer une table temporaire (T_NumJour_tmp) avec un seul champ (idNum) et de l'alimenter de 1 à 28, 29, 30 ou 31, calculé avec Day(DateSerial(Year([dateTbl1]),Month([dateTbl1])+1,1)-1)

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
Private Sub EXEC_SQL_Click()
On Error GoTo Err_EXEC_SQL_Click
    DoCmd.SetWarnings False
    Dim dbs As Database
    Dim qdf As DAO.QueryDef
    Dim tdf As DAO.TableDef
    Dim fld As DAO.Field
    Dim prp As DAO.Property
    Dim ind As DAO.Index
    Dim rst As DAO.Recordset, rst1 As DAO.Recordset
    Dim SqlStr As String
    Dim i As Long
 
    Set dbs = CurrentDb()
    Set tdf = dbs.CreateTableDef("T_NumJour_tmp")
    With tdf
        .Fields.Append .CreateField("idNum", dbLong)
    End With
    tdf.Fields("idNum").Attributes = dbAutoIncrField
    dbs.TableDefs.Append tdf
    Set ind = tdf.CreateIndex("idNum")
    Set fld = ind.CreateField("idNum", dbLong)
    ind.Fields.Append fld
    ind.Primary = True
    tdf.Indexes.Append ind
    tdf.Indexes.Refresh
    Set tdf = Nothing
    SqlStr = "SELECT Table1.idTbl1, Table1.dateTbl1, Day(DateSerial(Year([dateTbl1]),Month([dateTbl1])+1,1)-1) AS DernierJour FROM Table1 WHERE idTbl1 =" & Me!idTbl1
    Set rst = dbs.OpenRecordset(SqlStr, dbOpenDynaset)
    Set tdf = dbs.TableDefs("T_NumJour_tmp")
    Set rst1 = tdf.OpenRecordset(dbOpenDynaset)
    For i = 1 To rst!DernierJour
    rst1.AddNew
    rst1.Fields("idNum") = i
    rst1.Update
    Next i
    DoCmd.SetWarnings True
    RefreshDatabaseWindow
Exit_EXEC_SQL_Click:
    Set rst1 = Nothing
    Set rst = Nothing
    Set dbs = Nothing
    Exit Sub
Err_EXEC_SQL_Click:
    MsgBox Err.Description
    Resume Exit_EXEC_SQL_Click
End Sub

Code :

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

1
2
3
4
5
6
Private Sub Form_Close()
    DoCmd.SetWarnings False
    DoCmd.DeleteObject acTable, "T_NumJour_tmp"
    DoCmd.SetWarnings True
    RefreshDatabaseWindow
End Sub

Merci pour la réponse très complète.
J'ai fait la première solution qui marche bien
Mais le truc "très sympa" me tente beaucoup, mais j'ai un souci,
je reçois le message d'erreur ci joint : Nom : Capture.PNG
Affichages : 152
Taille : 12,7 Ko

Nom : Capture.PNG
Affichages : 152
Taille : 12,7 Ko

Mes compétences en VBA ne sont pas assez élevées pour réparer le problème.

Peut être as tu la solution
Merci par avance
Pierre

**hyperion13** · 17/06/2018, 12h30

C'est normal. Ton form accueil devrait avoir pour source la Table1 composée de idTbl1, dateTbl1 et numjour. Après tu adaptes fonction de tes besoins.

EDIT : 14:02 si tu renommes ta tbl et tes champs, n'oublies pas d'adapter la L28 (SqlStr) du troisième code et éventuellement L32 (For i = 1 ...).

**possible924** · 18/06/2018, 12h33

Merci pour ta réponse,
j'ai fait les modifs suggérées et ça marche très bien.
Je vais l'adapter à mon application.
Merci pour ton aide
Pierre

Requête ou fonction pour créer une liste de nombres de 1 à 28, 29, 30 ou 31 jours selon une date

Requêtes et SQL.

Discussions similaires

Partager

Partager