Reminders/Appointments/logins etc.

[timbo]

I am an access novice and although I have been reasonably successful in building tables and forms that (more or less) work how I want them to, I am getting to the point of being out of my depth to finish this database.

Basically I have the following issues to resolve;

1. A reminder system. A constant recurring reminder, the time period of which can be adjusted by the user to suit the situation of the client. i.e. for a hot lead, the user would choose "one week" reminders, and then if this lead went cold, they could change this in a form to "three month" reminders. Values could either be based on the 1st contact date entry, or the actual date of modification by user.

2. Whether the best way to do this is linking in to outlook or by creating a login form for each user, with pop up alerts for each client?

3. I wish to create a sales in progress form that will auto-complete fields from the "vendors" table, and the "clients" table, plus also add a couple more data entry boxes (such as agreed price), all of which would save as a record in the "Sales in Progress" table.

Can anyone help me with any/all of these problems? I have attached the database minus personal data as an example.

The client input form stopped working ever since I added an auto-complete for the lawyers table to it.

[timbo]

Ok, I think I have found something which is much simpler and will work better. If I understand this correctly then this code with a couple of small adjustments will mean I can click a button and it will open the add new appointment window of Outlook.

I want to add this code to a command button;

Function CreateAppointment() As Boolean
' This procedure creates a new AppointmentItem object and
' displays the new AppointmentItem object in Outlook
' for further input by the user.

Dim objNewAppt As AppointmentItem

On Error GoTo CreateAppointment_Err

' Use the InitializeOutlook procedure to initialize global
' Application and NameSpace object variables, if necessary.
If golApp Is Nothing Then
If InitializeOutlook = False Then
MsgBox "Unable to initialize Outlook Application " _
& "or NameSpace object variables!"
Exit Function
End If
End If

Set objNewAppt = golApp.CreateItem(olAppointmentItem)
With objNewAppt
.Recipients.Add Forms!Customers!ContactName
.Subject = "Meet with " & Forms!Customers!ContactName _
& " from " & Forms!Customers!CompanyName
.Categories = "Business; Key Customer"
.Display
End With

CreateAppointment = True

CreateAppointment_End:
Exit Function
CreateAppointment_Err:
CreateAppointment = False
Resume CreateAppointment_End
End Function

However, I do not know what to change! At the moment I am getting a compile error that says "expected end sub".

Any ideas?