Лучше глобальных переменных неиспользовать и привыкнуть обходиться без них сразу.
Вот пример как вернуть введенную строку из
модальной формы.
Form2 (вызываемая):
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Dim OkExit As Boolean
Public Function ShowDialog() As String
OkExit = False
Me.Show vbModal 'Здесь выполнение процедуры останавливается и ждет выгрузки или сокрытия окна
If OkExit Then
ShowDialog = Text1.Text
End If
Unload Me
End Function
Private Sub btnOK_Click()
OkExit = True
Me.Hide
End Sub
Form1 (вызывающая):
1.
2.
3.
4.
5.
6.
Private Sub btnForm2_Click()
Dim s As String
s = Form2.ShowDialog
If s <> "" Then
MsgBox s
End If
End Sub
Если надо вернуть несколько полей данных, то передавать какую-л. структуру данных. Например рекордсет или пользовательский тип данных.
Вот пример возврата данных из диалога в вариантной переменной (грубый способ но без глобальных переменных):
Form3:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Dim OkExit As Boolean
Dim RetValue As Variant
Public Function ShowDialog(ByRef v As Variant) As Boolean
OkExit = False
RetValue = v
Me.Show vbModal 'Здесь выполнение процедуры останавливается и ждет выгрузки или сокрытия окна
ShowDialog = OkExit
v = RetValue
Unload Me
End Function
Private Sub btnOK_Click()
OkExit = True
RetValue( 1 ) = Text1.Text
RetValue( 2 ) = Text2.Text
Me.Hide
End Sub
Form1:
1.
2.
3.
4.
5.
6.
7.
Private Sub btnForm3_Click()
Dim v As Variant
ReDim v( 2 )
If Form3.ShowDialog(v) Then
MsgBox v( 1 ) & vbCrLf & v( 2 )
End If
End Sub
