苗壮壮 发表于：2014-05-18 10:16:24
这段代码是在网上照别人写的复制的,但我的业务有些变化,有些搞不定了.
想要实现的功能:
合同登记表窗体,非绑定窗体,点"合同确认"按钮,表合同和表库存同时增加.谢谢了.
点击下载此附件
'添加进货登记
sql = "select * from 合同"
Set rst = New ADODB.Recordset
rst.ActiveConnection = CurrentProject.Connection
rst.CursorType = adOpenDynamic
rst.LockType = adLockOptimistic
rst.Open sql
With rst
.AddNew
!合同号 = Me![合同号]
!订货日期 = Me![订货日期]
!产品名称 = Me![产品名称]
!供货商ID = Me![供货商]
!公司ID = Me![公司]
!订货吨数 = Me![订货吨数]
!订货单价 = Me![订货单价]
!合同备注 = Me![合同备注]
End With
rst.Update
rst.Close
Set rst = Nothing
'添加库存信息
sql = "select * from 库存"
Set rst = New ADODB.Recordset
rst.ActiveConnection = CurrentProject.Connection
rst.CursorType = adOpenDynamic
rst.LockType = adLockOptimistic
rst.Open sql
With rst
.AddNew
!合同号 = Me![合同号]
!订货日期 = Me![订货日期]
!产品名称 = Me![产品名称]
!供货商ID = Me![供货商]
!公司ID = Me![公司]
!库存吨数 = Me![订货吨数]
!库存单价 = Me![订货单价]
!合同备注 = Me![合同备注]
End With
rst.Update
MsgBox "合同添加成功!库存同时增加,请查看合同及库存详细信息"
Exit Sub
Me.Visible = False
???
老师,可否在我上传的数据库上改一下啊?显示找不到合同号??
你那附件中就没有一个叫“合同号”的表，它能找到才怪。
按二位老师说的已经改了，可还是显示数据类型不匹配啊。老师能否帮助给调试好，不胜感激。点击下载此附件
[] = & "'" me![] & "'"
[ ]='" & Me![id] & "'" 这么改了下,可以了.谢谢几位老师.
总记录：7篇 页次：1/1 9 1 :
