Public Function a()
Forms![frm1]![Text0].SetFocus
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Forms![frm1]![Text0].Requery
Forms![frm1]![Text0].Dropdown
End Function
中的其它都去掉,只留
Public Function a()
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
End Function
就可以了,窗体中的代码也不要.也许说得不对,但是可以达到每个窗体都可以自动调用这个函数.