子窗体查询

一十先生　发表于：2010-09-02 14:07:10 　

煮江老师：

您好，附件中表1查询为一过渡查询，主要是为了找出离最近日期的“2”个“厂家1单价”的有效值，表1平均价查询则是根据表1查询计算平均值。我想在报价测算窗体中通过在top中任意输入1个数字，该数字代表查询语句中top的值，即在top中输入3，在形式中输入HL，则在子窗体中出现三行，厂家1单价之平均值为3个厂家1单价的平均值。在top中输入2，在形式中输入ZL，则在子窗体中出现二行，厂家1单价之平均值为3个厂家1单价的平均值。谢谢了，老师！

点击下载此附件

Top

王樵民发表于：2010-09-02 17:25:42

刷新按钮的代码做了修改，见下面的代码：

Private Sub Command26_Click()
On Error GoTo Err_Command26_Click
Dim sql1
DoCmd.RunCommand acCmdRefresh
If Len(TOP) > 0 And Len(形式) > 0 Then
sql1 = "SELECT TOP " & TOP & " [表1 查询].ID, [表1 查询].名称, [表1 查询].日期, [表1 查询].厂家1单价, [表1 查询].厂家2单价, [表1 查询].形式, 表1平均价查询.厂家1单价之平均值, 表1平均价查询.厂家2单价之平均值 FROM [表1 查询] INNER JOIN 表1平均价查询 ON [表1 查询].形式 = 表1平均价查询.形式 where [表1 查询].形式='" & 形式 & "';"
Me.Child18.Form.RecordSource = sql1
Me.Child18.Form.Requery
Else
MsgBox ("TOP 或形式文本框没有输入值，请重新输入")
End If
Exit_Command26_Click:
Exit Sub

Err_Command26_Click:
    MsgBox Err.Description
    Resume Exit_Command26_Click

End Sub

具体参考附件：

点击下载此附件

Top

一十先生发表于：2010-09-02 19:53:00

我下了附件，试了一下，好像没有用，在top中输入了3值，形式中输入了HL，但在子窗体中只出现了一行，且平均值没有变化，我要求的是top中输入数字后，“表1查询”要做相应动作，即“表1查询”应根据top中的值选出相应数据，然后“表1平均价查询”动作，计算出所选数据的平均价，最后单击刷新，子窗体动作！

Top

王樵民发表于：2010-09-03 09:07:16

这主要是原来的查询中已有Top的设置，取消原来查询中的Top设置即可，见附件：

点击下载此附件

Top

煮江品茶发表于：2010-09-03 09:52:58