根据刘小军多条件查询改编,出现了一个问题,请教老师们,问题出在哪里,
我要求取得库存信息表中的材质规格最大的一个材料编号(材料编号不等于1000号的),应该只有一笔记录,为什么会取的多笔记录?
[attach]37151[/attach]
调试代码如下:
Private Sub Cmd_Requery_Click()
Dim i As Integer
Dim StrWhere As String
StrWhere = ""
If Not IsNull(Me.Txt_材质) Then
StrWhere = StrWhere & "([材质] = '" & Me.Txt_材质 & "') AND "
End If
If Not IsNull(Me.Txt_规格) Then
StrWhere = StrWhere & "([规格] like '*" & Me.Txt_规格 & "*') AND "
End If
If Len(StrWhere) > 0 Then
StrWhere = StrWhere & "(Max(材料编号) not like '*-1000') AND "
StrWhere = Trim(Left(StrWhere, Len(StrWhere) - 5))
Dim db As DAO.Database
Dim RS As DAO.Recordset
Dim RS1 As DAO.Recordset
Set db = DAO.OpenDatabase(CurrentProject.Path & "\数据库.mdb")
Set RS = db.OpenRecordset("SELECT 材质,规格, Max(材料编号) AS 截止编号 FROM 库存信息 GROUP BY 材质,规格,材料编号 HAVING " & StrWhere & "")
RS.MoveLast
RS.MoveFirst
MsgBox RS.RecordCount
MsgBox RS(2)
db.Close
Set RS = Nothing
End If
End Sub作者: Henry D. Sy 时间: 2009-4-7 21:20 http://www.accessbbs.cn/bbs/thread-9356-1-1.html作者: fnsmydyang 时间: 2009-4-7 21:26
谢谢6D老师的回复，我就是根据刘小军先生的多条件窗体查询实例改编的，只是不知道条件错在哪量，最大值为何取不到呢，还望赐教，谢谢！！！作者: fnsmydyang 时间: 2009-4-7 21:39
为什么会没有人帮我解决这个问题呢？作者: linag516 时间: 2009-4-28 12:28
