Форумы HiProg.com - MS ACCESS, VBA, VB

ник: Lukas
В модуле формы ввода:

Public Event Closed(Number As String, Cashier As String, Window As String) Private Sub Form_Unload(Cancel As Integer)     RaiseEvent Closed(Me.txtNumber & vbNullString, Me.txtCashier & vbNullString, Me.txtWindow & vbNullString) End Sub

В модуле вызывающей формы:

Private WithEvents frmIn As Form_frmInput Private strNumber As String Private strCashier As String Private strWindow As String Private Sub btn1_Click()     With New Form_frmInput         Set frmIn = .Form         .Modal = True 'по желанию         .Visible = True     End With End Sub Private Sub frmIn_Closed(Number As String, Cashier As String, Window As String)     strNumber = Number     strCashier = Cashier     strWindow = Window 'Debug.Print strNumber, strCashier, strWindow          Set frmIn = Nothing End Sub