如何根据登录窗体，打开对应记录？

艹右小土　发表于：2014-01-17 13:11:11 　

我的登录窗体中有部门这个控件，登录后，我要通过部门的值，打开相应的记录，其他部门的不显示，代码应该怎么写？我的思路是：在登录后的窗体打开中，写if语句，如：登录窗体中部门控件=二部时，Me.RecordSource = like "[[]####[]]-'" & [2] & "'###",就显示所有这个地方为2的记录，示例：[2014]3-2001，如果=三部时，就显示为3的记录，不知道行不行的通，or有没有更简洁的代码？求大神帮助写一下代码！

Top

zhaoyoulong 发表于：2014-01-17 13:28:38

先打开窗体：docmd.openform "要打开的窗体名称" 然后：要打开窗体.RecordSource=select * from 表 where 字段 like "[[]####[]]-'" & forms("当前窗体名称").控件 & "'###"

或:

DoCmd.OpenForm "Employees", , ,"LastName = 'King'"

docmd.openform "要打开的窗体名称", , , "字段 like [[]####[]]-'" & forms("当前窗体名称").控件 & "'###"

Top

艹右小土发表于：2014-01-17 14:50:50

if语句呢？

是不是

if 登录窗体.控件名=二部

end if

Top

zhaoyoulong 发表于：2014-01-17 15:18:48

先写一个转换函数：

public function ZH(Str as string) as string

select case Str

case "一部"

ZH="1"

case "二部"

ZH="2"

case "三部"

ZH="3"

case "四部"

ZH="4"

case else

ZH=""

end select

end function

键入按钮代码:

docmd.openform "要打开的窗体名称", , , "字段 like [[]####[]]-'" & ZH(forms("当前窗体名称").控件) & "'###"

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

如何根据登录窗体，打开对应记录？