Microsoft Access Club >Access裏技Tips >このページ >次頁 < 前項 サイト内検索


[入力許可]ボタンと[編集許可]ボタンでフォームを操作する : Access裏技Tips



データ入力や編集を誤って行ってしまい、困惑したことはありませんか? ここでは、データ入力とデータ編集をトグルボタンで切り替える技を紹介します。

新規データ入力許可と既データ編集許可をトグルボタンで切り替える

  1. サンプルテーブル(tbl_sample)をもとに単票式のフォーム(frm_sample)を作成します。
  2.  フォームヘッダーにトグルボタン(tog許可)を作成します。
  3. トグルボタンの更新後処理イベントプロシージャを作成し、オン/オフ操作で新規データ入力許可と既データ編集許可を切り替えます。

フォームの作成

  1. @サンプルテーブルをもとに単票式のフォームを作成します。
  2. フォームヘッダーを表示させます。
  3. フォームヘッダーにトグルボタンを作成します。

今回のおすすめポイント

ページヘッダーとページフッダー

フォームはレポートと異なり、ページヘッダーとページフッターは印刷時のみ表示されます。
フォームビューで表示されるセクションは、詳細、フォームヘッダー、フォームフッターだけです。

トグルボタンの更新後処理イベントプロシージャの作成

トグルボタンの更新後処理イベントプロシージャを作成します。

Private Sub tog許可_AfterUpdate()

    If Me.tog許可 = True Then '--- A
        Me.AllowAdditions = True '--- B
        Me.AllowEdits = False '--- C
        Me.NavigationButtons = False '--- D
        DoCmd.GoToRecord , , acNewRec '--- E
        Me.tog許可.Caption = "既レコード編集に切替(&L)" '--- F
        Me.Caption = "新規入力画面" '--- G
        
    Else '--- H
        Me.AllowAdditions = False
        Me.AllowEdits = True
        Me.NavigationButtons = True
        DoCmd.GoToRecord , , acFirst
        Me.tog許可.Caption = "新規レコード入力に切替(&A)"
        Me.Caption = "既レコード編集画面"
    End If
    
End Sub
解説
  1. トグルボタンが押し込まれると、Trueの値を返します。
  2. AllowAdditions(追加の許可)プロパティがTrueに変更し、新規データ入力を不可にします。
  3. AllowEdits(編集の許可)プロパティをFalseに変更し、データ編集保存を不可にします。
  4. NavigationButtons(移動ボタン)プロパティをFalseに変更し、移動ボタンを非表示にします。
  5. GoToRecordメソッドを用いて、新規レコードに移動します。
  6. トグルボタンのCaption(標題)に"既レコード編集に切替(&L)"の文字を代入します。
  7. この場合のMeキーワードは、フォーム自身を指します。フォームのCaption(標題)に"新規入力画面"の文字を代入します。
  8. トグルボタンの状態が元に戻る(離される)と、Falseの値を返します。
今回のおすすめポイント

AllowAdditions(追加の許可)/AllowEdits(編集の許可)

本来は、フォームプロパティから設定を行いますが、今回のようにVBAを用いると条件に合わせて切り替えすることが可能になります。

動作確認

  1. フォームをビューモードで開く。
  2. トグルボタンが押し込まれていないので、編集可能な状態になっています。

  1. トグルボタンを押し込むと、新規データ入力画面に切り替わります。

今回のおすすめポイント

オブジェクトのプロパティ

特定のオブジェクト(テキストボックスなど)のみ編集を許可したい場合は、オブジェクトそれぞれのプロパティで操作することができます。

関連ページ

ページの先頭へ 前ページへ戻る

 


[入力許可]ボタンと[編集許可]ボタンでフォームを操作する : Access裏技Tips


 

-Microsoft Access Club-

動画配信(ダウンロード、ストリーミング)対応の専用レンタルサーバー。データセンター設置場所はアメリカ合衆国です。: 動画サーバードットコム
動画配信(ダウンロード、ストリーミング)対応の専用レンタルサーバー。
データセンター設置場所はアメリカ合衆国です。
100Mbps〜1Gbpsまで対応できます。