VBA sending string error

[rpaulson]

Some SQL reading from access

Function ReadFromAccess2(sqlString As String, fieldName As String) As String
...

Sub Populate_from_Current_Invoice()

    Dim fieldName As String
    Dim tableName As String
    Dim custID As Integer
    Dim sqlString As String
    Dim result As String
 
    ' Set the field name, table name, and customer ID
    tableName = "Customer"
    custID = 5346  ' Example customer ID, you can set this dynamically as needed
      

'this works
    fieldName = "City"
    Range("A1") = ReadFromAccess2("SELECT " & fieldName & " FROM " & tableName & " WHERE Custid=" & custID, fieldName)
 
'this does not
     Range("A1")  = ReadFromAccess2("SELECT " & fieldName & " FROM " & tableName & " WHERE Custid=" & custID, "City")

I plan on using the a lot and would like the above 1-liner to work. (Error: Item cannot be found in the collection corresponding to the requested name or ordinal.)

Any Ideas?
-Ross

 

[bobsan42]

so that fieldName is the null string. As many times as I read this, I didn't realize it.

The code presentation is certainly misleading.