Передача параметров между формами в MS Access

Question

Я создал регистрационную форму с именем login, где имя пользователя вводится в текстовое поле txtEmployee, и мне нужно отобразить его на второй странице в другой форме в MS Access.

Answer 1

DoCmd.OpenForm позволяет передавать произвольное значение в качестве последнего параметра. Это значение можно получить в новой форме Me.OpenArgs:

' Invoked by some Button on the first form ' 
Sub GoToSecondPage() 
    DoCmd.OpenForm "MySecondPage", acNormal, , , , , txtEmployee.Value 
End Sub 

' Second form ' 
Sub Form_Open(Cancel As Integer) 
    If Not IsNull(Me.OpenArgs) Then 
     lblShowEmployeeName.Value = Me.OpenArgs 
    End If 
End Sub 

(. Пример кода непроверенного)

Answer 2

Лично я бы передать их через открытые аргументы при открытии формы. Например, из формы А ваш будет писать

DoCmd.OpenForm "frmB", , , , , acDialog,”Badger” 

А потом в OnOpen случае формы B вы можете захватить то, что вы послали, как этот

Me.txtSomething=Me.OpenArgs 

Вы можете передавать только одну вещь, однако, что я делаю много пропускает строку с разделителями в открытых аргументах и ​​затем разделяет это.

Answer 3

пара идей ...

Используйте событие AfterUpdate на поле Логин имя пользователя, чтобы написать имя глобальной переменной, а затем заполнить поле на второй странице с событием OnLoad.

Или, если вы планируете оставить журнал в виде открыт в любое время вы можете установить значение по умолчанию для поля непосредственно = [Формы]! [LoginForm]! [UserName]

Answer 4

Почему бы не создать публичная функция, которая хранит &/или извлекает глобальную переменную, которую вы сохраняете после выполнения первой формы? Это позволит вам не только использовать его в одной или нескольких формах, но и как критерии в запросе (например, для возврата записей, которые соответствуют сохраненному имени пользователя).

Я согласен, что это «поддельная» система безопасности, но есть также моменты, когда этого достаточно для ваших нужд. Я реализовал это раньше, когда я сопоставляю имя пользователя строки среды с записью в пользовательской таблице.

BTW, я рассматриваю эту функцию как персонализацию, а не безопасность.

Просто мысль.

Answer 5

Вы можете передать строку с разделителями в качестве параметра OpenArgs:

DoCmd.OpenForm FormName:="miscForm", OpenArgs:=paramstring 

Вот процедура для обработки колонны труб с разделителями, переданного в качестве параметра DoCmd.OpenForm:

Dim Pstring As Variant 

If Len(Me.OpenArgs) > 0 Then 
    Pstring = Split(Me.OpenArgs, "|") 
    var1 = Pstring(0) 
    <etc..> 
End If