Время компиляции: синтаксическая ошибка

Question

Я могу добавить элементы управления в форму, когда она загружена. Мне нужно, чтобы эти элементы управления были разделены, чтобы пользователь мог видеть только несколько элементов одновременно. Моей первой мыслью было прикрепить элементы управления к конкретным вкладкам. Не уверен, почему синтаксис отключен в следующем коде. Спасибо за помощь!

Private Sub Enter_Records_Click()

Dim stDocName As String
Dim tabPage As String
Dim tabNum As Integer
Dim i As Integer
Dim passedTabName As String

stDocName = "CLForm"
tabPage = "tabControl.tabPage"
stTabName = stDocName & tabPage
tabNum = 8 'the number of tabs on the "CLForm"

DoCmd.OpenForm stDocName, acDesign
For i = 0 To tabNum - 1
    passedTabName = stTabName & i
    CreateKeywords (stDocName, passedTabName)
Next i
DoCmd.Close acForm, stDocName, acSaveYes
DoCmd.OpenForm stDocName, acNormal

End Sub

---

Public Sub CreateKeywords(frmName As String, tabName As String)

Еще одна идея, которая может быть лучше, просто иметь кнопки, которые показывают одну категорию элементов управления одновременно. Будет ли это проще?

Answer 1

Вам необходимо использовать ключевое слово Call при вызове метода с несколькими параметрами и использованием скобок.

Например, это будет работать:

Call CreateKeywords(stDocName, passedTabName)
CreateKeywords stDocName, passedTabName
//Example of using parentheses with one parameter
Msgbox (stDocName) 

Добро пожаловать в удивительный мир VBA. ;)

Answer 2

Лучше быть осторожным с вызовом аргументов и скобок:

Public Sub CallingSub()
   CallingArg = "ABCDEF"
   CalledFunc CallingArg
   Debug.Print CallingArg ''Result: 987654

   CallingArg = "ABCDEF"
   CalledFunc (CallingArg) ''Result: ABCDEF
   Debug.Print CallingArg

   CallingArg = "ABCDEF"
   Call CalledFunc(CallingArg)
   Debug.Print CallingArg ''Result: 987654
End Sub

Public Function CalledFunc(CalledFuncArg)
   CalledFuncArg = "987654"
   CalledFunc = "Return"
End Function