请各位高手帮忙看看如何修改这句代码,谢谢!!!

ybsnryga

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 "
但执行不成功,请问如体写才能实现,谢谢各位高手帮忙看看.

静儿

把等号去掉就ok啦。

ybsnryga

谢谢!!!