access窗体显示重复说明

Private Sub Command添加订单_Click()
On Error GoTo 添加甜品失败错误
If 订单编号 = "" Or IsNull(订单编号) = True Then
MsgBox "订单编号值为空！"
Exit Sub
End If
If 甜品单价 = "" Or IsNull(甜品编号) = True Then

MsgBox "甜品编号值为空！"
Exit Sub
End If
If 甜品单价 = "" Or IsNull(甜品单价) = True Then
MsgBox "甜品单价值为空！"
Exit Sub
End If

Dim now_money As Currency
now_money = Nz(DLookup("剩余金额", "会员表", "会员账号=" & Me.会员账号 & ""), 0)
If now_money < 甜品单价 Then
MsgBox "金额不足！剩余" & now_money & " 元"
Exit Sub
End If

Dim add_sql As String
add_sql = "insert into 子订单表 (订单编号,甜品编号,甜品单价,订单备注) walues (" & 订单编号 & " ,'" & 甜品编号 & "', " & 甜品单价 & " ,'" & 订单备注 & "')"
DoCmd.RunSQL update_sql

update_sql = "Update 会员表 Set 剩余金额=" & now_money - 甜品单价 & " Where 会员账号=" & 会员账号
DoCmd.RunSQL update_sql

Me.订单甜品.Requery

MsgBox "添加甜品成功！"
Exit Sub
添加甜品失败错误:
MsgBox "添加甜品失败！"
End Sub

Private Sub Form_Close()
Forms("订单列表").Requery
End Sub

Private Sub 甜品名称_AfterUpdate()
Me.甜品单价 = Nz(DLookup("甜品单价", "甜品表", "甜品名称='" & Me.甜品名称 & "'"), 0)
Me.订单备注 = ""
End Sub