Office中国论坛/Access中国论坛

标题: 求助：关于查询窗口的问题 [打印本页]

作者: zrjordan 时间: 2007-2-3 01:00
标题: 求助：关于查询窗口的问题
小弟做了一个查询窗口，按不同的输入查询出不同的窗体

但每次运行所有的窗体都弹出来了

查询按钮的事件管理器原始程序如下：

Dim stDocName As String
Dim stLinkCriteria As String
Dim stDocName1 As String
Dim stLinkCriteria1 As String

stDocName = "window1"
stDocName1 = "window2"
stDocName2 = "window3"
stDocName3 = "window4"

stLinkCriteria = "[Serial Number]=" & "'" & Me![Text1] & "'"

DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.OpenForm stDocName1, , , stLinkCriteria
DoCmd.OpenForm stDocName2, , , stLinkCriteria
DoCmd.OpenForm stDocName3, , , stLinkCriteria

Exit_Command4_Click:
Exit Sub

哪位高手能给一段程序解决这个问题

先谢谢了

作者: 一点通 时间: 2007-2-3 01:38
打开查询前应按要求进行判断,然后打开对应的查询,可使用IF语句

作者: zrjordan 时间: 2007-2-5 22:27
我用的case 语句

效果估计是一样的，但就是不知道怎么表达查询条件，我希望看输入与分别窗体1，2，3，4的Serial number 是否符合，并打开相应窗体

Select Case stLinkCriteria
Case "[Serial Number], "window1" = " & " '" & Me![Text1] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
End Select

"[Serial Number]=" & "'" & Me![Text1] & "'"是对的，但结果是window1，2，3，4都跳出来

但我想表达希望与 window1 中的Serial Number 符合

如下

"[Serial Number], "window1" = " & " '" & Me![Text1] & "'"

就不对了

求助各位

再次道谢了！

作者: zrjordan 时间: 2007-2-6 01:57
继续期待答案中。。。。

作者: hi-wzj 时间: 2007-2-6 23:50
select case nume

case 1

.......

case 2

......

end case

case 的语法是这样的,具体看帮助。

作者: qlm 时间: 2007-2-7 04:59
必须要先知道你的window1对应的serialnumber是什么。

select case text1

case "Serial Number1":

docmd.openform  stDocName ...

case "Serial Number2":

docmd.openform  stDocName1 ...

case "Serial Number3":

docmd.openform  stDocName2 .....

end select

[此贴子已经被作者于2007-2-6 21:00:57编辑过]

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