Office中国论坛/Access中国论坛

标题: [求助]帮忙改一段代码 [打印本页]

作者: howernet 时间: 2007-1-13 02:09
标题: [求助]帮忙改一段代码
请帮忙把这段代码改成一个过程，谢谢~~~里面只有：“详细物料”这一个会改变，别的都是一样。

Dim sql, strDxm As String
Dim con2 As New ADODB.Connection
Dim rcord2 As New ADODB.Recordset
strDxm = "详细物料"
sql = "SELECT 权限.权限, 对象.对象名, 权限.用户名 FROM 权限 INNER JOIN 对象 ON 权限.对象名 = 对象.ID "
sql = sql & " WHERE (((对象.对象名) = """ & strDxm
sql = sql & """ ) And ((权限.用户名) = """ & userCode & """))"
Set con2 = CurrentProject.Connection
rcord2.OPEN sql, con2, adOpenKeyset, adLockPessimistic
Debug.Print rcord2.Fields(0)
Select Case rcord2.Fields(0)
Case 1
DoCmd.OpenForm "详细物料"
Forms.详细物料.Form.AllowEdits = True
Forms.详细物料.Form.AllowAdditions = True
Case 2
DoCmd.OpenForm "详细物料"
Forms.详细物料.Form.AllowEdits = False
Forms.详细物料.Form.AllowAdditions = False
Case 3
DoCmd.OpenForm "详细物料"
Forms.详细物料.Form.AllowEdits = True
Forms.详细物料.Form.AllowAdditions = False
Case Else
MsgBox "无此权限！！"
Exit Sub
End Select

作者: howernet 时间: 2007-1-13 06:07
在线等着的啊。

作者: howernet 时间: 2007-1-14 07:34
郁闷，咋没个回应啊？？？

作者: andymark 时间: 2007-1-14 22:22
没有要求,别人怎么帮你,最好上传例子

作者: howernet 时间: 2007-1-17 20:10

以下是引用andymark在2007-1-14 14:22:00的发言：

没有要求,别人怎么帮你,最好上传例子

我有说明了，是希望能把上面的代码改写成一个过程，用来判断权限的，现在这个代码是可以用的，只是每个要用到的地方都要写这么多，感觉有些重复。

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