Private Sub 编号_Click()
Me![预测子窗体].SetFocus  '移至子窗体
DoCmd.FindRecord Me![编号], , , , , acAll  '寻找
End Sub

点击下载此附件