How do I set up a repeating meeting in Access

  • Thread starter How do I set up a repeating meeting in A
  • Start date
H

How do I set up a repeating meeting in A

I am trying to build a patient scheduling program using Access 2003. I would
like to
setup a reoccuring function so that a patient is scheduled for the same day
and time
each week for 40 to 50 weeks
 
K

Klatuu

If an appointment consists of one record in an appointments table, get the
first date of the appointment and either the number of appointments or the
last date of the appointments. Now, establish a recordset and create a Do
Loop that adds a new record for each iteration. I would assume most of the
data in the record will be redundant, so one you have it all entered, you can
increment the date. Here would be the control loop.

dtmApptDate = Me.txtFirstApptDate

Do While dtmApptDate <= Me.txtLastApptDate

'Create the new record here
dtmApptDate = DateAdd("ww",1,dtmApptDate)
Loop
 
S

Steve

Dave's recommendation is right on if you want to first set the last
appointment date. If you want to set the number of followup appointments say
40, you can do it this way:

Dim I As Integer
Dim Db As DAO.Database
Dim Rst As DAO.Recordset
Set DB = CurrentDB()
Set Rst = DB.OpenRecordset("TblNameOfYourAppointmentTable")
For I = 1 To 40
Rst.Add
'Create the new record here
Rst!ApptDate = DateAdd("ww",I,Me!FirstApptDate)
'For other fields that needed to be added to the record use this
form
Rst!FieldName = Me!AppropriateFieldName
Rst.Update
Next

PC Datasheet
Providing Customers A Resource For Help With Access, Excel And Word
Applications
[email protected]
 
Top