标题: 关于按钮代码的问题，求助 [打印本页] 作者: qp370982 时间: 2009-5-1 00:58 标题: 关于按钮代码的问题，求助 求助，关于代码各位老大，请帮忙看看代码有什么错误，老是提醒一个参数未定义，其中“编号”为access中的自动编号类型，z：public z As Long
Private Sub 修改_Click()
Dim Conn As New ADODB.Connection: Dim Rec As New ADODB.Recordset: Dim strSQL As String: Set Conn = CurrentProject.Connection
strSQL = "SELECT * FROM 名称 where 编号 = z "
Rec.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
名称.SetFocus: Rec.Fields("名称") = 名称.text
等级.SetFocus: Rec.Fields("等级") = 电压等级.text
Rec.Update: Rec.Close: Set Rec = Nothing
TreeView0.Nodes.Clear
Call Form_Load
End Sub作者: Henry D. Sy 时间: 2009-5-1 01:06
strSQL = "SELECT * FROM 名称 where 编号 =" & z