Produce some kind of calendar in Access?

[Henro V]

I am byuilding this database which (among others things) will have to
produce a kind of calendar.

Users give in the appointments they have and how long they take.
F.e: John Doe is attending a conference which will take three days. This
conference starts on 12-07-2004

So the user would give in

a) Name John Doe (selectable from a list,
already done that)
b) Kind of appointment Conference (selectable from a list, already
done that)
c) Startdate 12-07-2004 Date/Time field
d) Howlong 3 Numeric field

Now it is very simple to calculate the Enddate(Startda te+HowLong-1)
I know how to convince Access2K to fill in an Excelsheet That John Doe is
attending a conference starting 12-07-2004. I can also see that very clearly
and easily in the Excelsheet I produce. But I need it to fill it in also for
the days 13-07 and 14-07. In fact, it needs to fill in all the dates
starting with the Startdate, ending with the enddate.

How do I do this? I am pretty worthless if it comes up to code so I would
prefer it to be done in a query of some sort but, to be honest, I am pretty
desperate now so I would even be prepared to hammer it in as they did in the
Stone-age :-p as long as I find a solution for this problem!

I sincerely hope that someone can help me!

TIA,

Henro

[Allen Browne]

So you need to create additional records in the same table?

This code is a quick demo of how to create an appointment for each
additional day after the StartDate, at the time the record is saved in the
form. It does not handle deleting all or part of the appointment, or
modifying a date. (It may actually be better to use an unbound form to add
the appointment for all days, including the original. To do that you would
OpenRecordset on the table.)

Private Sub Form_AfterInser t()
Dim dtWhen As Date

With Me.RecordsetClo ne
For dtWhen = Me.StartDate + 1 To Me.StartDate + Me.HowLong
.AddNew
!Name = Me![Name]
![Kind of Appointment] = Me![Kind of Appointment]
!StartDate = dtWhen
.Update
Next
End With
End Sub

--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"Henro V" <ma**********@h otmail.com> wrote in message
news:bp******** **@news4.tilbu1 .nb.home.nl...

I am byuilding this database which (among others things) will have to
produce a kind of calendar.

Users give in the appointments they have and how long they take.
F.e: John Doe is attending a conference which will take three days. This
conference starts on 12-07-2004

So the user would give in

a) Name John Doe (selectable from a list, already done that)
b) Kind of appointment Conference (selectable from a list, already done that)
c) Startdate 12-07-2004 Date/Time field
d) Howlong 3 Numeric field

Now it is very simple to calculate the Enddate(Startda te+HowLong-1)
I know how to convince Access2K to fill in an Excelsheet That John Doe is
attending a conference starting 12-07-2004. I can also see that very clearly and easily in the Excelsheet I produce. But I need it to fill it in also for the days 13-07 and 14-07. In fact, it needs to fill in all the dates
starting with the Startdate, ending with the enddate.

How do I do this? I am pretty worthless if it comes up to code so I would
prefer it to be done in a query of some sort but, to be honest, I am pretty desperate now so I would even be prepared to hammer it in as they did in the Stone-age :-p as long as I find a solution for this problem!