Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: ser60 час! не можете подсказать, почему в нижеследующем коде акc останавливается на строке "Next i" и пишет, что "Compile error: Next without For"
RETVAL = Split(gstrWhereParaclinic, ",", -1, vbTextCompare) For i = 0 To UBound(RETVAL) 'Debug.Print RETVAL(i) With rst .AddNew ![Порядок] = i + 1 ![МедОрг] = intMedOrgCode ![Регион] = intRegion ![Функционал] = RETVAL(i) ![ЕдИзм] = DLookup("ЕдИзм", "сШН", "КодФункционал=" & RETVAL(i)) lngPlanVolum = DLookup("ПланОбъем", "сМедОргОбъемДеят", "КодМедОрг=" & intMedOrgCode & " And [ЕдИзм] = " & intEdIzm) ![ПланОбъемДеят] = lngPlanVolum .Update Next i
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.