按下按钮后访问

Question

在访问中，我有'主'表单和一个按钮，在弹出窗口中打开另一个访问表单来填充日期。用户在那里输入日期和评论，然后按'保存'按钮。我希望这个日期立即显示在主窗体中。

The code to open new form: 
Private Sub btn_P_Phase_Click() 
Id = Me.txt_ID.Value 
If Me.txt_ID > 0 Then 
    DoCmd.OpenForm "frm_P_Phase", acNormal, , , , acWindowNormal 
End If 
End Sub 

而在另一种形式的代码来保存日期和评论：

Private Sub btn_Save_Click() 
Dim int_msg As Integer 
Dim cCont As Control 
Dim rs As ADODB.Recordset 
Dim sConnString As String 
Me.txt_ID.SetFocus 
Id = Me.txt_ID.Value 
P_comment = Me.txt_P_comment.Value 
P_Date = Me.txt_P_phase_date.Value 
CurrentDb.Execute ("UPDATE CI SET Status = 'Plan', P_Date ='" & P_Date & "', P_comment = '" & P_comment & "' WHERE ID = " & Id & ";"), dbSeeChanges 
DoCmd.Close acForm, "frm_P_Phase", acSaveYes 
End Sub 

我试着写类似的东西在我的主要形式有：

Private Sub frm_P_Phase_AfterUpdate() 
Me.txt_P_Dates.Value = Forms!frm_P_Phase!txt_P_phase_date 
DoCmd.RunCommand acCmdRefreshPage 
End Sub 

Answer 1

解决。在关闭弹出式窗体上创建新事件以保存数据。

Private Sub Form_Close() 
Forms!frm_Kaizen_Cards!txt_P_Dates.Value = Forms!frm_P_Phase!txt_P_phase_date.Value 
End Sub