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