变量未定义

王锋　发表于：2012-07-04 21:47:56 　

Public Function cz(ddID As String, pmjm As Long)     '在此处黄色标记系统提示"变量未定义"
Dim cnn1 As New ADODB.Connection
Dim rst2 As New ADODB.Recordset
Dim comml As New ADODB.Command
Dim temp As String
Dim x As Integer
Set cnn1 = CurrentProject.Connection
    With comml
       .ActiveConnection = cnn
       .CommandText = "select 剩余数量 from 剩余数量计算表 where 订单ID=ddid and 品名简码ID=pmjm"

       .Execute
    End With
    rst2.Open comm1
If rst2.RecordCount = 1 Then
x = rst2("剩余数量")
Else
x = Null
End If
cz = x
Set rst2 = Nothing
rst2.Close
End Function

系统提示变量未定义,请问问题出在哪儿?

Top

风行发表于：2012-07-05 09:26:13

Public Function cz(ddID As String, pmjm As Long) as long

Top

王锋发表于：2012-07-05 11:03:36

谢谢,加上 as long 后仍然提示变量未定义

Top

cspa 发表于：2012-07-05 13:06:26

Public Function cz(ddID As String, pmjm As Long)     '在此处**标记系统提示"变量未定义"
Dim cnn1 As New ADODB.Connection
Dim rst2 As New ADODB.Recordset
Dim comml As New ADODB.Command
Dim temp As String
Dim x As Integer
Set cnn1 = CurrentProject.Connection
    With comml
       .ActiveConnection = cnn
       .CommandText = "select 剩余数量 from 剩余数量计算表 where 订单ID=ddid and 品名简码ID=pmjm"

       .Execute
    End With
    rst2.Open comm1     '是不是comm1未定义？它与comml很象哦，可能会搞错
If rst2.RecordCount = 1 Then
x = rst2("剩余数量")
Else
x = Null
End If
cz = x
Set rst2 = Nothing
rst2.Close
End Function

Top

cspa 发表于：2012-07-05 13:58:24

补充：

Public Function cz(ddID As String, pmjm As Long)     '在此处**标记系统提示"变量未定义"
Dim cnn1 As New ADODB.Connection
Dim rst2 As New ADODB.Recordset
Dim comml As New ADODB.Command
Dim temp As String
Dim x As Integer
Set cnn1 = CurrentProject.Connection
    With comml
       .ActiveConnection = cnn    'cnn也没定义，似乎应是cnn1
       .CommandText = "select 剩余数量 from 剩余数量计算表 where 订单ID='" & ddid & "' and 品名简码ID=" & pmjm & ";"""     '此句这样似乎才能将变量值赋与相应字段

Top

总记录：4篇页次：1/1 9 1 :

Access交流中心

变量未定义