请教：为何需要点击两次才能追加成功？

jackysu78

如下为商品资料窗体的"保存并新增"事件代码，请教为何需要点击两次才能成功追加（保存）？谢谢！

1. Dim strsql As String
   
2. 
   
3. strsql = "delete * from 商品资料_temp"
   
4. 
   
5. DoCmd.SetWarnings False
   
6. 
   
7. If IsNull(Me.货号) = True Then
   
8. MsgBox ("货号不能为空！"), vbOKOnly + vbExclamation, "错误提示"
   
9. End If
   
10. If IsNull(Me.商品名称) = True Then
    
11. MsgBox ("商品名称不能为空！"), vbOKOnly + vbExclamation, "错误提示"
    
12. End If
    
13. If IsNull(Me.商品分类) = True Then
    
14. MsgBox ("商品分类不能为空！"), vbOKOnly + vbExclamation, "错误提示"
    
15. End If
    
16. If IsNull(Me.单位) = True Then
    
17. MsgBox ("单位不能为空！"), vbOKOnly + vbExclamation, "错误提示"
    
18. End If
    
19. 
    
20. If IsNull(DLookup("货号", "商品资料", "货号 = ""& me.货号 &""")) = True Then
    
21. DoCmd.OpenQuery ("追加商品资料temp")     '从临时表追加到正式表
    
22. DoCmd.RunSQL strsql       ’删除临时表资料
    
23. DoCmd.GoToRecord , , acNewRec
    
24. MsgBox ("新的商品资料保存成功"), vbOKOnly + vbInformation, "保存成功"
    
25. Else
    
26. MsgBox ("新编货号已经存在，请重新编写！"), vbOKOnly + vbExclamation, "错误提示"
    
27. Me.货号.SetFocus
    
28. End If
    
29. DoCmd.SetWarnings True

复制代码

dashllh

光这样看  不方便   你能把提示信息发上来么

roych

语法没多大问题。不过，前面的If语句，7-18行可以用Or语句一次性解决，弹窗可以设置为“带*号数据为空，请填写。”，此外，GotoRecord之前，可以考虑先刷新下查询（Requery）。

jackysu78

谢谢！

roych

老汉的单引号部分写错了：
    If IsNull(DLookup("货号", "商品资料", "货号 = '"& me.货号 &"'")) = True Then

jackysu78

各位热心的老师，请给点指导意见哦，期待中。。。

jackysu78

版主，你好！
根据你的建议简化了代码，但还是没有解决问题，具体表现为：
1、第一次点击执行代码后，窗体显示为新的记录，但回到正式表中并没有将该记录追加进去；
2、重新点击新增商品资料（数据源为临时表），窗体仍然显示的是前面没有追加的数据，即以上代码没有执行追加查询，也没有执行删除语句，当再次点击“保存并新增”后，数据则保存成功。
以上还请版主指点迷津，再次感谢！盼！

todaynew

Dim strsql As String
Dim B as Boolean
B=IsNull(Me.货号) = False
B=B and IsNull(Me.商品名称) = False
B=B and IsNull(Me.商品分类) = False
B=B and IsNull(Me.单位) = False
If B=True Then
    If IsNull(DLookup("货号", "商品资料", "货号 = ""& me.货号 &""")) = True Then
        strsql="追加商品资料temp"
        currentdb.execute strsql
        strsql = "delete * from 商品资料_temp"
        currentdb.execute strsql
        DoCmd.GoToRecord , , acNewRec
        MsgBox "新的商品资料保存成功！"
    else
        MsgBox "新编货号已经存在，请重新编写！"
        Me.货号.SetFocus
    end if
else
    MsgBox "货号、品名、分类、单位均不能为空！"
End If

todaynew

roych 发表于 2011-9-4 03:34
老汉的单引号部分写错了：
    If IsNull(DLookup("货号", "商品资料", "货号 = '"& me.货号 &"'")) = Tru ...

复制过来的，没细看。

jackysu78

感谢二位版主！目前该问题本人仍没有得到解决，现传上附件，烦请帮忙指点，谢谢！
您可以试着点一下“新增”，简单录入资料后点击“保存并新增”或“保存并关闭”后，在“商品资料”列表中仍然不能显示，即保存不成功，重新点击“新增”或打开临时表和正式表对比查看亦可看出问题。盼复！