ナビゲーション制御

こんにちは

私は2つのtableと多くの形式のデータベースを持っています.私はナビゲーションコントロールのための以下の同じコードを書きました:

プライベートサブMN_CMDFIRST_BN_CLICK()

エラー履歴書次の

docmd.gotorecord、acfirst

終了SUB

プライベートサブMN_CMDLAST_BN_CLICK()

エラー履歴書次の

docmd.gotorecord、aclast

終了SUB

プライベートサブMN_CMDNEXT_BN_CLICK()

エラー履歴書次の

docmd.gotorecord、acnext

終了SUB

プライベートサブMN_CMDPREVIOUS_BN_CLICK()

エラー履歴書次の

docmd.gotorecord、、abprevious

終了SUB

プライベートサブFORM_CURRENT()

エラー履歴書次の

me.CurrentRecord= 1

me.mn_cmdprevious_bn.enabled= false

me.mn_cmdfirst_bn.enabled= false

else

me.mn_cmdprevious_bn.enabled= true

me.mn_cmdfirst_bn.enabled= true

Me.CurrentRecord= Me.RecordSet.RecordCount

me.mn_cmdlast_bn.enabled= false

else

me.mn_cmdlast_bn.enabled= true

Me.CurrentRecord>= Me.RecordSet.RecordCount

me.mn_cmdnext_bn.enabled= false

else

me.mn_cmdnext_bn.enabled= true

終了SUB

各フォーム(5フォーム)では、同じデータベースを持つコントロール名が異なります.これは今後も機能しているように、これは将来紛争をするでしょう.