Office中国论坛/Access中国论坛

标题: 大家帮我看看这段代码有什么问题 [打印本页]

---

作者: slmonkey    时间: 2006-11-27 04:24
标题: 大家帮我看看这段代码有什么问题
Private Sub Command139_Click()
On Error GoTo Err_Command139_Click
Dim SQL As String
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset

SQL = "select sum(num) as sumnum from book"
rs.Open SQL, conn, 1, 1
Forms![form1]![当前剩余数量] = rs(0)
rs.Close
Set rs = Nothing



Exit_Command139_Click:
    Exit Sub

Err_Command139_Click:
    MsgBox Err.Description
    Resume Exit_Command139_Click
   
End Sub

---

作者: 老鬼    时间: 2006-11-27 04:29
conn, 这个连接你没定义

---

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

Powered by Discuz! X3.3