又添新示例：常见子窗体应用示例之查询并定位记录

suzhan

GOOD!

suzhan

另我发现焦点如果在主窗体时，想删除子窗体中的数据时，会提示删除主窗体的记录，如果焦点在子窗体时会提示子窗体的记录，现在只点删除子窗体的当前记录，如果解决得了呢？  代码如下rivate Sub Command46_Click()

On Error GoTo Errlbl:    '使焦点移到前次的控件上

    Application.Screen.PreviousControl.SetFocus

   

    '删除记录

    DoCmd.RunCommand acCmdDeleteRecord

   

Exitlbl:

    Exit Sub

Errlbl:

    If Err.Number = 2046 Then MsgBox "当前可能是新记录或是光标没有移到你要删除的记录上去.", vbCritical, "消息"

End Sub