Access 2010 Type mismatch

[iMaCannot]

This is my first post on this forum as I have a peculiar type mismatch problem. I have two PC's running the same Access program and on one it's fine but the other exhibits this Type Mismatch error 13.

The VBA is in Form (frmClientCALLReminder) and is as follows:

'==================== START of Form code =================================

Private Sub AddAppt_Click()


' Comments:
' Params :
' Modified:

On Error GoTo Err_AddAppt_Click

' Save record
DoCmd.RunCommand acCmdSaveRecord

Dim outobj As Outlook.Application
Dim outappt As Outlook.AppointmentItem
Set outobj = CreateObject("outlook.application")
Set outappt = outobj.CreateItem(olAppointmentItem)

With outappt

' This next line causes the type mismatch.
.Start = Me!ApptDate & " " & Me!cmbApptTime

.Duration = Me!ApptLength
.Subject = Me!Appt
If Not IsNull(Me!ApptNotes) Then
.Body = Me!ApptNotes
End If
If Not IsNull(Me!ApptLocation) Then
.LOCATION = Me!ApptLocation
End If
If Me!ApptReminder Then
.ReminderMinutesBeforeStart = Me!ReminderMinutes
.ReminderSet = True
End If
.Save
End With

blnCreateReminder = True

' Release the Outlook object variable.
Set outobj = Nothing
' Set the AddedToOutlook flag, save the record, display a message.
Me!AddedToOutlook = True
DoCmd.RunCommand acCmdSaveRecord

'Disabled message for now
MsgBox "Reminder added to Outlook"

Me.Appt = ""
Me.ApptDate = 0
'Me.ApptTime = 0
Me.ApptNotes = ""

DoCmd.Close

Exit Sub

Exit_AddAppt_Click:
Exit Sub

Err_AddAppt_Click:
MsgBox "Error " & Err.Number & vbCrLf & Err.Description
Resume Exit_AddAppt_Click

End Sub

'==================== END of Form code =================================


VBA References as follows:




I would appreciate any suggestions as to what it might be. Right now it seems to be machine specific.

Thanks in advance.

[ranman256]

change the code to :

Err_AddAppt_Click:
MsgBox "Error " & Err.Number & vbCrLf & Err.Description
Resume Exit_AddAppt_Click
RESUME

When the error msgbox opens, hit ctrl-break
debug
put the cursor on this new RESUME line
right-click, SET NEXT STATEMENT
press F8 (to step thru code)
the run-line will move to the bad piece of code...and you can tell us (or yourself) where the error occurs.

[iMaCannot]

Thanks for taking the time to reply and the debug resume tip.

This is the failing line in yellow below..

The two fields are linked to a table which has them as type Date/Time.
However the form Text format for ApptDate is Plain text and selected from the date picker. The cmbApptTime is selecting the Time from a table called tblWorkTimes which also has a Date/Time format.




One of the two machines that run this works fine. Both machines are 32bit Access and OS.

It's a bit of a mystery.

[John_G]

Since the error is occuring with an Outlook object, it suggests it might originate with Outlook, not Access.

Are both PC's running the same version of Outlook, and is it configured the same way on both?

John

[John_G]

Hi -

One other thing to try is to comment out the offending line and run the routine again.

It could be (and I have seen this sort of thing) that the error is something else entirely, and that it will fail again, this time on the .Duration= me!ApptLength line.

John

[iMaCannot]

John
I did as you suggested and commented out the failing line. It now works and adds appointment to Outlook with todays date a time.

So there is progress. but what else can I try wth these data fields.

Thank you.

[John_G]

Hi -

With a little help from MS Access "Help":

your line to set the start date/time should look like this:

.Start = #9/29/2014 1:30:00 PM#

in other words, it is expecting a date, not a character string.

Try this:

.Start = cdate(Me!ApptDate & " " & Me!cmbApptTime)

I tested this and it worked perfectly:

strTest = "9/29/2014 1:30:00 PM"
.Start = CDate(strTest)

John

[iMaCannot]

John
Thanks for that.
The

strTest = "9/29/2014 1:30:00 PM"
.Start = CDate(strTest)

works fine.
But the .Start = cdate(Me!ApptDate & " " & Me!cmbApptTime) doesn't.

At least I know it's all down to these two fields not having the correct format.
I'm going to try the date field on its own. And see what happens.

I'll let you know what the result is.

[Missinglinq]

Dim outappt As Outlook.AppointmentItem

With outappt

Help says that With can be used against Objects or User Defined Datatypes; I'm not sure that you can use it against a Variable, as you're doing here. When I try doing it, I get the same error.

Linq ;0)>

[John_G]

Hi Missinglinq -

As far as I know, using a variable in a with construct works fine - I do it all the time:

Dim rst as Recordset
set rst=db.openrecordset(....)
with rst
end with

and I have never encountered any problems.

John

[iMaCannot]

John

Thanks for all your assistance.

I tried using the original ApptDate on its own and it worked.

Then I tried the original ApptTime on its own and it worked.

There appears to be a problem with the concatenation. Even using CDate doesn't cure the problem on this PC.

I have now tried stripping the with out and replacing it with fully qualified names. outappt.start etc. Still no go.

The code I'm using was originally from an Access expert's code book. We also have to remember that it does work on the other PC.

I will take a rest now and do a lot more reading.

Thanks again

[John_G]

iMaCannot -

I you can show us what the expression Me!ApptDate & " " & Me!cmbApptTime actually looks like it would help. I agree, one of them (date or time) probably isn't formatted correctly.

When you say the CDate with your expression doesn't work, what are you getting - thae same error?

John

[iMaCannot]

To everyone that helped.

Thanks a lot.

[iMaCannot]

iMaCannot -

I you can show us what the expression Me!ApptDate & " " & Me!cmbApptTime actually looks like it would help. I agree, one of them (date or time) probably isn't formatted correctly.

When you say the CDate with your expression doesn't work, what are you getting - thae same error?

John

John

That is exactly right. I'm getting the same error. If I take each of the variables and use them separately then there is no problem.

iMaCannot

[iMaCannot]

My code at the top of this thread shows the line at fault.