как передавать данные между двумя формами в моей базе данных доступа - PullRequest
0 голосов
/ 27 апреля 2020

У меня есть основная форма (данные 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] для данных, которые будут переданы ... Я не знаю, как это исправить. Ценим помощь!

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...