打开窗体的问题，新人求救100分！

[quyuan]

用按钮打开一个窗口后，如何把窗口的记录定位至最后一个空白的记录上？以方便输入新记录？不要使用窗口的Form_Open函数，我想在按钮事件里实现，如何实现？

还有在记录输入完毕后，我想通过2个按钮来实现实现最终的提交和放弃，如何实现？

现在只有100分，不够我马上再加分，小弟新人，谢谢大家捧场阿！

[liuyann]

用按钮打开一个窗口后，如何把窗口的记录定位至最后一个空白的记录上？

Private Sub Command0_Click()
    DoCmd.OpenForm "Table1", , , , acFormAdd
End Sub

== 思想重于技巧 ==

[liuyann]

or

用按钮打开一个窗口后，如何把窗口的记录定位至最后一个空白的记录上？

Private Sub Command0_Click()
    Dim sFrmName As String
    sFrmName = "table1"     'your form name

    DoCmd.OpenForm sFrmName
    DoCmd.GoToRecord acDataForm, sFrmName, acNewRec
End Sub

== 思想重于技巧 ==

[liuyann]

第一种 与 第二种 差别于

第一种 仅显示空白新记录
第二种 可显示所以记录

== 思想重于技巧 ==

[liuyann]

还有在记录输入完毕后，我想通过2个按钮来实现实现最终的提交和放弃，如何实现？

这个没有特别好的解决方案

提交

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

== 思想重于技巧 ==

[liuyann]

推荐你看一下这些帮助

ACCESS 2003 Help 下载
VBA参考 下载
Access VBA 参考下载
JET SQL HELP 下载
ActiveX Data Objects 2.5 Reference 下载

== 思想重于技巧 ==