怎样让在追加查询时,发现有重复数据时提示

Private Sub Command8_Click()
POChk = DCount("[PO]", "表A", "[PO]='" & Me.PO & "' And [产品编号]='" & Me.产品编号 & "' And [数量]=" & Me.数量)
If POChk <> 0 Then
Response = MsgBox("表内已有相同数据，是否继续追加！", vbYesNo, "提示")
If Response = vbYes Then
DoCmd.RunSQL "insert into 表A (PO,产品编号,数量) values ('" & Me.PO & "','" & Me.产品编号 & "','" & Me.数量 & "')"
MsgBox "数据已添加，请添加下一条！", vbInformation, "提示"
Me.产品编号 = Null
Me.数量 = Null
ElseIf Response = vbNo Then
MsgBox "请重新选择！", vbInformation, "提示"
Me.产品编号 = Null
Me.数量 = Null
End If
Else
DoCmd.RunSQL "insert into 表A (PO,产品编号,数量) values ('" & Me.PO & "','" & Me.产品编号 & "','" & Me.数量 & "')"
MsgBox "数据已添加，请添加下一条！", vbInformation, "提示"
Me.PO = Null
Me.产品编号 = Null
Me.数量 = Null
End If
End Sub

运行后有如下问题：

1. 如有重复记录每次只能追加一条，在实际应用中不实用，因按PO查询到的记录有几十条。

2. 当不想追加点击“否”后会弹出错误调整窗口。

3.子窗体下面的“产品编号”和“数量”文本框是否为POChk = DCount("[PO]", "表A", "[PO]='" & Me.PO & "' And [产品编号]='" & Me.产品编号 & "' And [数量]=" & Me.数量)而设？我觉得可以优化。

另，为何不直接运行已设置好的“追加查询”，而另写语句“insert into 表A (PO,产品编号,数量) values ('" & Me.PO & "','" & Me.产品编号 & "','" & Me.数量 & "')”？

是否我太菜问题太多了？

Top

网行者发表于：2011-03-31 06:24:36

1、我的示例是逐条追加的

2、当不想追加点击“否”后会弹出错误调整窗口：

可能是你复制时漏了前面的变量声明语句，下面三条要同时复制过去

   Option Explicit
   Dim POChk As Variant
   Dim Response As String

3、子窗体下面的“产品编号”和“数量”文本框确实是为POChk = DCount("[PO]", "表A", "[PO]='" & Me.PO & "' And [产品编号]='" & Me.产品编号 & "' And [数量]=" & Me.数量)而设，设计完成后将其属性设为”不可见“即可。应该有其它方法优化

4、为何不直接运行已设置好的“追加查询”：答案见一楼

5、是否我太菜问题太多了？

大家彼此彼此，共同进步

6、本题其它解法：我想能否用循环语句，逐条判定再选择是否追加，但我目前功力不够。如果不是选择追加的话，可以先查找不匹配项，再一次追加进去。

好啦，就到这里！

Top

Lee 发表于：2011-03-31 11:35:25

哦原来如此，我再研究消化一下，非常感谢你的回复，也欢迎其他朋友一齐想办法。

Top

网行者发表于：2011-04-03 06:54:38

点击下载此附件

操作说明：