和大多数ACCESS设计一样,在登陆的时候,会将当前用户名属于一个公共变量,而后在不同的窗体中调用.
我在模块中已经声明了变量
Public UserName As String '当前登录用户名
在登陆窗体下也属于它值了,
UserName = Me.DLUserName '保存当前用户
可我在另外的一个窗体中,调用了一个子窗体,子窗体的记录源我是通过代码来属于的.
Me.DBquery.Form.RecordSource = "SELECT 销售.gnoid, 销售.gnam, 销售.xs FROM 销售 WHERE 销售.gnoid IN (SELECT Gnoid FROM power WHERE FUserName=UserName AND Right=True) ;"
该代码我是放在面板的查询按纽的单击事件中,
问题我是单击后提示输入参数值 UserName~~
Me.DBquery.Form.RecordSource = "SELECT 销售.gnoid, 销售.gnam, 销售.xs FROM 销售 WHERE 销售.gnoid IN (SELECT Gnoid FROM power WHERE FUserName='" _
& UserName & "' AND Right=True) ;"