张建国 发表于:2016-11-03 19:50:14
我用CurrentDb.Execute "insert into TMP物料单子表全(流水号,[物料单号-首],[物料单号-尾],物料单号,物料编码,入库数量,入库单价,入库金额,出库数量,线材批号,卷数,领用人,使用机台) select 流水号,[物料单号-首],[物料单号-尾],物料单号,物料编码,入库数量,入库单价,入库金额,出库数量,线材批号,卷数,领用人,使用机台 from 物料单子表全"
两个表的记录数不一样是怎么回事?
没有追加过去的记录可能有问题
或者 一个字段为必填,可原数据这字段为NULL
或者 一个字段为必填,可原数据这字段为NULL
杜老师说的对,你试用这个方法试试
Private Sub 粘贴子窗体记录_Click()
Dim strSQL As String
Dim cnn As Object 'ADODB.Connection
Dim rst As Object 'ADODB.Recordset
Dim rstTmp As Object 'DAO.Recordset
Set cnn = CurrentProject.ConnectionstrSQL = "SELECT * FROM 物料单子表全
Set rst = OpenADORecordset(strSQL, , cnn)
Set rstTmp = CurrentDb.OpenRecordset("TMP_物料单子表全")
Do Until rstTmp.EOF
rstTmp.Delete
rstTmp.MoveNext
Loop
Do Until rst.EOF
rstTmp.AddNew
rstTmp![物料单号-首] = rst![物料单号-首]
rstTmp![物料单号-尾] = rst![物料单号-尾]
...................................................
rstTmp.Update
rst.MoveNext
Loop
rst.Close
rstTmp.Close
End If
RequeryDataObject Me.sfrDetail
Set rst = Nothing
Set cnn = Nothing
Set rstTmp = Nothing
End Sub
主键? 主键重号?
最好把你的实例发上来
问题不一定在代码上了,表也可能存在问题的
总记录:3篇 页次:1/1 9 1 :