Proper Public Function for Numeric

[tinamiller1]

I am just trying to determine if this is how I would code a public function for a number in VBA for Access 2010:



Public Function sqlNum(varitem As Variant) As Variant
If Not IsNull(varitem) Then
varitem = Replace(varitem, "'", "''")
sqlNum = "'" & varitem & "'"
End Function

[ranman256]

Yes that is a public function. (tho what you're returning is troubling)

[tinamiller1]

Well it errors out that is my problem

[ranman256]

You've got too many quotes. It looks like you're replacing the given item from single quote to dbl-quotes
but then you surround it with single quotes again. quotes in quotes. But dont quote me ;-)



Public Function sqlNum(varitem As Variant) As Variant
If Not IsNull(varitem) Then sqlNum = Replace(varitem, "'", "''")
End Function

[tinamiller1]

Ha. That's the ticket. Thanks