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

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

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

Openrs 这个是自定义的FUNCTION吧

是吧，我也不懂= =

andymark

Openrs "select * from 凭证", rs   

Openrs 这个是自定义的FUNCTION吧     

carrie586

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

openrs的代码是什么

andymark

贴Openrs  的代码

carrie586

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

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

ycxchen

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

andymark

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

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