ms-access - 调用函数时vba Byref参数类型不匹配

Question

我有一个重命名表列名称的方法。

Public Function Rename_Column(tablename As String, oldcolumn As String, newcolumn As String)
  Dim dbs As Database, tdf As TableDef
  Set dbs = CurrentDb

  For Each tdf In dbs.TableDefs
    If tdf.Name = tablename Then
      For Each fld In tdf.Fields
        If fld.Name = oldcolumn Then
          fld.Name = newcolumn
        End If
      Next
    End If
  Next
  dbs.Close
End Function

我在其他过程中调用这个函数

Public Sub querylistboxitems()
  Dim strTableName As String

  strTableName = "Table1"
  Call Rename_Column(strTableName, "old", "New")
End Sub

但是它给出了一个错误“Byref argument type mismatch”

Answer 1

还有其他棘手的情况可能会发生此问题。例如，当在一行中声明两个(或更多)变量时:

Dim firstSubMenu, secondSubMenu As CommandBarPopup

现在 firstSubMenu 是 Variant 类型，而 secondSubMenu 是 CommandBarPopup 类型。这可能不是您想要的，也可能是在通过引用将它们传递给需要 CommandBarPopup 类型参数的函数时导致上述错误的原因。在这种情况下，解决方案是在两行中声明它们:

Dim firstSubMenu As CommandBarPopup
Dim secondSubMenu As CommandBarPopup

或者，如果你真的想把它挤在一条线上，可以这样做:

Dim firstSubMenu As CommandBarPopup, secondSubMenu As CommandBarPopup

请注意，您必须为每个变量重复“As”类型声明。