[求助]帮忙改一段代码

howernet

请帮忙把这段代码改成一个过程，谢谢~~~里面只有：“详细物料”这一个会改变，别的都是一样。

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

在线等着的啊。

howernet

郁闷，咋没个回应啊？？？

andymark

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

howernet

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


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

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