代码问题，子过程或函数未定义

carrie586

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

还是把完整的例子传上来吧

carrie586

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

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

layaman_999

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

carrie586

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

楼主照抄也抄错？
Private Sub savevoucher()    --这个是保存凭证的过程名称
Openrs "select * from 凭证", rs        --这里是否有一个模块级的Openrs过程

请提供完整的代码

ycxchen

窗体绑定表或查询数据源即可进行输入设置，为什么还要写这么多代码？

carrie586

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

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

andymark

贴Openrs  的代码

carrie586

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

openrs的代码是什么