my for next loopが機能していないため、エラー94が発生する

Question

と次のループが機能しない理由を理解できません。私がしようとしているのは、[nts]と呼ばれる特定のフィールドの数値に応じて、同じレコード数のレポートを印刷することです。

フィールドが空白の場合、というエラーが表示されます。94フィールドに値がある場合は、エラーハンドラーに記載されています。どのような体はとても親切で、私を喜ばせることができますか？事前にありがとう：）**私は最初の問題ACCESS2007

Option Compare Database 
Option Explicit 

Private Sub Report_Close() 

' Delete previous data from tabMeal 

    DoCmd.SetWarnings False 
    DoCmd.RunSQL "Delete from tabAmeal" 
End Sub 

Private Sub Report_Load() 

Dim intNOM As Integer 
'NOM means number of nights meals 

Dim mTimes As Integer 

On Error GoTo errorhandler 

intNOM = 1 

mTimes = 0 

mTimes = DLookup("nz([nts],0)", "tabAmeal", "[nts] > 0") 

'mTimes means number of meals 

If mTimes = 0 Then 

    MsgBox "File is empty GO to Query" & vbCrLf & "Error - Run the Query", vbQuestion 

Else 

'now print the information found in table "tabmeal" number of times depending on the value field "nts" 

    For intNOM = 1 To mTimes 
    DoCmd.OpenReport "repAmeal?", acViewPreview 
    Next intNOM 
End If 

errorhandler: 

    MsgBox "Error #:- " & Err.Number & vbCrLf & "LOOP not working" & vbCrLf & "Must find why this error" & vbCrLf & Err.Description 

End Sub 

Private Sub Report_NoData(Cancel As Integer) 

    MsgBox "Please note that you have no records to report." & vbCrLf & "You have to run the QUERY to get the required informatio." 

End Sub 

Answer 1

を使用しています：
Nz()ない内部、DLookupの外で使用する必要があります。

mTimes = Nz(DLookup("[nts]", "tabAmeal", "[nts] > 0"), 0) 

私は「第二の問題、をわからない。 acViewPreviewで複数回レポートを開くことはできません（1回だけ開きます）、エラーは発生しません。

nts> 0のときに表示される正確なエラーメッセージは何ですか？

Exit Sub beforのerrorhandler:行が必要です - エラーが発生することなく、エラーハンドラにコードが入力されます。 :)