for each ctl in me.controls

<as example>

if ctl.type = sometype
if left(ct.name,n) = somestrig

да, так сделано в стандартном свичборде, это достаточно эффективное решение, хороший пример.

единственный минус - нужно задавать количество нумерованных элементов

For intOption = 2 To conNumButtons         Me("Option" & intOption).Visible = False         Me("OptionLabel" & intOption).Visible = False     Next intOption

вот такое чудо у меня есть

Sub CtlLenghtError_eng(frm As Form, strWork As String) Dim ctl As Control For Each ctl In frm.Controls         Select Case ctl.ControlType                          Case acTextBox                 If ctl.ControlTipText = strWork Then                         MsgBox "Data field - " & ctl.ControlTipText & " - " & Chr(13) & _                         "has more characters than it's need." & Chr(13) & _                         "Please edit it and try again.", vbCritical, "Process is terminated!"                         ctl.SetFocus                         Exit Sub                 End If                  End Select Next ctl End Sub

Это просто выдрано и предоставлено как пример...
пример того что можно поиспользовать , переделав под свои нужды...
Всем огромная Спасиба

Хорошая штука...
Нужная...
Спасибо...

>поемоеум у меня не бегает по всей колекции а до первой ошибки..еслиошибки нет основной код идет дальше

но после экзитсаб и внесения изменений опять цикл по всей коллекции и до первой ошибки :)))

почему бы не установить ограничение по количеству символов прямо в таблице? или для поля формы?

>>>как то так приналовчился...

ИМХО лучче так не приналавчиваться - портится стиль...

ИМХО лучче всетаки в поле таблицы прописать ограничение - единственный минус - невнятные системные сообщения, которые, к тому же, зависят от локализации Access/

вообще - пользователя нуно любить и не дергать по пустякам, когда я чепятаю в поле ADMOFF WAREHOUSE SERVICES APR 2007 я печатаю имея в голове всю фразу целиком, и тратить время на то, чтобы заранее подгадать, чтобы длина стринга не превышала 35 символов, для меня несколько напряжно

- кончится тем, что я просто буду писать WAREHOUSE 07 - и на вопросы аналитика "что за хрень" буду отвечать - эти тупицы разработчики не могли предусмотреть, что в этом поле потребуется более подробная информация., поэтому обходись тем, что есть... анализируйте ЭТО.

в дизайнере таблиц Access "умолчальная" длина текстового поля таблицы - 50 символов... может так и оставить? невелика разница 50 или 30

чтобы совсем было смешно расскажу фичу :)))

в одной южно-корейской программулине, которую делали аутсорсеры, на поле ИМЯ_ФАМИЛИЯ_ОТЧЕСТВО (что само по себе уже полная лажа) было установлено ограниченичение по длине в 25 символов

при вводе моих ФИОДАННЫХ еще целых три знакоместа остаются, но для некоторых менее скромных моих коллег (каковых, признаемся, немало, поскольку контингент от Токио до Бобруйска) не хватает от 3 до 10 (!!!) символов...

в общем, разные владиславы валентиновичи могли носить фамилию не длиннее 2-х символов, поскольку по ТЗ отдела безопасности сокращения и инициалы не допускались

были разные предложения по исправлению ситуации, от самых мягких - немного изменить ТЗ
до самых радикальных - не принимать на работу персон, чьи имя-фамилия-отчество длиннее 25 символов

(по поводу значимости приведенных экстремумов у Отдела Безопасности было ровно противоположное по знаку мнение)

кончилось все тем, что эта прога была безжалостно снесена к чертям собачачьим (правда помимо этой фичи там был еще пяток не менее с_т_ранных задвигов) и новую приладу я лабал своими силами в перерывах в основной своей работе

корейская прилада шла в комплекте с железом, для которого она и была написана и стоила она, по прейскуранту, 2000-00 американского грина

ограничение по длине поля ТАМ ВООБЩЕ НАФИГ НЕ НУЖНО БЫЛО - оно на скорость полета никак и нигде не влияет... на объем БД тоже НИКАК - это плоский справочник.

ЗЫ

не спрашивай сколько мне заплатили за эту работу
и так настроения нет никуя никакого (предпоследнее слово и есть ответ "сколько")