Достучаться до поля таблицы в Access - VB
Формулировка задачи:
День добрый!
Имеем допустим две таблицы:
Т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" первой таблицы. Уточню что, первая таблица - мастер, а вторя подчиненная.
Имеем допустим две таблицы:
Т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" первой таблицы. Уточню что, первая таблица - мастер, а вторя подчиненная.
Решение задачи: «Достучаться до поля таблицы в Access»
textual
Листинг программы
<font color="blue">Private</font> <font color="blue">Sub</font> Shipped_places_AfterUpdate() <font color="blue">If</font> fldC <= CInt(DLookUp(<font color="green">"A"</font>,<font color="green">"Tabl1"</font>,<font color="green">"N = '"</font> & fldN & <font color="green">"'"</font>)) or _ fldC >= CInt(DLookUp(<font color="green">"B"</font>,<font color="green">"Tabl1"</font>,<font color="green">"N = '"</font> & fldN & <font color="green">"'"</font>)) <font color="blue">Then</font> MsgBox(...) <font color="blue">End</font> <font color="blue">Sub</font>
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д