VBA управляет ссылкой (формой) глобальных переменных?

Question

ОК, я был вне программирования Access для нескольких версий, но я мог бы поклясться, что имел возможность указывать элементы управления в глобальных переменных формы. Пример кода следующим образом:

Option Compare Database 
Option Explicit 
Dim Testvar As String 

Private Sub Form_Load() 
Testvar = "Load" 
End Sub 

Private Sub Form_Open(Cancel As Integer) 
Testvar = "open" 
End Sub 

Private Sub Text0_Click() 
Testvar = "settest" 
End Sub 

я должен быть в состоянии поставить текстовое поле в элементе управления, который может видеть переменную TestVar, но управление не делают этого. Кроме того, я имел обыкновение делать это с источником записи формы.

Итак, вопросы - Я схожу - это было невозможно? Или я забыл, как обратиться к форме?

А затем самый важный вопрос - какой лучший способ обойти это?
Наиболее распространенный способ использования этого метода - передать OpenArgs (в этом случае записывать ключи), который затем анализируется на глобальные vars, а затем несколько элементов управления отображают открытые аргументы и/или отображают значения, отображаемые с помощью клавиш ,

Мне очень жаль, что приходится строить подпрограммы, которые восстанавливают и загружают источники записи для элементов управления. Надеюсь, что кто-то знает лучший подход

Answer 1

В дополнение к существующим процедурам событий, вы можете добавить функцию в модуле формы, которая извлекает значение модуля Testvar переменная.

Function GetTestvar() As String 
    GetTestvar = Testvar 
End Function 

Затем используйте =GetTestvar() как источник управления для Text0.

Answer 2

Вы должны фактически установить значение текстового поля. Невозможно (насколько мне известно) привязать текстовое поле к переменной.

Option Compare Database 
Option Explicit 

Private Sub Form_Load() 
    Text0.Value = "Load" 
End Sub 

Private Sub Form_Open(Cancel As Integer) 
    Text0.Value = "open" 
End Sub 

Private Sub Text0_Click() 
    Text0.Value = "settest" 
End Sub 

Конечно, вы можете сохранить значение в переменной и использовать его, чтобы установить значение вместо этого, но это не имеет никакого смысла, чтобы сделать это в этом простом примере.

Answer 3

Коллекция TempVars - это функция, введенная в Access 2007. Итак, если ваша версия доступа> = 2007, вы можете использовать TempVar для хранения строкового значения. Затем вы можете использовать TempVar в качестве источника управления для вашего текстового поля.

С =[TempVars]![Testvar] в качестве источника управления для Text0 следующие процедуры проведения событий делают то, что вы просили.

Private Sub Form_Open(Cancel As Integer) 
    TempVars.Add "Testvar", "Open" 
End Sub 

Private Sub Form_Load() 
    TempVars("Testvar") = "Load" 
End Sub 

Private Sub Text0_Click() 
    TempVars("Testvar") = "settest" 
    Me.Text0.Requery 
End Sub 

Примечание: [TempVars]![Testvar] будут доступны по всей заявке на оставшуюся часть сессии. Если это является проблемой в вашей ситуации, вы можете удалить TempVar в форме, близкой: TempVars.Remove "Testvar"

Answer 4

Требование было: показать идентификатор входа пользователя приложения для всех форм в приложении.

Вот как я реализовал это:

Create a module: module_init_globals 
with the following code: 

Option Compare Database 

'Define global variables 

Global GBL_LogonID as string 

Option Explicit 

Public Sub init_globals() 

    'Initialize the global variables 

    'Get_Logon_Name is a function defined in another VBA module that determines the logon ID   of the user 

    GBL_LogonID = Get_Logon_Name() 

End Sub 


On the main/first form - we need to call the module that will initialize the global variables: 

In the code for "on open" event I have: 

Private Sub Form_Open (Cancel as Integer) 
    call init_globals 
End Sub 




then on each of the forms in the app, I have a text control - txtUserID to display the logon id of the user 

and I can set it's value in the "on open" event of the form. 

txtUserID.value = GBL_LogonID