Office中国论坛/Access中国论坛

标题: 請問這個追加要如何改善? [打印本页]

作者: lingsum 时间: 2008-7-29 15:08
标题: 請問這個追加要如何改善?
按紐後,會把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 时间: 2008-7-29 17:39
可能是目标表中已有重复的记录导致的,可在插入前先清除已有的重复数据

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)