循环代码求解不知道哪里错了

飛謌　发表于：2019-05-14 15:11:59 　

不知道是循环代码写的不对还是DLOOKUP或DMAX不对，求解。

代码:

Private Sub 查询_Click()

Dim Bend

On Error GoTo Err_XXXX

Me.LB500报纸制作.Requery

Me.LB500报纸制作.SetFocus

DoCmd.GoToRecord acActiveDataObject, , acFirst

Do Until IsNull(Me.[LB500报纸制作]![批销中心])

Me.[LB500报纸制作]![特殊要数] = DLookup("份数", "B400要数管理", "ID=" & DMax("ID", "B400要数管理", "区公司&批销中心='" & Me.[LB500报纸制作]![区公司] & Me.[LB500报纸制作]![批销中心] _

& "'and 年度='" & Me.年度 & "' and 报刊名称='" & Me.报刊名称 & "' and (#" & Me.出版日期 & "#>=[起期] and #" & Me.出版日期 & "#<=[止期])"))

If Bend = -1 Then Exit Do

DoCmd.GoToRecord acActiveDataObject, , acNext

Loop

Me.[LB500报纸制作]![促销调整].SetFocus

Err_XXXX:

If Err.Number = 2105 Then

Bend = -1

Resume Next

End If

End Sub

leoyoung 发表于：2019-05-14 18:59:58

你的表里有没有 “区公司&批销中心”这个字段名？！

还有这个看起来有点别扭：(#" & Me.出版日期 & "#>=[起期] and #" & Me.出版日期 & "#<=[止期])"))

通常是：“[起期] >=#" & Me.出版日期 & "# and [止期] <=#" & Me.出版日期 & "#"

飛謌发表于：2019-05-14 19:26:53

如果只用DMAX显示的结果是ID字段结果没问题！

当用dlookup结果为份数字段时，B400要数管理表批销个中心呼销和15销必须有数据，而且第一个呼销为空不显示，如果有数据15销没数据就会显示，第一个值必须满足否则就不显示。求解！

Me.[LB500报纸制作]![特殊要数] = DMax("ID", "B400要数管理", "区公司&批销中心='" & Me.[LB500报纸制作]![区公司] & Me.[LB500报纸制作]![批销中心] _

& "'and 年度='" & Me.年度 & "' and 报刊名称='" & Me.报刊名称 & "' and (#" & Me.出版日期 & "#>=[起期] and #" & Me.出版日期 & "#<=[止期])")

总记录：2篇页次：1/1 9 1 :

Access交流中心