1) Можно ли сделать так чтобы элементы списка (ListBox)имели разный цвет? Может быть есть другой аналогичный элемент управления с такой функциональностью? 2) Как получить координаты щелчка (двойного щелчка) мышью относительно верхнего левого угла формы? Спасибо.
3) Как с помощью запроса на добавление добавить запись в таблицу с ключевым полем (счетчик) на основе данных содержащихся в форме? Выдает ошибку "... не добавлено в таблицу следующее число записей - 1 (нарушение уникальности ключа)" текст запроса: INSERT INTO clients ( full_name, first_name, mobile_phone, email ) SELECT Forms![001_GetOrder]!FullName AS full_name, Forms![001_GetOrder]!FirstName AS first_name, Forms![001_GetOrder]!MobilePhone AS mobile_phone, Forms![001_GetOrder]!mail AS email; в таблице clients есть ключевое поле id_order не знаю как его правильно включить в запрос (если надо включать) Хелп ми! Плс!
1. очень сильно подозреваю, что нет, так как для этого надо перехватывать стандартный "отрисовщик" Windows. 2. 3. как сделать не знаю, но очень сильно не рекомендую использовать всякие там счетчики.
Forms![001_GetOrder]!MobilePhone а это поле? Уверен что данные получаються из этого поля? Счетчики добавлять в insert не надо... Все работает автоматически на то они и счетчики
данные точно приходят из поля... Попробуй сделать проверку через переменные, может что то приходит не то, вообще скопируй суда весь запрос из того что ты написал я лично не вижу повода для работы
Прошел месяц... НИЧО не делал, но все заработало... Теперь еще один вопрос: Как, используя VB, определить открыта ли какая-то форма или нет?
Низя. Если форма закрыта скажет: Run-time error '2450' Приложению 'Microsoft Acess' не удается найти форму указанную в выражении макроса или в программе Visual Basic
Public Function FormIsOpened(Name As String) As Boolean Dim frm As Form Dim i As Integer ' Ïåðåáèðàåò êîìïîíåíòû ñåìåéñòâà Forms. On Error GoTo Err If Forms.COUNT > 1 Then For Each frm In Forms ' Âûâîäèò èìÿ ôîðìû. If frm.Name = Name Then FormIsOpened = True Exit For Else FormIsOpened = False End If Next frm Else Err: FormIsOpened = False End If End Function