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

ybsnryga

原代码:

Private Sub Form_Open(Cancel As Integer)
If CurrentPopedom = "管理员" Or CurrentPopedom = "部门经理" Or CurrentPopedom = "公司领导" Then
Me.RecordSource = "派单查询"
Else
Me.RecordSource = "营销派单查询"
End If
Me.Requery
End Sub



现修改为:

Private Sub Form_Open(Cancel As Integer)
If UserID = "0000---0030" Then
Me.RecordSource = "派单查询"
Else
Me.RecordSource = "营销派单查询"
End If
Me.Requery
End Sub



请教高手们:

1、这句应如何改:If UserID = "0000---0030" Then
2、这个命令应改为什么：RecordSource

咱家是猫

Private Sub Form_Open(Cancel As Integer)
Select case UserID
case  "0000","0010","0030"
Me.RecordSource = "派单查询"
case Else
Me.RecordSource = "营销派单查询"
End select
Me.Requery
End Sub

不知道是不是这个意思?

ybsnryga

好象还是不行,我上传了附件,烦请帮忙看看.
达到的要求是:编号0000-0030的客户登陆可查看全部资料,其它人员登陆后只能显示"派单执行人"相同的记录.

咱家是猫

是用户而不是客户吧?我打开你的库看了下,用户编号最多才到0008,你怎么让我测试0030呢?

aslxt

If UserID >= "0000" AND UserID <="0030"  Then

Me.RecordSource = "派单查询"
Else
Me.RecordSource = "营销派单查询"
End If
测试一下

ybsnryga

我试了一下,还是不行,请帮忙再看一下

aslxt

打不开你的东东

Benjamin_luk

If UserID = "0000---0030" Then
是说USERID='0000' 或 '0030'
还是 USERID 从 '0000'到 '0030'?

zyp

    Select Case val(UserID)
        Case 0 to 30
            Me.RecordSource = "派单查询"
        Case Else
            Me.RecordSource = "营销派单查询"
    End Select
    Me.Requery

简

If UserID = "0000---0030" Then
是说USERID='0000' 或 '0030'
还是 USERID 从 '0000'到 '0030'?
Benjamin_luk 发表于 2010-7-20 21:34

估计应该是从0000到0030。
ZYP的代码应该满足他的要求了。