Использовать OpenArgs
аргумент DoCmd.OpenForm
метода
- Когда вы нажимаете
Add Quotes
кнопку, чтобы открыть форму Котировки, отправьте информацию / связанный идентификатор с помощью параметра openArgs. - В событии загрузки формы «Котировки» вы можете получить информацию, переданную с использованием
Me.OpenArgs
См. Ниже пример кода
На кнопке Добавить котировки нажмите кнопку
Private Sub AddQuotes_Click()
DoCmd.OpenForm "frmQuotes", OpenArgs:=me.ClientID
End Sub
Форма котировок
Private Sub Form_Load()
Dim varArgs
varArgs = Me.OpenArgs
'Fill the controls with recordset data
If Not IsNull(varArgs) Then
With CurrentDb.OpenRecordset("SELECT * FROM tblClients WHERE ClientID = " & varArgs, dbOpenForwardOnly )
Me.ClientID = !ClientID
Me.ClientName = !ClientName
Me.ClientAddress = !ClientAddress
Me.ClientPhone = !ClientPhone
Me.ClientEmail = !ClientEmail
.Close
End With
End If
End Sub