请大家帮忙看一下,这个程序哪里错了

Haoxu123

我的设想是这样的,在客户名称框中输入相关的客户名称,单击"客户查询"按键,查询"打印查询"表,把符合条件的"销售品种"中的产品的数量、总价显示在窗体中
Private Sub Command14_Click()
On Error GoTo Err_Command14_Click
Dim i As Integer
Dim STemp As String
Dim Rs As ADODB.Recordset
Set Rs = New ADODB.Recordset
STemp = "Select * Form 打印查询"
Rs.Open STemp, CurrentProject.Connection, adOpenKeyset, adLockBatchOptimistic
Num = 0
For i = 1 To Rs.RecordCount
If Rs("客户名称") = Me![客户名称] Then
   If Me![销售品种] = Me![内酯豆腐] Then
      Me![数量] = Me![数量]
      Me![总价] = Me![总价]
   If Me![销售品种] = Me![日本豆腐] Then
      Me![数量] = Me![数量]
      Me![总价] = Me![总价]
   If Me![销售品种] = Me![板豆腐] Then
      Me![数量] = Me![数量]
      Me![总价] = Me![总价]
   End If
   Rs.movNetxt
   End If
   Rs.movNetxt
   End If
   Rs.movNetxt
   Nexit i
Exit_Command14_Click:
   Exit Sub
Er_Command_Click:
   MsgBox Err.Description
   Rsume Exit_Command14_Click
End Sub

hi-wzj

STemp = "Select * Form 打印查询"
在此代码中增加where 的限定条件，以及GROUP BY 的汇总条件，后面就很好完成了。

tz-chf

找到就该退出for，不必再找下去了。

andymark

应该加上WHERE 条件语句

Haoxu123

具体该怎么写呢

Haoxu123

这里不需要汇总的

Haoxu123

Private Sub Command14_Click()
On Error GoTo Err_Command14_Click
Dim i As Integer
Dim STemp As String
Dim Rs As ADODB.Recordset
Set Rs = New ADODB.Recordset
STemp = "Select * From 打印查询"
Rs.Open STemp, CurrentProject.Connection, adOpenKeyset, adLockBatchOptimistic
For i = 1 To Rs.RecordCount
If Rs("客户名称") = Me![客户名称] Then
   If Me![销售品种] = Me![内酯豆腐] Then
        Me![数量01] = Me![数量]
        Me![总价01] = Me![总价]
      ElseIf Me![销售品种] = Me![日本豆腐(120g)] Then
          Me![数量02] = Me![数量]
          Me![总价02] = Me![总价]
        ElseIf Me![销售品种] = Me![板豆腐] Then
            Me![数量03] = Me![数量]
            Me![总价03] = Me![总价]
        End If
        
      End If
  Next i
Exit_Command14_Click:
   Exit Sub
Err_Command14_Click:
   MsgBox Err.Description
   Resume Exit_Command14_Click
End Sub
为什么会提示"至少一个参数没有被指定"

hi-wzj

如果一定要这样不带条件自己去汇总的话,请设置断点后单步运行,看问题出在哪个代码上.

Haoxu123

单个条件执行还是一样的提示,能帮我看一下这个例子吗,谢谢了!

hi-wzj

错的地方不少，附件包含了两中解决方法，自己去看看。