100問を超えたら終了ですのメッセージをだしたい（あくせす）

質問

Private Sub cmd次_Click()
On Error GoTo Err_cmd次_Click

DoCmd.GoToRecord acForm, "F_さあやってみよう", acNext
If (Forms!F_さあやってみよう!txt番号 = 100)
'これだと100問になったときにメッセージがでてしまいます。100問を終了してボタンをクリックしたら
終了のメッセージを表示したいのですが、
101という番号はありません。

Then
Beep
MsgBox "終了です(*^。^*)", vbInformation, "終了"
End If

Exit_cmd次_Click:
Exit Sub

Err_cmd次_Click:
MsgBox Err.Description
Resume Exit_cmd次_Click

End Sub
よろしくお願いしますm(__)m

回答No.1

snoopy64 · ベストアンサー

DoCmd.GoToRecord acForm, "F_さあやってみよう", acNext
の前で判定するのではどうですか？
頑張ってくださいヽ(^。^)ノ

お礼

ありがとうございますm(__)m
できました！！
助かります(^^♪

回答No.2

s-isyuto

FOR文で・・・