CODEWITHSUNDEEP
ms-accessvbanumber-formatting
LFurness
LFurness

Reputation: 669

vba format function throws type mismatch error

I am trying to format a number as currency in Access VBA.

In the immediate window, when I enter:

? Format(123, "Currency")

I get the expected response: "$123.00"

However, in the code window, when I enter:

Debug.Print Format(123, "Currency")

I get an error pointing to that line: "Run-time error '13': Type mismatch"

Why does the same simple code work in the immediate window, but throw an error when run from the code window?

Upvotes: 0

Views: 2037

Answers (3)

iDevlop
iDevlop

Reputation: 25252

In the debug window, you just do NOT use Debug.
Print is equivalent to ?
So Debug.Print Format(123, "Currency") in code should be
Print Format(123, "Currency") in debug window or ? Format(123, "Currency")

Upvotes: 0

HansUp
HansUp

Reputation: 97101

I don't see why your second example should cause an error. The following subroutine compiles and runs without error on my Access 2003 system:

Public Sub test_Format()
    Debug.Print Format(123, "Currency")
End Sub

Try that subroutine in a new database. Perhaps your current database is corrupted.

See Tony Toews' Corrupt Microsoft Access MDBs FAQ

Upvotes: 1

JeffO
JeffO

Reputation: 8043

What do you mean by Code Window?

This works:

Private Sub Form_Load()
       Debug.Print Format(123, "Currency")

End Sub

Upvotes: 0

Related Questions