Как в форме Access в коде VBA воспользоваться значением переменой из другой формы

@AlbertBE · Регистрация: 05.02.2022

Студворк — интернет-сервис помощи студентам

Здравствуйте!

В Access имеются две формы - "Форма1" и "Форма 2".
В "Форма1" в коде VBA переменной "x1" присвоено значение 123456789

Подскажите, как в "Форма2" в коде VBA можно считать (для расчетов) значение переменной "x1" присвоенное в коде VBA в "Форма1"

Желательно бы фрагмет кода VBA на "Форма1" и "Форма2"

@Eugene-LS · 29.03.2024, 07:41

Сообщение от AlbertBE

если нужно передать например значения сразу нескольких трех перменных ddd1, ddd2, ddd3

В форме 1:

Visual Basic
1
2
3
4
5
6
7
8
9
10
Dim ddd1, ddd2, ddd3
Dim sOpenArgs As String
 
    ddd1 = "Отвари потихоньку калитку!"
    ddd2 = "(в подсоленной воде)"
    ddd3 = "При температуре не выше 726-ти град. !"
    
' Сборка и запуск
    sOpenArgs = ddd1 & ";" & ddd2 & ";" & ddd3
    DoCmd.OpenForm "Форма 2", , , , , , sOpenArgs

В форме 2:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Form_Load()
Dim vArr As Variant, iVal As Integer
 
    vArr = Split(Me.OpenArgs, ";")
 
    For iVal = 0 To UBound(vArr)
        If iVal < 2 Then
            MsgBox vArr(iVal), vbInformation, "Рецепт:"
        Else
            MsgBox vArr(iVal), vbExclamation, "Внимание!"
        End If
    Next
End Sub

@AlbertBE · 29.03.2024, 08:41 **[ТС]**

Сообщение от shanemac51

может еще что-то забыли?

вопросы появляются по мере из появления

@Capi · 29.03.2024, 09:01

Сообщение от AlbertBE

Но как быть если нужно передать например значения сразу нескольких трех перменных ddd1, ddd2, ddd3

Если после открытия второй формы первая форма остаётся открытой, то ничего никуда передавать не надо.
Public переменные и так доступны во второй форме.

Если же первая форма закрывается после открытия второй формы, то нужно собрать эти три значения в строку OpenArgs через какой-то разделитель, например, |, а во второй форме разбить эту строку функцией Split.

Можно ещё объявить эти переменные в стандартном (общем) модуле.
Имеет смысл только, если первая форма закрывается.
И опять ничего передавать не понадобится.

@alvk · 29.03.2024, 13:07

Сообщение от AlbertBE

вопросы появляются по мере из появления

абырвалг

@SDKU · 29.03.2024, 13:24

Сообщение от AlbertBE

Но как быть если нужно передать например значения сразу нескольких трех перменных

Если переменных не много(3 как Вы хотите) можно и так:OpenArgs="ЗначениеDdd1,ЗначениеDdd2,ЗначениеDdd3"
На открытии формы:

Visual Basic
1
2
3
4
a=Split(OpenArgs,",")
Me.ctl=a(0)
Me.ctl1=a(1)
Me.ctl2=a(2)

@Jamaica · 29.03.2024, 16:28

Вариант без OpenArgs, публичных и глобальных переменных, записей в таблицы и т.п.,
применим в мульти инстансных реализациях форм
и изменяющихся во времени значениях переменных первой формы:

@Capi · 29.03.2024, 16:36

Jamaica,

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

@Jamaica · 29.03.2024, 16:46

Сообщение от Capi

А первая форма при этом должна быть открыта?

Там два варианта реализации,
один из них (закомментированный) предполагает злой случай с закрытой первой формой.

@Eugene-LS · 29.03.2024, 16:50

Сообщение от Jamaica

Вариант без OpenArgs, публичных и глобальных переменных, записей в таблицы и т.п.

Во!!! - Субклассинг в ход уже пошел ...

...
Ожидаем решений через API и облачное хранилище ...

Кликните здесь для просмотра всего текста

@Jamaica · 29.03.2024, 20:36

Сообщение от Eugene-LS

Ожидаем решений через ... облачное хранилище ...

По "многочисленным просьбам телезрителей",
простенькое решение с "домашним хранилищем".

