レコードを移動させても 更新処理が動作しないようにするには？ (ID:124193)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Private Sub cmdMove_Click(Index As Integer) Call prRsSyain_WillMove End Sub Private Sub prRsSyain_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) Dim Index As Integer With prRsSyain Select Case Index '先頭レコード移動ボタン押下時 Case 0 '先頭レコードへ移動 .MoveFirst prRsSyain_WillMove adRsnMoveFirst, adStatusCancel, prRsSyain '移動ボタン制御呼び出し Call chkbtm '前レコード移動ボタン押下時 Case 1 '前レコードへ移動 .MovePrevious prRsSyain_WillMove adRsnMovePrevious, adStatusCancel, prRsSyain '移動ボタン制御呼び出し Call chkbtm '後ろレコード移動ボタン押下時 Case 2 '後ろレコードへ移動 .MoveNext prRsSyain_WillMove adRsnMoveNext, adStatusCancel, prRsSyain '移動ボタン制御呼び出し Call chkbtm '最終レコード移動ボタン押下時 Case 3 '最終レコードへ移動 .MoveLast prRsSyain_WillMove adRsnMoveLast, adStatusCancel, prRsSyain '移動ボタン制御呼び出し Call chkbtm End Select End With End Sub 「スタック領域が不足しています」とエラーメッセージが出ますが コードの記述は とりあえずこれであっているんでしょうか？