标题: 请高手帮忙看下这段有什么问题 [打印本页] 作者: ZZBZZBZZZB 时间: 2009-6-9 17:04 标题: 请高手帮忙看下这段有什么问题 Private Sub 总账科目_AfterUpdate()
Dim cnnmx As ADODB.Connection
Dim rsmx As ADODB.Recordset
Dim mxkm As String, i As Integer, mysql As String
Dim tyu产 As string
tyu产 = 总账科目.Value
Set rsmx = New ADODB.Recordset mysql = "select 明细科目 from 明细科目表 where 总帐科目 = tyu产 order by 科目编码 ASC" rsmx.Open mysql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rsmx.MoveFirst
For i = 1 To rsmx.RecordCount
mxkm = rsmx.Fields(0)
明细科目.AddItem mxkm
rsmx.MoveNext
Next i
rsmx.Close
提示错误:至少一参数没指定值
Private Sub 总账科目_AfterUpdate()
Dim cnnmx As ADODB.Connection
Dim rsmx As ADODB.Recordset
Dim mxkm As String, i As Integer, mysql As String
Dim tyu产 As Variant
tyu产 = 总账科目.Value
Set rsmx = New ADODB.Recordset mysql = "select 明细科目 from 明细科目表 order by 科目编码 ASC" rsmx.Open mysql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rsmx.MoveFirst
For i = 1 To rsmx.RecordCount
mxkm = rsmx.Fields(0)
明细科目.AddItem mxkm
rsmx.MoveNext
Next i
rsmx.Close
这一段却是好的,通过. "总帐科目"是组合框,文本形
怎样做这个查询????作者: ZZBZZBZZZB 时间: 2009-6-9 17:26
Private Sub 总账科目_AfterUpdate()
Dim cnnmx As ADODB.Connection
Dim rsmx As ADODB.Recordset
Dim mxkm As String, i As Integer, mysql As String
Dim tyu产 As String
tyu产 = 总账科目.Value
Set rsmx = New ADODB.Recordset mysql = "select 明细科目 from 明细科目表 where 总帐科目 = " & tyu产 rsmx.Open mysql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rsmx.MoveFirst
For i = 1 To rsmx.RecordCount
mxkm = rsmx.Fields(0)
明细科目.AddItem mxkm
rsmx.MoveNext
Next i
rsmx.Close
这样子还是没好,有什么问题????求高手!!!!!!!作者: ZZBZZBZZZB 时间: 2009-6-9 17:40
上传的这个"财会管理系统"是可用的,结合使用EXCEL VBA , ACCESS VBA 工程密码公开,有安装说明,作者: ZZBZZBZZZB 时间: 2009-6-9 17:41 3#ZZBZZBZZZB作者: koutx 时间: 2009-6-9 18:37
mysql = "select 明细科目 from 明细科目表 where 总帐科目 = tyu产 order by 科目编码 ASC"
应改为:
mysql = "select 明细科目 from 明细科目表 where 总帐科目 = '" & tyu产 & "' order by 科目编码"
注:排序默认升序，ASC就不用了。建议找有关SQL编程语言的书看一下。