請問這個追加要如何改善?

lingsum

按紐後,會把open 里的全部資料 追加到 out, 條件是= 主窗體里的"Me.yhpo"

如何避免出現圖中的錯誤? 謝謝
============================


Private Sub Command14_Click()
Dim sqls As String
If Not IsNull(yhpo) Then
sqls = "INSERT INTO out(DNn,序號,數量)"
sqls = sqls & "SELECT'" & Me.[DNn] & "' AS Expr1, Open.序號 , Open.tobe "
sqls = sqls & "From [Open]"
sqls = sqls & "WHERE (((open.YH廠單)='" & Me.yhpo & "'));"
DoCmd.RunSQL (sqls)
Me.open.Requery
Me.DNs1.Requery
End If
Exit Sub
End Sub
============

[ 本帖最后由 lingsum 于 2008-7-29 15:11 编辑 ]

tmtony

可能是目标表中已有重复的记录导致的,可在插入前先清除已有的重复数据