créer automatiquement les dates manquantes dans un intervalle
5 réponses
access13090
Bonjour à tou(te)s
Dans une table, j'ai 2 champs de type date qui forment un intervalle du
style Date de début et Date de fin.
Je voudrais savoir s'il est possible de demander à Access de calculer
ou de créer automatiquement les dates manquantes de cet intervalle pour
ensuite les copier dans une autre table ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Gloops
Bonjour,
Une fois que la question sera complète, il sera facile d'y répondre : ) __________________________________________ access13090 a écrit, le 27/07/2008 10:32 :
Bonjour à tou(te)s
Dans une table, j'ai 2 champs de type date qui forment un intervalle du style Date de début et Date de fin.
Je voudrais savoir s'il est possible de demander à Access de calculer ou de créer automatiquement les dates manquantes de cet intervalle pour ensuite les copier dans une autre table ?
Merci d'avance
Bonjour,
Une fois que la question sera complète, il sera facile d'y répondre : )
__________________________________________
access13090 a écrit, le 27/07/2008 10:32 :
Bonjour à tou(te)s
Dans une table, j'ai 2 champs de type date qui forment un intervalle du
style Date de début et Date de fin.
Je voudrais savoir s'il est possible de demander à Access de calculer ou
de créer automatiquement les dates manquantes de cet intervalle pour
ensuite les copier dans une autre table ?
Une fois que la question sera complète, il sera facile d'y répondre : ) __________________________________________ access13090 a écrit, le 27/07/2008 10:32 :
Bonjour à tou(te)s
Dans une table, j'ai 2 champs de type date qui forment un intervalle du style Date de début et Date de fin.
Je voudrais savoir s'il est possible de demander à Access de calculer ou de créer automatiquement les dates manquantes de cet intervalle pour ensuite les copier dans une autre table ?
Merci d'avance
Fabien
Gloops a écrit :
Bonjour,
Une fois que la question sera complète, il sera facile d'y répondre :) __________________________________________ access13090 a écrit, le 27/07/2008 10:32 :
Bonjour à tou(te)s
Dans une table, j'ai 2 champs de type date qui forment un intervalle du style Date de début et Date de fin.
Je voudrais savoir s'il est possible de demander à Access de calculer ou de créer automatiquement les dates manquantes de cet intervalle pour ensuite les copier dans une autre table ?
Merci d'avance
Salut, en attendant avec quelque chose comme
Sub complete(Date_debut As Date, date_fin As Date) Dim I As Integer Dim Rst As DAO.Recordset Set Rst = currentdb.OpenRecordset("Tabledestination") For I = 0 To diffdate("d", Date_debut, date_fin) Rst.AddNew Rst("Datecalcul") = DateAdd("d", I, Date_debut) Rst.Update Next I Rst.Close Set Rst = Nothing End Sub @+
Gloops a écrit :
Bonjour,
Une fois que la question sera complète, il sera facile d'y répondre :)
__________________________________________
access13090 a écrit, le 27/07/2008 10:32 :
Bonjour à tou(te)s
Dans une table, j'ai 2 champs de type date qui forment un intervalle
du style Date de début et Date de fin.
Je voudrais savoir s'il est possible de demander à Access de calculer
ou de créer automatiquement les dates manquantes de cet intervalle
pour ensuite les copier dans une autre table ?
Merci d'avance
Salut,
en attendant avec quelque chose comme
Sub complete(Date_debut As Date, date_fin As Date)
Dim I As Integer
Dim Rst As DAO.Recordset
Set Rst = currentdb.OpenRecordset("Tabledestination")
For I = 0 To diffdate("d", Date_debut, date_fin)
Rst.AddNew
Rst("Datecalcul") = DateAdd("d", I, Date_debut)
Rst.Update
Next I
Rst.Close
Set Rst = Nothing
End Sub
@+
Une fois que la question sera complète, il sera facile d'y répondre :) __________________________________________ access13090 a écrit, le 27/07/2008 10:32 :
Bonjour à tou(te)s
Dans une table, j'ai 2 champs de type date qui forment un intervalle du style Date de début et Date de fin.
Je voudrais savoir s'il est possible de demander à Access de calculer ou de créer automatiquement les dates manquantes de cet intervalle pour ensuite les copier dans une autre table ?
Merci d'avance
Salut, en attendant avec quelque chose comme
Sub complete(Date_debut As Date, date_fin As Date) Dim I As Integer Dim Rst As DAO.Recordset Set Rst = currentdb.OpenRecordset("Tabledestination") For I = 0 To diffdate("d", Date_debut, date_fin) Rst.AddNew Rst("Datecalcul") = DateAdd("d", I, Date_debut) Rst.Update Next I Rst.Close Set Rst = Nothing End Sub @+
3stone
Salut,
"Fabien" | >> | >> Dans une table, j'ai 2 champs de type date qui forment un intervalle | >> du style Date de début et Date de fin. | >> | >> Je voudrais savoir s'il est possible de demander à Access de calculer | >> ou de créer automatiquement les dates manquantes de cet intervalle | >> pour ensuite les copier dans une autre table ? | >> | >> Merci d'avance | >> | >> | > | Salut, | en attendant avec quelque chose comme | | Sub complete(Date_debut As Date, date_fin As Date) | Dim I As Integer | Dim Rst As DAO.Recordset | Set Rst = currentdb.OpenRecordset("Tabledestination") | For I = 0 To diffdate("d", Date_debut, date_fin) | Rst.AddNew | Rst("Datecalcul") = DateAdd("d", I, Date_debut) | Rst.Update | Next I | Rst.Close | Set Rst = Nothing | End Sub
On peut même simplifier la boucle... en bouclant directement entre les deux dates... et même y ajouter un step x
Sub complete(Date_debut As Date, date_fin As Date) Dim d As date Dim Rst As DAO.Recordset Set Rst = currentdb.OpenRecordset("Tabledestination") For d = Date_debut To Date_fin Rst.AddNew Rst("Datecalcul") = d Rst.Update Next I Rst.Close Set Rst = Nothing End Sub
"Fabien"
| >>
| >> Dans une table, j'ai 2 champs de type date qui forment un intervalle
| >> du style Date de début et Date de fin.
| >>
| >> Je voudrais savoir s'il est possible de demander à Access de calculer
| >> ou de créer automatiquement les dates manquantes de cet intervalle
| >> pour ensuite les copier dans une autre table ?
| >>
| >> Merci d'avance
| >>
| >>
| >
| Salut,
| en attendant avec quelque chose comme
|
| Sub complete(Date_debut As Date, date_fin As Date)
| Dim I As Integer
| Dim Rst As DAO.Recordset
| Set Rst = currentdb.OpenRecordset("Tabledestination")
| For I = 0 To diffdate("d", Date_debut, date_fin)
| Rst.AddNew
| Rst("Datecalcul") = DateAdd("d", I, Date_debut)
| Rst.Update
| Next I
| Rst.Close
| Set Rst = Nothing
| End Sub
On peut même simplifier la boucle... en bouclant directement
entre les deux dates... et même y ajouter un step x
Sub complete(Date_debut As Date, date_fin As Date)
Dim d As date
Dim Rst As DAO.Recordset
Set Rst = currentdb.OpenRecordset("Tabledestination")
For d = Date_debut To Date_fin
Rst.AddNew
Rst("Datecalcul") = d
Rst.Update
Next I
Rst.Close
Set Rst = Nothing
End Sub
"Fabien" | >> | >> Dans une table, j'ai 2 champs de type date qui forment un intervalle | >> du style Date de début et Date de fin. | >> | >> Je voudrais savoir s'il est possible de demander à Access de calculer | >> ou de créer automatiquement les dates manquantes de cet intervalle | >> pour ensuite les copier dans une autre table ? | >> | >> Merci d'avance | >> | >> | > | Salut, | en attendant avec quelque chose comme | | Sub complete(Date_debut As Date, date_fin As Date) | Dim I As Integer | Dim Rst As DAO.Recordset | Set Rst = currentdb.OpenRecordset("Tabledestination") | For I = 0 To diffdate("d", Date_debut, date_fin) | Rst.AddNew | Rst("Datecalcul") = DateAdd("d", I, Date_debut) | Rst.Update | Next I | Rst.Close | Set Rst = Nothing | End Sub
On peut même simplifier la boucle... en bouclant directement entre les deux dates... et même y ajouter un step x
Sub complete(Date_debut As Date, date_fin As Date) Dim d As date Dim Rst As DAO.Recordset Set Rst = currentdb.OpenRecordset("Tabledestination") For d = Date_debut To Date_fin Rst.AddNew Rst("Datecalcul") = d Rst.Update Next I Rst.Close Set Rst = Nothing End Sub
"Fabien" | >> | >> Dans une table, j'ai 2 champs de type date qui forment un intervalle | >> du style Date de début et Date de fin. | >> | >> Je voudrais savoir s'il est possible de demander à Access de calculer | >> ou de créer automatiquement les dates manquantes de cet intervalle | >> pour ensuite les copier dans une autre table ? | >> | >> Merci d'avance | >> | >> | > | Salut, | en attendant avec quelque chose comme | | Sub complete(Date_debut As Date, date_fin As Date) | Dim I As Integer | Dim Rst As DAO.Recordset | Set Rst = currentdb.OpenRecordset("Tabledestination") | For I = 0 To diffdate("d", Date_debut, date_fin) | Rst.AddNew | Rst("Datecalcul") = DateAdd("d", I, Date_debut) | Rst.Update | Next I | Rst.Close | Set Rst = Nothing | End Sub
On peut même simplifier la boucle... en bouclant directement entre les deux dates... et même y ajouter un step x
Sub complete(Date_debut As Date, date_fin As Date) Dim d As date Dim Rst As DAO.Recordset Set Rst = currentdb.OpenRecordset("Tabledestination") For d = Date_debut To Date_fin Rst.AddNew Rst("Datecalcul") = d Rst.Update Next I Rst.Close Set Rst = Nothing End Sub
Salut 3stone, ben ça alors !!! je pensais pas que VBA pouvait faire ça. Et encore une astuce dans ma boite à outils : merci 3stone @+
3stone a écrit :
Salut,
"Fabien"
| >>
| >> Dans une table, j'ai 2 champs de type date qui forment un intervalle
| >> du style Date de début et Date de fin.
| >>
| >> Je voudrais savoir s'il est possible de demander à Access de calculer
| >> ou de créer automatiquement les dates manquantes de cet intervalle
| >> pour ensuite les copier dans une autre table ?
| >>
| >> Merci d'avance
| >>
| >>
| >
| Salut,
| en attendant avec quelque chose comme
|
| Sub complete(Date_debut As Date, date_fin As Date)
| Dim I As Integer
| Dim Rst As DAO.Recordset
| Set Rst = currentdb.OpenRecordset("Tabledestination")
| For I = 0 To diffdate("d", Date_debut, date_fin)
| Rst.AddNew
| Rst("Datecalcul") = DateAdd("d", I, Date_debut)
| Rst.Update
| Next I
| Rst.Close
| Set Rst = Nothing
| End Sub
On peut même simplifier la boucle... en bouclant directement
entre les deux dates... et même y ajouter un step x
Sub complete(Date_debut As Date, date_fin As Date)
Dim d As date
Dim Rst As DAO.Recordset
Set Rst = currentdb.OpenRecordset("Tabledestination")
For d = Date_debut To Date_fin
Rst.AddNew
Rst("Datecalcul") = d
Rst.Update
Next I
Rst.Close
Set Rst = Nothing
End Sub
Salut 3stone,
ben ça alors !!! je pensais pas que VBA pouvait faire ça.
Et encore une astuce dans ma boite à outils : merci 3stone
@+
"Fabien" | >> | >> Dans une table, j'ai 2 champs de type date qui forment un intervalle | >> du style Date de début et Date de fin. | >> | >> Je voudrais savoir s'il est possible de demander à Access de calculer | >> ou de créer automatiquement les dates manquantes de cet intervalle | >> pour ensuite les copier dans une autre table ? | >> | >> Merci d'avance | >> | >> | > | Salut, | en attendant avec quelque chose comme | | Sub complete(Date_debut As Date, date_fin As Date) | Dim I As Integer | Dim Rst As DAO.Recordset | Set Rst = currentdb.OpenRecordset("Tabledestination") | For I = 0 To diffdate("d", Date_debut, date_fin) | Rst.AddNew | Rst("Datecalcul") = DateAdd("d", I, Date_debut) | Rst.Update | Next I | Rst.Close | Set Rst = Nothing | End Sub
On peut même simplifier la boucle... en bouclant directement entre les deux dates... et même y ajouter un step x
Sub complete(Date_debut As Date, date_fin As Date) Dim d As date Dim Rst As DAO.Recordset Set Rst = currentdb.OpenRecordset("Tabledestination") For d = Date_debut To Date_fin Rst.AddNew Rst("Datecalcul") = d Rst.Update Next I Rst.Close Set Rst = Nothing End Sub
Salut 3stone, ben ça alors !!! je pensais pas que VBA pouvait faire ça. Et encore une astuce dans ma boite à outils : merci 3stone @+
access13090
Bonjour, Merci beaucoup @+ 3stone a pensé très fort :
Salut, en attendant avec quelque chose comme
Sub complete(Date_debut As Date, date_fin As Date) Dim I As Integer Dim Rst As DAO.Recordset Set Rst = currentdb.OpenRecordset("Tabledestination") For I = 0 To diffdate("d", Date_debut, date_fin) Rst.AddNew Rst("Datecalcul") = DateAdd("d", I, Date_debut) Rst.Update Next I Rst.Close Set Rst = Nothing End Sub
On peut même simplifier la boucle... en bouclant directement entre les deux dates... et même y ajouter un step x
Sub complete(Date_debut As Date, date_fin As Date) Dim d As date Dim Rst As DAO.Recordset Set Rst = currentdb.OpenRecordset("Tabledestination") For d = Date_debut To Date_fin Rst.AddNew Rst("Datecalcul") = d Rst.Update Next I Rst.Close Set Rst = Nothing End Sub
Bonjour,
Merci beaucoup
@+
3stone a pensé très fort :
Salut,
en attendant avec quelque chose comme
Sub complete(Date_debut As Date, date_fin As Date)
Dim I As Integer
Dim Rst As DAO.Recordset
Set Rst = currentdb.OpenRecordset("Tabledestination")
For I = 0 To diffdate("d", Date_debut, date_fin)
Rst.AddNew
Rst("Datecalcul") = DateAdd("d", I, Date_debut)
Rst.Update
Next I
Rst.Close
Set Rst = Nothing
End Sub
On peut même simplifier la boucle... en bouclant directement
entre les deux dates... et même y ajouter un step x
Sub complete(Date_debut As Date, date_fin As Date)
Dim d As date
Dim Rst As DAO.Recordset
Set Rst = currentdb.OpenRecordset("Tabledestination")
For d = Date_debut To Date_fin
Rst.AddNew
Rst("Datecalcul") = d
Rst.Update
Next I
Rst.Close
Set Rst = Nothing
End Sub
Bonjour, Merci beaucoup @+ 3stone a pensé très fort :
Salut, en attendant avec quelque chose comme
Sub complete(Date_debut As Date, date_fin As Date) Dim I As Integer Dim Rst As DAO.Recordset Set Rst = currentdb.OpenRecordset("Tabledestination") For I = 0 To diffdate("d", Date_debut, date_fin) Rst.AddNew Rst("Datecalcul") = DateAdd("d", I, Date_debut) Rst.Update Next I Rst.Close Set Rst = Nothing End Sub
On peut même simplifier la boucle... en bouclant directement entre les deux dates... et même y ajouter un step x
Sub complete(Date_debut As Date, date_fin As Date) Dim d As date Dim Rst As DAO.Recordset Set Rst = currentdb.OpenRecordset("Tabledestination") For d = Date_debut To Date_fin Rst.AddNew Rst("Datecalcul") = d Rst.Update Next I Rst.Close Set Rst = Nothing End Sub