请老师帮着我修改一下，我实在是找不到出错的原因。

wangxy689

roych老师，你好，我跟你学习做了一个程序，做出来形似，但是总出现错误的提示，提示是“运行时错误3061；参数不足，期待是1”.本次“日常数据”中的“申请时间”格式是“2011-07-21”，会不会与这个有关？但是我在代码中找来找去也没有找到错误的地方，这个问题困扰我好久了，请老师看看我做的是窗体有问题还是代码有问题，请教教我吧。

roych

为什么不创建查询呢？之前老汉版主做过实例的了。而且，这里没有列表框，不必用For语句的。。。
太晚了，明天再看看。。。

红尘如烟

你根据我之前给你做的例程来就行了，已经给你做的相当完善了，再搞不拎清我也没辄了
查询抽样管理系统.rar

wangxy689

wangxy689

回复 roych 的帖子

roych 老师，这个“日常数据”表格做了变动，增加了代办人姓名、代办人身份证号、批单号三个字段。还有一个字段“申请时间”格式变为“2011-04--03”这种格式了，以前格式是“2011-04-03 15：30：00”。不知道出错的原因是否与这个有关。请教教我，请理解我迫切学习的心情，谢谢roych老师。

roych

回复 wangxy689 的帖子

前面也说得很清楚了，估计是代码过于复杂无法执行的问题。由于涉及全部字段，所以改为星号（*）后即可运行。详细看附件。修改后代码如下：

1. Sub 抽样查询()
   
2. Dim ssql As String
   
3. Dim n As Long
   
4. Dim i As Long
   
5. Dim j As Long
   
6. Dim str As String
   
7. Dim strwh As String
   
8. If IsNull(Me.年度.Value) = False And IsNull(Me.月度.Value) = False And IsNull(Me.抽样比率.Value) = False Then
   
9. ssql = "DELETE * from 临时表"
   
10. CurrentDb.Execute ssql
    
11. For i = 0 To Me.保全受理类型.ListCount - 1
    
12. For j = 0 To Me.审核员工号.ListCount - 1
    
13. strwh = "year(申请时间)=" & Me.年度.Value
    
14. strwh = strwh & " and month(申请时间)=" & Me.月度.Value
    
15. strwh = strwh & " and 保全受理类型='" & Me.保全受理类型.Column(0, i) & "'"
    
16. strwh = strwh & " and 审核员工号='" & Me.审核员工号.Column(0, j) & "'"
    
17. n = Round(DCount("*", "日常数据", strwh) * Me.抽样比率.Value, 0)
    
18. n = Int(DCount("*", "日常数据", strwh) * Me.抽样比率.Value) - (DCount("*", "日常数据", strwh) * Me.抽样比率.Value - Int(DCount("*", "日常数据", strwh) * Me.抽样比率.Value) > 0)
    
19. If n > 0 Then
    
20. ssql = "INSERT INTO 临时表 "
    
21. ssql = ssql & "SELECT TOP " & n & " ID,*"
    
22. ssql = ssql & " FROM 日常数据 "
    
23. ssql = ssql & "WHERE " & strwh
    
24. ssql = ssql & " ORDER BY Rnd([ID])"
    
25. CurrentDb.Execute ssql
    
26. End If
    
27. Next
    
28. Next
    
29. Else
    
30. MsgBox "请选择抽样查询年度、月度、抽样比率！"
    
31. End If
    
32. End Sub

复制代码

原件代码：加粗部分为改动部分。
Sub 抽样查询()
Dim ssql As String
Dim n As Long
Dim i As Long
Dim j As Long
Dim str As String
Dim strwh As String
If IsNull(Me.年度.Value) = False And IsNull(Me.月度.Value) = False And IsNull(Me.抽样比率.Value) = False Then
ssql = "DELETE * from 临时表"
CurrentDb.Execute ssql
str = "ID,申请序列号,机构名称,保单号,险种代码,变更类型,批单号,申请人身份证号,申请人姓名,代办人身份证号,代办人姓名,县区柜员工号,申请时间,给付方式,应付金额,转账账号,小额现金支付状态,保全受理类型,操作状态,审核员工号,审核时间"
For i = 0 To Me.保全受理类型.ListCount - 1
For j = 0 To Me.审核员工号.ListCount - 1
strwh = "year(申请时间)=" & Me.年度.Value
strwh = strwh & " and month(申请时间)=" & Me.月度.Value
strwh = strwh & " and 保全受理类型='" & Me.保全受理类型.Column(0, i) & "'"
strwh = strwh & " and 审核员工号='" & Me.审核员工号.Column(0, j) & "'"
n = Round(DCount("*", "日常数据", strwh) * Me.抽样比率.Value, 0)
n = Int(DCount("*", "日常数据", strwh) * Me.抽样比率.Value) - (DCount("*", "日常数据", strwh) * Me.抽样比率.Value - Int(DCount("*", "日常数据", strwh) * Me.抽样比率.Value) > 0)
If n > 0 Then
ssql = "INSERT INTO 临时表 ( " & str & " ) "
ssql = ssql & "SELECT TOP " & n & " " & str
ssql = ssql & " FROM 日常数据 "
ssql = ssql & "WHERE " & strwh
ssql = ssql & " ORDER BY Rnd([ID])"
CurrentDb.Execute ssql
End If
Next
Next
Else
MsgBox "请选择抽样查询年度、月度、抽样比率！"
End If
End Sub

红尘如烟

我的错，应该是抽样5%，我少写了一个PERCENT关键字，成了抽样5条记录了。

wangxy689

回复 红尘如烟 的帖子

谢谢，红尘如烟老师您写了不少经典案例，我要慢慢学习消化。希望您继续教我们。

wangxy689

回复 roych 的帖子

roych老师，你好！从进入论坛以来，我都一直关注你的帖子，跟你学到不少东西。谢谢你帮我修改程序，我非常崇拜你，希望你为我们提供更多更好的学习素材。再次向你表示衷心的感谢。我会继续关注你的帖子，跟你好好学习。

roych

谢谢你帮我修改程序，你非常崇拜你

你怎么知道我非常崇拜Roy的？你太厉害了~~有时间的话，我会做些实例传上来滴。。。