7,712
社区成员
发帖
与我相关
我的任务
分享
Private Sub Command7_Click()
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.Close
End Sub
Private Sub Command8_Click()
DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
DoCmd.Close
End Sub
Private Sub Command0_Click()
Dim sFrmName As String
sFrmName = "table1" 'your form name
DoCmd.OpenForm sFrmName
DoCmd.GoToRecord acDataForm, sFrmName, acNewRec
End Sub
Private Sub Command0_Click()
DoCmd.OpenForm "Table1", , , , acFormAdd
End Sub