Office中国论坛/Access中国论坛

标题: 请高手帮忙看看,这句代码应如何改,谢谢!!! [打印本页]

作者: ybsnryga 时间: 2010-7-20 11:56
标题: 请高手帮忙看看,这句代码应如何改,谢谢!!!
原代码:

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

作者: 咱家是猫 时间: 2010-7-20 12:05
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 时间: 2010-7-20 14:30
本帖最后由 ybsnryga 于 2010-7-20 23:53 编辑

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

作者: 咱家是猫 时间: 2010-7-20 15:29
是用户而不是客户吧?我打开你的库看了下,用户编号最多才到0008,你怎么让我测试0030呢?

作者: aslxt 时间: 2010-7-20 17:49
If UserID >= "0000" AND UserID <="0030" Then

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

作者: ybsnryga 时间: 2010-7-20 18:16
我试了一下,还是不行,请帮忙再看一下

作者: aslxt 时间: 2010-7-20 19:30
打不开你的东东

作者: Benjamin_luk 时间: 2010-7-20 21:34
If UserID = "0000---0030" Then
是说USERID='0000' 或 '0030'
还是 USERID 从 '0000'到 '0030'?

作者: zyp 时间: 2010-7-20 21:54
Select Case val(UserID)
      Case 0 to 30
         Me.RecordSource = "派单查询"
      Case Else
         Me.RecordSource = "营销派单查询"
End Select
Me.Requery

作者: 简 时间: 2010-7-20 22:51

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

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

作者: ybsnryga 时间: 2010-7-20 23:52
已达到要求了，谢谢，各位！！！

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