Private Sub Toolbar2_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1 '前进
Data4.Recordset.MovePrevious
If Data4.Recordset.BOF = True Then
Data4.Recordset.MoveFirst
End If
Case 2 '后退
Data4.Recordset.MoveNext
If Data4.Recordset.EOF = True Then
Data4.Recordset.MoveLast
End If
Case 3 '增加
Data4.Recordset.AddNew
Toolbar2.Buttons(1).Enabled = False
Toolbar2.Buttons(2).Enabled = False
Toolbar2.Buttons(3).Enabled = False
Toolbar2.Buttons(4).Enabled = True
Toolbar2.Buttons(5).Enabled = True
Toolbar2.Buttons(6).Enabled = True
Case 4 '确定
On Error GoTo update_error
If Text6.Text = "" Then
MsgBox "必须填写！", 0, "提示"
End If
Data4.Recordset("名称") = Text31.Text
Data4.Recordset("供应商") = Text6.Text
Data4.Recordset("数量") = Text12.Text
Data4.Recordset("单价") = Text13.Text
Data4.Recordset("经手人") = Text11.Text
Data4.Recordset("日期") = Date
Data4.Recordset("时间") = Time
Data4.UpdateRecord
Data4.Recordset.Bookmark = Data4.Recordset.LastModified
Data7.Recordset.Edit
’=========================第二次添加记录时提示没有通过Edit或AddNew 修改数据库
Data7.Recordset("数量") = Val(Text12.Text) + Val(Text30.Text)
Data7.Recordset.Bookmark = Data7.Recordset.LastModified
Data7.Recordset.Update
MsgBox "货物库存已更新！"
update_error:
If Err.Number = 3020 Then MsgBox "请添加记录！ 错误：" & Err & "," & Err.Description, 0, "提示"
Unload Me
End If
Toolbar2.Buttons(1).Enabled = True Toolbar2.Buttons(2).Enabled = True Toolbar2.Buttons(3).Enabled = True Toolbar2.Buttons(4).Enabled = True
Toolbar2.Buttons(5).Enabled = True Toolbar2.Buttons(6).Enabled = True Case 5 '取消
On Error GoTo canceerr
Data4.Recordset.Edit
Data4.Recordset.CancelUpdate
Toolbar2.Buttons(1).Enabled = True
Toolbar2.Buttons(2).Enabled = True
Toolbar2.Buttons(3).Enabled = True
Toolbar2.Buttons(4).Enabled = True
Toolbar2.Buttons(5).Enabled = True
Toolbar2.Buttons(6).Enabled = True
canceerr:
If Err.Number = 3021 Then
MsgBox "没有记录！ 错误：" & Err & "," & Err.Description, 0, "提示"
End If
Case 6 '删除
On Error GoTo del_error
a = MsgBox("真的要删除吗？", vbExclamation + vbOKCancel + vbApplicationModal, "删除记录")
If a = 1 Then
Data4.Recordset.Delete
Data4.Recordset.MoveLast
End If
If a = 2 Then Exit Sub
del_error:
If Err.Number = 3426 Then
MsgBox "已经全部删除！ 错误：" & Err & "," & Err.Description, 0, "提示" Unload Me
End If
End Select
End Sub

第二次添加记录时提示没有通过Edit或AddNew 修改数据库 ====求赐教啊！！！！

额 没有人帮我吗？说一下原理也行啊

问题描述的不够详细哈

有可能数据库字段长度不够

跟数据库字段有什么联系啊？

是报错，还是第二次数据没有更改成功？

数据长度不够肯定有问题啊

更新第二次数据的时候 就弹出 提示没有通过Edit或AddNew 修改数据库 数据也没有更新成功

数据是对应的 应该不存在数据长度不够这个问题