Office中国论坛/Access中国论坛

标题: [求助]弹出窗体关闭后,更新主窗体的查询 [打印本页]

作者: Lightsome 时间: 2010-10-8 10:44
标题: [求助]弹出窗体关闭后,更新主窗体的查询
本帖最后由 Lightsome 于 2010-10-8 10:47 编辑

对表BB，做了一个查询qryBB，只查询W为－1的数据。

BB dEHW
01-A10-AYYY6551615-3S

-1

01-A11-ASSS6551615-1S

-1

01-A12-AFFF6551615-5S

-1

01-A10-BYYY-SD6551615-4S

-1

01-A10-CYYY-SD16551615-5S

-1

在窗体frmBB中，进行模糊查询"a10"，得出三条记录
frmBB_sub dEHW
01-A10-AYYY6551615-3S

-1

01-A10-BYYY-SD6551615-4S

-1

01-A10-CYYY-SD16551615-5S

-1

双击d列中的其中一条记录，会弹出一个窗口，按SAVE键后，用代码将该记录的W值改为False值。保存后按CLOSE键退出，回到主窗体。

我希望回到主窗体后，主窗体中的子窗体中的记录能自动更新，即只显示二条记录，请问如何做到？多谢多谢！

弹出窗体中的代码：

Option Compare Database
Private Sub btmSave_Click()
On Error GoTo Err_btmSave_Click
Dim strPeriod As String
Dim strPN As String
Dim n As String

strPeriod = CurrentPeriod
strPN = Me.d
stDocName_1 = "update BB SET BB.W=FALSE WHERE (((BB.D)= '" & strPN & "'))"
CurrentDb.Execute stDocName_1

Me.d.SetFocus
Me.btmSave.Enabled = False

Exit_btmSave_Click:
Exit Sub
Err_btmSave_Click:
MsgBox Err.Description
Resume Exit_btmSave_Click
End Sub
Private Sub btmClose_Click()
On Error GoTo Err_btmClose_Click
Dim n As String
If Me.btmSave.Enabled = False Then
      DoCmd.Close
      Forms("frmBB").Requery
Else
      Response = MsgBox("Data has not been saved, Do you want to save it now? ", 4 + 32 + 256, "Notice")
      If Response = vbYes Then
         Call btmSave_Click
         DoCmd.Close
         Forms("frmBB").Requery
      Else
         If Me.Dirty Then DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
         DoCmd.Close
      End If
End If
Exit_btmClose_Click:
Exit Sub
Err_btmClose_Click:
MsgBox Err.Description, vbInformation, SoftName
Resume Exit_btmClose_Click
End Sub

作者: ui 时间: 2010-10-8 11:15
设置条件,再设置子窗体.form.requery是否可行?

作者: Lightsome 时间: 2010-10-8 11:19
搞掂，没想到这么简单，多谢UI

把 Forms("frmBB").Requery
改成 Forms("frmBB").Form.frmBB_sub.Requery

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)