Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: Дядя Федор Я тоже проверил. Что Sub, что Function - передает string
Option Compare Database Option Explicit Public Sub SubParamarray(ParamArray a()) Dim i@ For i = 0 To UBound(a) Debug.Print "" & a(i) Next End Sub Public Function FunParamArray(ParamArray a()) Dim i@ For i = 0 To UBound(a) Debug.Print "" & a(i) Next End Function Public Sub tstsparamarray() Dim s$ Dim vmas s = "1;Проверка;3" vmas = Split(s, ";") SubParamarray vmas(0), vmas(1), vmas(2) FunParamArray vmas(0), vmas(1), vmas(2) End Sub
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.