求助 如何将一组相关查询纪录显示在窗体上

beaccesssuper

如何将一组相关查询纪录显示在窗体上
GroupNumber为查询条件


If IsNull(Me!GroupNumber) Then
        ' no lGroupNumber, so no rated values. This should not happen
        Exit Sub
    Else
        ThisGroupNumber = Me!GroupNumber
    End If
   
    ' Return reference to current database:
    Set dbs = CurrentDb
    strsql = " SELECT tblphotometery.GroupNumber, tblphotometery.LampNumber, tblphotometery.SupplyVoltage, tblphotometery.LampVoltage, tblphotometery.LampCurrent, tblphotometery.LampWattage, tblphotometery.LuminousFlux " _
            & " From tblphotometery" _
            & " WHERE (tblphotometery.GroupNumber=" & ThisGroupNumber & ")" _
            & " ORDER BY tblphotometery.GroupNumber, tblphotometery.LampNumber;"
   
   
    Set rst = dbs.OpenRecordset(strsql, dbOpenSnapshot)                                 ’总是报错说 Too few arameters.Expected 1.
    If rst.BOF And rst.EOF Then                                                                           'sql语句没有问题，可以查到想要得结果，为何在窗体中就显示不出来呢？
        ' no records with rated data found. Exit sub without doing anything.
        Exit Sub
    Else
        rst.MoveLast    ' if there are more than 1 records with rated data for a lamp code
                        
        Set frmChild = Forms!frmMeasuredValue_sub              ' then we use the last one.
        With frmChild
     
            ![txt_Voltage] = rst!Voltage
            ![txt_p] = rst!Wattage
            '![txt_I] = rst!I
            !txt_Lumen = rst!Luminous_flux
            
           '![txty_R] = rst!LampVoltage
            '![txt_Lmw] = rst!Lmw
           ' ![txtPhi_R] = rst!phi
         
        End With
       End If
     rst.Close
    Set dbs = Nothing
End Sub

sql语句没有问题，可以查到想要得结果，为何在窗体中就显示不出来呢？
不胜感激

beaccesssuper

想用dao来将查询结果显示在窗体上（具体是窗体上的子窗体），显示效果如图。

beaccesssuper

还是贴不了图，不会啊，郁闷

[此贴子已经被作者于2007-3-21 13:42:05编辑过]

beaccesssuper

自己顶阿，没人帮忙啊
自己实在没辙啦

hi-wzj

用：SELECT GroupNumber,LampNumber,SupplyVoltage,LampVoltage,LampCurrent, LampWattage, LuminousFlux  From tblphotometery ORDER BY GroupNumber,LampNumber;作为显示窗体的数据来源。

查询命令按钮上的代码为：

DoCmd.OpenForm "显示窗体的名字", , ,"[GroupNumber]=" & Me!GroupNumber

这样就行了。

beaccesssuper

非常感谢您能回答我的问题，但是还有一个疑问，下面语句执行完要出个对话框，让我输入条件，可是条件已经在对话框上，只是不再文本框内，必须输入再输入才可以得到想要得 我不想显示这个对话框，且条件在点击按钮前在边上的文本框已经输入，如何做到
DoCmd.OpenForm "frmMeasuredValue_sub", acFormDS, , Me.Group_No

Me.Group_No是传递的条件

beaccesssuper

顶

bergyan

1,不用DAO的方法

在查询里面设好条件..Like IIF([Forms]![你的主窗体]![查询条件的文本框或其它控件] is null,"*",'*'&([Forms]![你的主窗体]![查询条件的文本框或其它控件] &'*')

再在窗体中用某一相应事件触发 Me.子窗体名.Requery

这个坛论上有个"刘小军"的窗体查询实例,里面有关于你这种查询的实例,你查查看

beaccesssuper

找不到这个人发的帖子阿，搜索作者刘小军？？
好像不好用啊，

一点通

http://www.office-cn.net/forum.php?mod=viewthread&tid=9226