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 аргумент типа рассогласование»

Answer 1

Он потерпел неудачу для меня, потому что вы не определили " FLD». Следующее намного более прямое, чем переключение по всем таблицам/полям:

Public Function Rename_Column(tablename As String, oldcolumn As String, newcolumn As String) 
    Dim dbs As Database 
    Dim tdf As TableDef 
    Dim fld As Field 

    Set dbs = CurrentDb 
    Set tdf = dbs.TableDefs(tablename) 
    Set fld = tdf.Fields(oldcolumn) 
    Set fld = Nothing 
    Set tdf = Nothing 
    dbs.Close 
    Set dbs = Nothing 
End Function 

Answer 2

Есть и другие сложные ситуации, когда эта проблема может возникнуть. Например, при объявлении двух (или более) переменных в одной строке:

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 

Обратите внимание, что вам придется повторять объявление типа «как» для каждой переменной.