Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Достучаться до поля таблицы в Access / 5 сообщений из 5, страница 1 из 1
29.07.2004, 13:39
    #32627111
Sun bittern
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Достучаться до поля таблицы в Access
День добрый!
Имеем допустим две таблицы:
Тabl1
A: Integer;
B: Integer;
Tabl2
C: Integer;

Для Tabl2 создана форма. В событии "после обновления" > (Построитель, программы) контрола "поле" пишу:

Private Sub Shipped_places_AfterUpdate()
If C <= A or C >= B Then MsgBox(...)
End Sub

Так вот. "С" я в процедуре соответсвенно вижу т.к. для данной таблицы созданна форма и обработчик пишется в программе этой формы, а как мне обратиться к полям "A" и "B" первой таблицы. Уточню что, первая таблица - мастер, а вторя подчиненная.
...
Рейтинг: 0 / 0
31.07.2004, 13:24
    #32630362
Sun bittern
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Достучаться до поля таблицы в Access
Дяденки, тетеньки где же вы!
Подскажите, как организовать на VB проверку вводимого значения. Т.е. в подчененной таблице в поле "С" вводится число. После ввода данного чила провести проверку на достоверность ввода данных. Проверить эти данные нужно из таблицы мастера в полях "A" и "B". Как это организовать, может не обязательно на VB кодить, может построителем выражений както можно? Помогите запарился я в этом русском офисе :( Часть наименований свойств объектов на англицком, часть на русском. Кошмар!!!

P.S. На VB я вобще не кодю (тока на Delphi). Подъехала тут разовая мелкая работка, пользователю надо сделать контроль вводимых данных в одно единственное поле. Как? Помогите! Очень просим!
...
Рейтинг: 0 / 0
01.08.2004, 07:37
    #32630555
Deminik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Достучаться до поля таблицы в Access
Код: plaintext
1.
2.
3.
Private Sub Shipped_places_AfterUpdate()
If C <= CInt(DFirst("A","Tabl1")) or C >= CInt(DFirst("B","Tabl1")) Then MsgBox(...) 
End Sub

Если А и В не отбираются по каким-либо условиям...
...
Рейтинг: 0 / 0
01.08.2004, 07:47
    #32630556
Deminik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Достучаться до поля таблицы в Access
Допустим, Tabl1 содержит:

N A B
Иванов 10 20 (вводимое в форме fldC, для Иванова, должно быть от 10 до 20)
Петров 30 40 (вводимое в форме fldC, для Петрова, должно быть от 30 до 40)

На форме, где сурс - Tabl2, поля - fldC и fldN...

Ввели на форме в поле fldN - "Петров"...
Ввели значение в fldС...
Делаем проверку:

Код: plaintext
1.
2.
3.
4.
Private Sub Shipped_places_AfterUpdate()
If fldC <= CInt(DLookUp("A","Tabl1","N =  '" & fldN & "'")) or _
   fldC >= CInt(DLookUp("B","Tabl1","N =  '" & fldN & "'")) Then MsgBox(...) 
End Sub

....это так, для примера....
...
Рейтинг: 0 / 0
02.08.2004, 05:08
    #32630719
Sun bittern
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Достучаться до поля таблицы в Access
Deminik, ОГРОМНОЕ спасибо! Обязательно испробуем. Сделать эту хрень, да чтоб отвязались от меня поскорее с этим Access. :)
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Достучаться до поля таблицы в Access / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]