Office中国论坛/Access中国论坛

标题: 代码问题，子过程或函数未定义 [打印本页]

作者: carrie586 时间: 2012-6-2 10:43
标题: 代码问题，子过程或函数未定义
Private Sub savevoucher()Openrs "select * from 凭证", rs

rs.AddNew

rs("日期") = txtDate

rs("凭证编号") = txtVoucherNo

rs("摘要") = txtMemo

rs("借方科目") = CboCrAccount

rs("贷方科目") = CboDrAccount

If IsNumeric(txtCredit) Then rs("借方金额") = CCur(txtCredit)

If IsNumeric(txtDebit) Then rs("贷方金额") = CCur(txtCredit)

rs.Update

End Sub

红色字部分显示有错，我是按照书上的代码写的，居然也有错误{:soso_e127:} ，自己又是菜鸟，哪位高手帮帮我

作者: Henry D. Sy 时间: 2012-6-2 10:55
还是把完整的例子传上来吧

作者: carrie586 时间: 2012-6-2 11:04

Henry D. Sy 发表于 2012-6-2 10:55
还是把完整的例子传上来吧

我能加你QQ，你能帮我看下吗

作者: ycxchen 时间: 2012-6-2 15:24
窗体绑定表或查询数据源即可进行输入设置，为什么还要写这么多代码？

作者: carrie586 时间: 2012-6-2 17:08

ycxchen 发表于 2012-6-2 15:24
窗体绑定表或查询数据源即可进行输入设置，为什么还要写这么多代码？

我就是不知道怎么从窗体输入数据后保存到对应的表中，能不能教教我啊

作者: andymark 时间: 2012-6-2 17:11
楼主照抄也抄错？
Private Sub savevoucher() --这个是保存凭证的过程名称
Openrs "select * from 凭证", rs --这里是否有一个模块级的Openrs过程

请提供完整的代码

作者: carrie586 时间: 2012-6-2 17:18

andymark 发表于 2012-6-2 17:11
楼主照抄也抄错？
Private Sub savevoucher() --这个是保存凭证的过程名称
Openrs "select * from 凭证 ...

Option Compare Database

Public rs As ADODB.Recordset

Private Sub savevoucher()

Openrs "select * from 凭证", rs

rs.AddNew

rs("日期") = txtDate

rs("凭证编号") = txtVoucherNo

rs("摘要") = txtMemo

rs("借方科目") = CboCrAccount

rs("贷方科目") = CboDrAccount

If IsNumeric(txtCredit) Then rs("借方金额") = CCur(txtCredit)

If IsNumeric(txtDebit) Then rs("贷方金额") = CCur(txtCredit)

rs.Update

End Sub

Private Sub CboDrAccount_Click()

End Sub

Private Sub CmdAdd_Click()

savevoucher

txtDate.Enabled = True

txtMemo.Enabled = True

txtVoucherNo = ""

txtDate = Date

txtMemo = ""

txtCredit = ""

txtDebit = ""

End Sub

Private Sub CmdSave_Click()

savevoucher

txtDate.Enabled = False

txtMemo.Enabled = False

iTemp = txtCredit

txtCredit = txtDebit

txtDebit = iTemp

End Sub

就是这样的啊。我建立了窗体，但是从窗体输入的数据不知道怎么保存到表中

作者: andymark 时间: 2012-6-2 17:51
贴Openrs 的代码

作者: carrie586 时间: 2012-6-2 19:40

andymark 发表于 2012-6-2 17:51
贴Openrs 的代码

openrs的代码是什么

作者: andymark 时间: 2012-6-2 20:06
Openrs "select * from 凭证", rs

Openrs 这个是自定义的FUNCTION吧

作者: carrie586 时间: 2012-6-2 20:22

andymark 发表于 2012-6-2 20:06
Openrs "select * from 凭证", rs

Openrs 这个是自定义的FUNCTION吧

是吧，我也不懂= =

作者: layaman_999 时间: 2012-6-3 08:43
是不是套用了别人的代码？
那么你狠可能抄漏了一个模块：
FUNCTION Openrs(xxx as string, yyy as ado...)
.................
end FUNCTION
================
要想知道原程序的Openrs在哪，编辑-查找-当前工程-输入：Openrs(

作者: Henry D. Sy 时间: 2012-6-4 10:50
公共模块里找找

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