Private Sub ExBtn1_Click()
Dim str1 As String
str1 = MsgBox(" 数据已提交", vbOKOnly, "提示")
If str1 = vbOK Then
Data1.Recordset.AddNew
End If
End Sub
就是这断代码运行后出现这个错误

Private Sub ExBtn1_Click()
Dim str1 As String
str1 = MsgBox(" 数据已提交", vbOKOnly, "提示")
If str1 = vbOK Then
Data1.Recordset.AddNew
else
exit sub
End If
End Sub
或
Private Sub ExBtn1_Click()
Dim str1 As String
str1 = MsgBox(" 数据已提交", vbOKOnly, "提示")
If str1 = vbOK Then
Data1.Recordset.AddNew
else
msgbox("该数据没被写入!")
End If
End Sub
所有的都只有添加数据而已,要把数据保存起来还得用 data1.recordset.updata

你直接添加就行了,为什么还要用个msgbox的系统提示啊?
你的想法能说说吗?