|
我是新手.在access2007应用中.同一库中需要很多结构相同但不同名的表.如果用一个表导出再导入后更名的方法.所得到的表可正常添加修改记录.可这需要手工完成.想在程序中用命令做.从论坛中学到用:[DoCmd.CopyObject , "表2", acTable, "表1"]可以复制
但不能添加修改记录.提示说找不到表.问题在那请幇助.
sql = "select * from " & un & "药品出库记录表"
Set rst = New ADODB.Recordset
rst.ActiveConnection = CurrentProject.Connection
rst.CursorType = adOpenKeyset
rst.LockType = adLockOptimistic
rst.Open sql
With rst
.AddNew
!名称 = Me.Text名称
!单价 = num1
!数量 = Me.Text数量
!合计 = num1 * Me.Text数量
!时间 = mydate
!姓名 = Me.Text姓名
!说明 = Me.Text说明
.Update
End With
rst.Close
Set rst = Nothing成功.但复制得来的表用ADODB.Recordset方法确不能添加修改记录. |
|