标题: 一运行 就死机 [打印本页] 作者: sunredday 时间: 2003-7-15 16:49 标题: 一运行 就死机 一运行 就死机
Dim dbsTemp As DAO.Database
Dim rstQD As DAO.Recordset
Dim rstQD1 As DAO.Recordset
Set dbsTemp = OpenDatabase(strdir)
Set rstQD = dbsTemp.OpenRecordset("21清单文件名称", dbOpenTable, dbDenyWrite + dbDenyRead, dbOptimistic) '清单文件名称
Set rstQD1 = CurrentDb.OpenRecordset("21清单文件名称", dbOpenTable, dbReadOnly, dbReadOnly) '清单文件名称
rstQD1.MoveLast
rstQD1.MoveFirst
With rstQD
Do Until rstQD1.EOF
.AddNew
![清单文件名称] = rstQD1![清单文件名称]
![清单文件路径] = rstQD1![清单文件名称]
Loop
.Update
' .Bookmark = .LastModified
End With作者: sunredday 时间: 2003-7-15 17:05
忘了MOVENEXT 了