Не могли бы вы помочь мне с этой проблемой кодирования.
У меня есть 3 формы следующим образом:
1) frmAuditProceduresMain - основная форма, которая включает данные, которые будут использоваться позже.
2) frmAuditProceduresSummarySubFrom - это подчиненная форма frmAuditProceduresMain, упомянутой выше. Эта форма включает в себя кнопку, которая вызывает код.
3) frmAuditProceduresDetails - отдельная отдельная форма, которая открывается при нажатии кнопки в frmAuditProceduresSummarySubFrom.
И frmAuditProceduresSummarySubFrom, и frmAuditProceduresDetails содержат поле с именем имя_процедуры.
Сначала я открываю frmAuditProceduresMain, и через него я исправляю данные в поле имя_процесса его подчиненной формы (имя которого - frmAuditProceduresSummarySubFrom), затем нажимаю кнопку, расположенную рядом с этой записью.
Когда кнопка нажата, frmAuditProceduresDetails должен открыться, и, поскольку это первый раз, когда добавляется эта запись, только что добавленное значение имя_процедуры должно быть добавлено автоматически в поле имя_процедуры в frmAuditProceduresDetails вместе с другим полем из frmAuditProceduresSummarySubFrom, к которому также добавляется имя процедуры. для получения данных из полей основной формы (frmAuditProceduresMain).
Но если записи уже существуют, мне нужно, когда я нажимаю кнопку, я могу просматривать / редактировать эту запись специально в frmAuditProceduresDetails.
Я написал следующий код, но он возвращает все поля frmAuditProceduresDetails как пустые, и я не знаю почему:
Public Sub cmdAuditProceduresDetails_Click()
DoCmd.Save
Form.Refresh
DoCmd.OpenForm "frmAuditProceduresDetails", acNormal, , , acFormAdd, acWindowNormal
If Forms!frmAuditProceduresDetails!ProcedureName <> Me.ProcedureName Then
Forms!frmAuditProceduresDetails!ProcedureName = Me.ProcedureName
Forms!frmAuditProceduresDetails!ProcedureID = Me.ProcedureID
Forms!frmAuditProceduresDetails!AuCode = Me.Parent!AuCode
Forms!frmAuditProceduresDetails!AuName = Me.Parent!AuName
Forms!frmAuditProceduresDetails!AuditCycle = Me.Parent!AuditCycle
DoCmd.RunCommand acCmdRefresh
Else
DoCmd.OpenForm "frmAuditProceduresDetails", , , "ProcedureName = '" & Nz(Me.ProcedureName, "") & "'"
End If
End Sub
Буду благодарен, если кто-нибудь поможет мне в этом.
С уважением.
Raya.