diary system ( access 2007) (1 Viewer)

[ccbup4it]

hi guys/girlies i'am new to this forum so bear with me , i am training to be a driving instructor and have made a student database with contacts details ect ,i would now like to go more advanced and incoroate a diary booking system into the database, my knowledge of access is not great but i can get about the trouble is i have no idea of how to make a booking system or even where to start , can anybody help please , heres what i have done so far.........

 

[ccbup4it]

can nobody help

please some1 help me point the way i need to go , or tell me how to incorate outlook into my database

 

[<DC>Paul]

i find it easier to store details on my mobile phone

 

[Dreamweaver]

i find it easier to store details on my mobile phone

That's very helpful Paul I suspect you have no knowledge of Access or any other programming language and have no interest in learning.

it seems to me your having some schoolboy fun but if your looking for a job first change your Font size and colour to normal peoples and maybe try Monster for your job searching.

 

[boblarson]

That's very helpful Paul I suspect you have no knowledge of Access or any other programming language and have no interest in learning.

it seems to me your having some schoolboy fun but if your looking for a job first change your Font size and colour to normal peoples and maybe try Monster for your job searching.

Not to worry - he's been banned for inappropriate postings.

 

[rainman89]

Not to worry - he's been banned for inappropriate postings.

That was fast. Way to be boBo

 

[Dreamweaver]

Not to worry - he's been banned for inappropriate postings.

Thanks Bob sorry to butin just noticed a few of his posts

Thanks

Mick

 

[boblarson]

Thanks Bob sorry to butin just noticed a few of his posts

Thanks

Mick

No apologies necessary and it wasn't butting in. Mick, you were totally right in posting what you posted. I just wanted to let you know that I took care of him.

 

[ccbup4it]

begiining to think it cant be done as nobody can help

 

[neileg]

Few people here use A2007 so that's limiting your responses. Plus you seem to need a lot more than a few ideas, you need some serious support. And finally, have you looked at the templates for Access to see if there's anything similar?

 

[Dreamweaver]

begiining to think it cant be done as nobody can help

Anything can be done you just need the determination and time and Goggle helps wonders it's all there Can't remember the site but she wrote a few books a while back

 

[The_Doc_Man]

diary booking system

Search this forum for entries on "Scheduler" and "Bookings" to see many different posts on the topics associated with a booking system. Your biggest problem is that bookings deal with times, and time is one of the uglier things to use in any Access database. This is because time is what us older folks call a "kludge" - (pronounced "clooj" in USA English).

Despite having lots of nice controls and a myriad of time functions, Access in any version has trouble with time because of the way WINDOWS represents it. Oh, the representation is technically correct. It is just that time has one of the nastier piles of "baggage" to drag around. Because we "know" what time should be like - but in Access it is often counter-intuitive. Therefore, while I have no doubt you can do what you want, I must suggest that a booking system is one of the more complex starting points you could choose.

Consider the following simplification if it is at all possible in your situation: Allocate your time in SLOTS with fixed start and end times. Then book according to date and slot number, not according to date and time. The slot-number simplification eliminates certain ugliness associated with finding whether you have schedule conflicts.

 

[ccbup4it]

another approach

ok firstly thanks to the doc man , i understand that time might be a pain in the arse but i have to do it that way but i thought i might be able to incorporate outlook into my database so i did a short database (of which i will incorporate later into my students database ) but i can't seam to get this working can somebody please have a look at this and tell me what iam doing wrong, ........

I am trying please help

 

[hooks]

I got your adding entry to outlook working.

Here Is your original code

Private Sub addtooutlook_Click()
         On Error GoTo AddAppt_Err
         ' Save record first to be sure required fields are filled.
         DoCmd.RunCommand acCmdSaveRecord
         ' Exit the procedure if appointment has been added to Outlook.
         If Me!AddedToOutlook = True Then
            MsgBox "This appointment already added to Microsoft Outlook"
            Exit Sub
         ' Add a new appointment.
         Else
            Dim outobj As Outlook.Application
            Dim outappt As Outlook.AppointmentItem
            Set outobj = CreateObject("outlook.application")
            Set outappt = outobj.CreateItem(olAppointmentItem)
            With outappt
               .Start = Me!apptdate & " " & Me!appttime
               .Duration = Me!apptlength
               .Subject = Me!appt
               If Not IsNull(Me!apptnotes) Then .Body = Me!apptnotes
               If Not IsNull(Me!apptlocation) Then .Location = _
                  Me!apptlocation
               If Me!apptreminder Then
                  .ReminderMinutesBeforeStart = Me!reminderminutes
                  .ReminderSet = True
               End If
               .Save
            End With
         End If
         ' Release the Outlook object variable.
         Set outobj = Nothing
         ' Set the AddedToOutlook flag, save the record, display a message.
         Me!AddedToOutlook = True
         DoCmd.RunCommand acCmdSaveRecord
         MsgBox "Appointment Added!"
      Exit Sub
AddAppt_Err:
         MsgBox "Error " & Err.Number & vbCrLf & Err.Description
         Exit Sub
      End Sub

Here is the working code. Notice not much changed.
I basically changed all the ! to . This lets you use intellitype.

Private Sub AddAppt_Click()
   On Error GoTo AddAppt_Err
         ' Save record first to be sure required fields are filled.
         DoCmd.RunCommand acCmdSaveRecord
         ' Exit the procedure if appointment has been added to Outlook.
        [COLOR="Green"]If Me.addtooutlook = True Then[/COLOR]
            MsgBox "This appointment already added to Microsoft Outlook"
            Exit Sub
         ' Add a new appointment.
         Else
            Dim outobj As Outlook.Application
            Dim outappt As Outlook.AppointmentItem
            Set outobj = CreateObject("outlook.application")
            Set outappt = outobj.CreateItem(olAppointmentItem)
            With outappt
               .Start = Me.apptdate & " " & Me.appttime
                [COLOR="Green"].Duration = CInt(Me.apptlenght)   Converted me.apptlenght to integer[/color]
               .Subject = Me.appt
               If Not IsNull(Me.apptnotes) Then .Body = Me.apptnotes
               If Not IsNull(Me.apptlocation) Then .Location = _
                  Me.apptlocation
               If Me!apptreminder Then
                  .ReminderMinutesBeforeStart = Me.reminderminutes
                  .ReminderSet = True
               End If
               .Save
            End With
        End If
         ' Release the Outlook object variable.
         Set outobj = Nothing
         ' Set the AddedToOutlook flag, save the record, display a message.
          [COLOR="Green"] Me.addtooutlook = True[/color]
         DoCmd.RunCommand acCmdSaveRecord
         MsgBox "Appointment Added!"
      Exit Sub
AddAppt_Err:
         MsgBox "Error " & Err.Number & vbCrLf & Err.Description
         Exit Sub
End Sub