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

名前

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

本文 すいません。 イベントプロシージャが ひとつ抜けてしまいました。 ・移動ボタン制御 Private Function chkbtm() With prRsSyain 'レコードが１件の場合 If .RecordCount = 1 Then '先頭レコード移動ボタン使用不可 cmdMove(0).Enabled = False '前レコード移動ボタン使用不可 cmdMove(1).Enabled = False '後ろレコード移動ボタン使用可 cmdMove(2).Enabled = False '最終レコード移動ボタン使用可 cmdMove(3).Enabled = False '先頭レコードの場合 ElseIf .AbsolutePosition = 1 Then '先頭レコード移動ボタン使用不可 cmdMove(0).Enabled = False '前レコード移動ボタン使用不可 cmdMove(1).Enabled = False '後ろレコード移動ボタン使用可 cmdMove(2).Enabled = True '最終レコード移動ボタン使用可 cmdMove(3).Enabled = True '最終レコードの場合 ElseIf .AbsolutePosition = .RecordCount Then '先頭レコード移動ボタン使用可 cmdMove(0).Enabled = True '前レコード移動ボタン使用可 cmdMove(1).Enabled = True '後ろレコード移動ボタン使用不可 cmdMove(2).Enabled = False '最終レコード移動ボタン使用不可 cmdMove(3).Enabled = False 'その他のレコードの場合 Else '先頭レコード移動ボタン使用可 cmdMove(0).Enabled = True '前レコード移動ボタン使用可 cmdMove(1).Enabled = True '後ろレコード移動ボタン使用可 cmdMove(2).Enabled = True '最終レコード移動ボタン使用可 cmdMove(3).Enabled = True End If End With End Function