@AlbertBE · 30.03.2024, 07:56 **[ТС]**

Всем спасибо за помощь!
Внимательно изучил все рекомендации (буквально неделю назад начал самостоятельно изучать access и VBA, до этого с модулями не сталкивался).

В итоге в модуле создал глобальные переменные ddd1, ddd2, ddd3 , вот так получилось и работает:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
'1) создал модуль  Module1
 
Option Compare Database
Public ddd1
Public ddd2
Public ddd3
 
'2) Форма1 "Тест1"
Option Compare Database
 
Private Sub Кнопка_Click()
  ddd1 = 111111111
  ddd2 = 222222222
  ddd3 = 333333333
  DoCmd.OpenForm "Тест2"
End Sub
 
'2) Форма2 "Тест2"
Option Compare Database
Private Sub Form_Load()
 
MsgBox "Значения ddd1,ddd2,ddd3: " & ddd1 & ", " & ddd2 & ", " & ddd3
  
End Sub

Новые блоги и статьи Все статьи Все блоги /
Знаете, от чего появляется стресс? kumehtar 15.07.2026 Стресс появляется оттого, что вы, зная как поступить правильно, делаете наоборот. Ларри Уингет	Нас бьют, а мы крепчаем? Какая чушь! kumehtar 15.07.2026 Вот это вот бытующее мнение, что человек меняется только под действием проблем, всегда считал вредоносным. Поверь, от проблем у людей появляются не изменения, а нервное расстройство и ПТСР. А. . .	сукцессия 29. Переход от одних деревьев на другие делать более или менее вероятностным? anaschu 12.07.2026 Насколько смена типов микоризы — исключительное событие в двухвековой сукцессии? Оценка вероятности в пространстве параметров В текущей версии модели успешно реализован ключевой механизм. . .	сукцессия 27. Думаю, как переделывать уже написанную статью с планами на сукцессию. anaschu 12.07.2026 Анализ соответствия модели требованиям Реализованные компоненты: Механизм закисления почвы через протонную помпу Конкуренция между типами микориз pH как триггер сукцессии C/ P соотношение. . .
Сукцессия 26. Мат модель создана. anaschu 12.07.2026 Модель смены растительных сукцессий посредством управления грибами работает внутри небольшой ячейки почвы, восстанавливающейся после пожара, где ненадолго бывшее царство хвойных снова захватили. . .	Решил проблему с ошибкой пагинации сообщений с сервера на алгоритме обхода дерева "Эстафета хвоста". Hrethgir 12.07.2026 Проблема была в том, что удалялась именно новая кнопка, а не старая. Ни один ИИ не обнаружил это, а сам я смог только когда с работой стало попроще и когда заставил работать будущее автономное. . .	сукцессия 25. Хронология ошибок anaschu 12.07.2026 # От 50-тонного гриба до устойчивого леса: хроника ошибок при построении модели вековой сукцессии микоризы ## О чём эта статья В процессе построения ОДУ-модели (система дифференциальных. . .	сукцессия 24. Промежуточное общее описание модели anaschu 12.07.2026 Хендофф: модель АМ→ЭКМ сукцессии микоризы (ризосфера, 50 лет) Содержание проекта Симуляция вековой (50 лет) экологической сукцессии в почве леса Основные участники: АМ-гриб, ЭКМ-гриб,. . .

@AlbertBE 1 / 1 / 0 Регистрация: 05.02.2022 Сообщений: 32

	Как в форме Access в коде VBA воспользоваться значением переменой из другой формы 28.03.2024, 02:27. Показов 2677. Ответов 30 Метки access, vba, vba access (Все метки) Здравствуйте! В Access имеются две формы - "Форма1" и "Форма 2". В "Форма1" в коде VBA переменной "x1" присвоено значение 123456789 Подскажите, как в "Форма2" в коде VBA можно считать (для расчетов) значение переменной "x1" присвоенное в коде VBA в "Форма1" Желательно бы фрагмет кода VBA на "Форма1" и "Форма2" 0

@Capi Модератор 6231 / 2909 / 707 Регистрация: 12.06.2016 Сообщений: 7,839
	29.03.2024, 16:36
	Jamaica, А первая форма при этом должна быть открыта? Спрашиваю, так как сейчас с телефона и не могу посмотреть. 0