标题: 请各位高手帮忙看看如何修改这句代码,谢谢!!! [打印本页] 作者: ybsnryga 时间: 2010-10-18 23:55 标题: 请各位高手帮忙看看如何修改这句代码,谢谢!!! Private Sub Form_Open(Cancel As Integer)
If CurrentPopedom = "管理员" Or CurrentPopedom = "市场部" Then
Me.RecordSource = "派单查询"
Else
Me.RecordSource = "营销派单查询"
End If
Me.Requery
End Sub
我想改一下实现权限逐级体现,即将这句:
"If CurrentPopedom = "管理员" Or CurrentPopedom = "市场部" Then "
修改为:
"If CurrentPopedom = like"管理员*" Or CurrentPopedom = like"市场部*" Or CurrentPopedom = like"市场部客户*" Or CurrentPopedom = like"市场部客户中心农村*" Then "
但执行不成功,请问如体写才能实现,谢谢各位高手帮忙看看.作者: 静儿 时间: 2010-10-19 06:53
把等号去掉就ok啦。作者: ybsnryga 时间: 2010-10-19 12:56
谢谢!!!