求助：关于查询窗口的问题

zrjordan

小弟做了一个查询窗口，按不同的输入查询出不同的窗体

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

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

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





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

先谢谢了

一点通

打开查询前应按要求进行判断,然后打开对应的查询,可使用IF语句

zrjordan

我用的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

继续期待答案中。。。。

hi-wzj

select case nume

case 1

.......

case 2

......

end case

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

qlm

必须要先知道你的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编辑过]