Format Function = Type Mismatch

[Guest]

I cannot seem to get the Format Function working in VBA. I have simplified my
code to the point of:

MyStr = Format(Now, "Long Date")

But it still brings up bring up "Run-Time Error 13/ Type Mismatch" every
time. Am I leaving something out?

 

[Duane Hookom]

Your code works for me. It tried this:
Sub Testit()
Dim MyStr As String
MyStr = Format(Now, "Long Date")
End Sub

 

[Guest]

Aaargh! Still getting the error.

Thanks anyway Duane.

 

[Guest]

Furthermore, the following does work:

MyStr=FormatDateTime(Now, vbLongDate)

But not:

MyStr=FormDateTime(Now, "d mmm yyyy")

Any thoughts?

 

[Ken Snell [MVP]]

By some chance, do you have a variable named Now in your code? If yes,
ACCESS is trying to use that variable and not the Now() function.

Does this work:

MyStr = Format(Now(), "Long Date")

Or this:

MyStr = Format(Date(), "Long Date")

 

[Tim Ferguson]

MyStr=FormatDateTime(Now, vbLongDate)

This looks suspiciously like VBS rather than VBA...


Tim F

 

[Guest]

No, and it does not work with actual dates either.

Thanks anyway.

 

[Ken Snell [MVP]]

What is the data type of MyStr variable?

 

[Guest]

I've tried different data types, but same error every time.

I did a bit of googling, and I'm beginning to think Tim F was right about it
being VBScript, as the Format Function does not work in VBScript, only
FormatDateTime, which - from what I have gathered - cannot be customised in
terms of date formats.

I don't know much about VBScript. I thought I was using VBA - how is that I
am not?

Sorry about the stupidity. Thanks for your help Ken.

 

[Ken Snell [MVP]]

What type of application are you using this code in?

 

[Guest]

It's just a class module of a form in Access.

What type of application are you using this code in?

 

[Ken Snell [MVP]]

..mdb? .adp? DataAccessPage?

Only place within normal ACCESS that you'd be running VBScript is within a
Data Access Page.

If you're running this in a regular .mdb file in a class module, then you
may have a References error. Check your references and see if any are marked
as "MISSING".
--

Ken Snell
<MS ACCESS MVP>