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


新規データ入力許可ボタンをフォームに付加する方法 : AccessTips121



今回ご紹介するのは、新規レコードを入力する際に、前もって「新規レコード入力許可」トグルボタンを押し込まないと入力ができない方法をご紹介します。併せて、新規、編集の切替も同時にできるようにしてみましょう、

手順

  1. フォームプロパティで下記のように「追加の許可」を いいえ に設定します。

フォームプロパティ図

  1. フォームを開いた時、新規レコードに移動できなくなっています。

フォームの編集画面

  1. 新規レコード入力画面に切り替えた時、編集ができなくなっています。

フォームの新規レコード入力画面

プロシージャの記述

下記のプロシージャを、トグルボタンの更新後処理イベントに記述します。

Private Sub tog許可_AfterUpdate()

    'トグルボタンが押し込まれたら・・・。
    If Me.tog許可 = True Then
        Me.AllowAdditions = True    '「追加の許可」を可。
        Me.AllowEdits = False   '「編集の許可」を不可。
        Me.NavigationButtons = False    '「移動ボタン」を非表示。
        DoCmd.GoToRecord , , acNewRec   '新規レコードに移動。
        Me.tog許可.Caption = "既レコード編集に切替(&L)"
        Me.Caption = "新規入力画面"

    'トグルボタンを戻されたら・・・。
    Else
        Me.AllowAdditions = False    '「追加の許可」を不可。
        Me.AllowEdits = True   '「編集の許可」を可。
        Me.NavigationButtons = True    '「移動ボタン」を表示。
        DoCmd.GoToRecord , , acFirst   '最初のレコードに移動。
        Me.tog許可.Caption = "新規レコード入力に切替(&A)"
        Me.Caption = "既レコード編集画面"
    End If
    
End Sub

関連ページ

2004/01/18

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

 


新規データ入力許可ボタンをフォームに付加する方法 : AccessTips121


 

-Microsoft Access Club-

PLESKやcPanelをインストールしたレンタルサーバーをディスカウト価格で提供中だす。ヨーロッパデータセンターご希望の方は必見です。ドイツを中心にフランスに拡張中です。
PLESKやcPanelレンタルサーバーをディスカウト価格で...。
ヨーロッパデータセンターご希望の方は必見です。
ドイツを中心にフランスに拡張中です。