У меня есть основная форма (данные PEP) с данными моего клиента и вторая форма, которая содержит информацию о компании, к которой подключен клиент. При вводе данных клиента в основной форме я хочу дважды щелкнуть по полю [ConnectedEntity] и открыть FrmConnectedEntity, чтобы ввести Название компании, Тип отрасли и установить флажок, если [Регулируется]. Когда я ввожу информацию и закрываю FrmConnectedEntity, я хочу, чтобы те же поля были заполнены в моей форме сведений о PEP. Я нашел какой-то код через видео с YouTube. Это работает для одного поля, но я не знаю, как заставить его передавать данные в другие поля. Вот код для деталей PEP (основная форма):
Private Sub ConnectedEntity_DblClick(Cancel As Integer)
Dim strFrmName As String
strFrmName = "FrmConnectedEntity"
DoCmd.OpenForm strFrmName
With Forms(strFrmName)
Set .prpTextBox = Me.ConnectedEntity
End With
End Sub
И вот весь код для FrmConnectedEntity (всплывающая форма):
Option Compare Database
Option Explicit
Private oText As TextBox
Property Set prpTextBox(lngTextBox As TextBox)
Set oTextBox = lngTextBox
End Property`
Property Get prpTextBox() As TextBox
Set prpTextBox = oTextBox
End Property
Private Sub Command21_Click()
If Not IsNull(Me.ConnectedEntity) Then
'MsgBox ">>>" & Me.Form.ConnectedEntity.Value
prpTextBox.Value = Me.Form.ConnectedEntity.Value
If Not IsNull(Me.IndustryName) Then
'MsgBox ">>>" & Me.Form.IndustryName.Value
prpTextBox.Value = Me.Form.IndustryName
End If
End If
End Sub
Я понимаю, что проблема, вероятно, в код, связанный с формой PEP Details, потому что нет никакого установленного свойства для поля [IndustryName] для данных, которые будут переданы ... Я не знаю, как это исправить. Ценим помощь!