在ACCESS窗体中未完成录入数据则不保存未完成的数据代码如何写

wpcpa

在ACCESS窗体中录入数据，如果未完成数据的录入即退出，则数据库里会增加一条未完成的记录。如何实现退出不保存记录，只有点了保存按钮才能保存记录呢？
另点保存时提示未填数据的项显示的代码如何写

[ 本帖最后由 wpcpa 于 2009-10-10 10:37 编辑 ]

Scarlett_88

在输入窗口中点击右键选择窗体设计
添加两个按钮，一个选择记录操作》保存设计，我的自动生成按钮为command10，另一个选择记录操作》删除记录，我的自动生成按钮为command11，自动生成的按钮编号会随你的按钮添加个数自动编号。
在窗体中点击事件生产器。你可以看到另一个代码窗口。里面自动生成了两段代码：
Option Compare Database

Private Sub Command10_Click()
On Error GoTo Err_Command10_Click

    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Exit_Command10_Click:
    Exit Sub

Err_Command10_Click:
    MsgBox Err.Description
    Resume Exit_Command10_Click
   
End Sub
Private Sub Command11_Click()
On Error GoTo Err_Command11_Click


    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_Command11_Click:
    Exit Sub

Err_Command11_Click:
    MsgBox Err.Description
    Resume Exit_Command11_Click
   
End Sub

在第一段代码中添加一个提示代码后变成如下代码：
Private Sub Command10_Click()
On Error GoTo Err_Command10_Click
If IsNull(姓名) Or IsNull(数学) Then
MsgBox "您输入的记录不完整"
Exit Sub
End If

    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Exit_Command10_Click:
    Exit Sub

Err_Command10_Click:
    MsgBox Err.Description
    Resume Exit_Command10_Click
   
End Sub
添加的代码
If IsNull(姓名) Or IsNull(数学) Then
MsgBox "您输入的记录不完整"
Exit Sub
End If
需要你将所有的字段都列出来，我这里就列了2个字段：姓名和数学，用 or isnull(字段) 添加你不想为空的字段。
记录不想保存，就点击删除记录按钮。

wpcpa

不错的做法，我用的是非绑定和AddNew属性搞定的。
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
   
rs.Open "cs", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.AddNew