『[AC]印刷時エラー』のクチコミ掲示板

WIN98 AC2000
ACCESS2000で以下のようなﾌﾟﾛｼｰｼﾞｬで １ﾚｺｰﾄﾞに対してﾌｫｰﾑに入力されたmaiの数だけプリントアウトしているのですが、時々１番初めのﾚｺｰﾄﾞしか印刷できません。その時のｴﾗｰは "次のﾚｺｰﾄﾞに移動できません"と出たりします。一度ACCESSを終了させて再入力するとうまくいきます。殆どはうまく印刷できていますので原因がわかりません。
どなたかご教授お願いします。

Private Sub ｶｰﾄﾞ_Click()

On Error Resume Next

Dim db As Database
Dim ds As Recordset

DoCmd.OpenTable "bRes", acNormal, acEdit
DoCmd.OpenForm "bftry", acNormal, "", "", acEdit, acNormal

ds.MoveFirst

Set db = CurrentDb
Set ds = db.OpenRecordset("BRES", DB_OPEN_DYNASET)

Do Until ds.EOF

If ds.BOF Then
Exit Sub
End If

DoCmd.PrintOut acSelection, , , acHigh, Forms!BFtry!mai, True

DoCmd.GoToRecord acForm, "bftry", acNext

ds.MoveNext
Loop

ds.Close
db.Close
DoCmd.Close acForm, "bftry"
DoCmd.Close acTable, "bRes"

End Sub

書込番号：756604

[Seventhly]

この掲示板で初めて見た、すごい質問だ（笑）。

ＶＢＡの場合はプログラムだけじゃ問題点が掴みにくいですね。
どのステップでエラーが出ますか？
On Error Resume Next を入れている目的はなんですか？
それによって、何かエラーが隠されていることはないですか？

ところで、この手の質問にもうちょっと適した掲示板があるような気がしますけど。　誰か知ってます？

書込番号：756774

こちらのほうがよいのでは?

http://vb.acty-net.ne.jp/ml/vb/

書込番号：757401