|
|
|
| Есть 2 модуля класса:
Option Compare Database
Option Explicit
Public gvVarProduct As Integer
Private Sub Поле20_DblClick(Cancel As Integer)
gvVarProduct = 0
DoCmd.OpenForm "фТовар", , , , , acDialog
If gvVarProduct = 0 Then Exit Sub
Поле20 = gvVarProduct
Me.Поле20.Requery
End Sub
и
Option Compare Database
Option Explicit
Public gvVarProduct As Integer
Private Sub ИД_DblClick(Cancel As Integer)
gvVarProduct = Me.ИД
DoCmd.Close acForm, Me.Name
End Sub
Как можно убедиться, что переменная gvVarProduct принимает значения, а не остаётся пустой? Дело в том, что по дабл клику в поле 20 (это поле ИД_Товары таблицы Заказ, связано с полем ИД таблицы Товары) открывается форма Товары в режиме диалога, по дабл клику на её ИД (ID) она закрывается., но значение в поле 20 не появляется. Внесение значения вручную происходит нормально, как и удаление. В чём может быть дело, вернее, как проверить, заносится ли значение в переменную?
Заранее спасибо. | |
|
| |
|
|
|
|
Public gvVarProduct As Integer
|
Во первых: As Long
Во вторых: Эта переменная должна быть глобальной для проекта, то есть должна быть декларирована в общем модуле и только один раз, а не в каждом модуле. | |
|
| |
|
|
|
| Lukas - Вы гений. Не потому что ответили на сложный вопрос, а потому что заставили меня схватиться за голову. Спасибо Вам огромное!!!
Всё получилось!!! | |
|
| |