[AccessD] invalid number of arguments

Hello Group,

i am using a function that Neil Kling provided me in the past.
When running it from an expression i get an error:

Invalid number of arguments.

Who can help me with this

Pedro Janssen




Function DeleteTableLink(strTableName As String) As Boolean
On Error GoTo Err_DeleteTableLink
  Dim db As Database
  
  strTableName = "tblDebiteurAlgemeen"
  
  Set db = DBEngine(0)(0)
  db.TableDefs.Delete strTableName
  db.TableDefs.Refresh

  DeleteTableLink = True

Exit_DeleteTableLink:
Exit Function

Err_DeleteTableLink:
  Select Case Err
  Case 0    'insert Errors you wish to ignore here
    Resume Next
  Case 3265      'Item doesn't exist in collection
        Resume Next
  Case Else 'All other errors will trap
    Beep
    MsgBox Err.Number & "; " & Err.Description, , "Error in function basObjectHandlers.DeleteTableLink"
  Resume Exit_DeleteTableLink
  End Select
  Resume 0  'FOR TROUBLESHOOTING
End Function