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


(オートナンバー)文字を消し去る : Access裏技Tips



フォームで新規入力を行っていると何か目障りな文字が目に付きませんか。 ここでは、新規入力画面で(オートナンバー)の文字を消し去る技を紹介します。

(オートナンバー)文字を表示しない

  1. サンプルテーブルにもとに単票式のフォームを作成します。
  2. このフォーム上に4個のテキストボックス(txtIdRecord1〜txtIdRecord4)を作成します。 コントロールソースは全てIDフィールドに設定します。 3つの方法で(オートナンバー)文字を非表示にします。 フォームの背景色、及びテキストボックスの背景色の色コードは、14215660 としています。 また、背景スタイルは"普通"に統一しています。
今回のおすすめポイント

(オートナンバー)文字

オートナンバー文字自体を消し去ることはできません。これはAccessの仕様の問題です。 よって、このような創意工夫で実現するしか手がありません。

単票式フォームの作成

  1. サンプルテーブルにもとに単票式のフォームを作成します。
  2. 4種類のラベル、テキストボックスを作成します。

Subプロシージャ IdRecord2Moduleの作成

Subプロシージャ IdRecord2Module を作成します。

Sub IdRecord2Module()

    If Me.NewRecord = True Then ' --- A
        Me.txtIdRecord2.Visible = False ' --- B
    Else
        Me.txtIdRecord2.Visible = True ' --- C
    End If

End Sub
解説
  1. NewRecordプロパティは、新規レコードであればTrueを返します。
  2. Visibleプロパティに、Falseを設定すると、そのオブジェクトは非表示になります。
  3. 非表示にする式を記述すると、表示を行う式も必ず必要です。
今回のおすすめポイント

テキストボックスを非表示

(オートナンバー)文字を表示させない方法の1つは、オートナンバーをコントロールソースに持つテキストボックス(txtIdRecord2)を非表示にすることです。

Subプロシージャ IdRecord3Moduleの作成

Subプロシージャ IdRecord3Module を作成します。

Sub IdRecord3Module()

    If Me.NewRecord = True Then ' --- A
        Me.txtIdRecord3.ForeColor = Me.txtIdRecord3.BackColor ' --- B
    Else
        Me.txtIdRecord3.ForeColor = 0
    End If

End Sub
解説
  1. NewRecordプロパティは、新規レコードであればTrueを返します。
  2. 文字のForeColorプロパティに、テキストボックスの背景色の色コードを代入します。
今回のおすすめポイント

文字色を変更する

(オートナンバー)文字を表示させない方法の1つは、文字色をテキストボックスの背景色と同色にすることです。

Subプロシージャ IdRecord4Moduleの作成

Subプロシージャ IdRecord4Module を作成します。

Sub IdRecord4Module()

    If Me.NewRecord = True Then ' --- A
        Me.ラベル.Visible = True ' --- B
    Else
        Me.ラベル.Visible = False
    End If

End Sub
解説
  1. NewRecordプロパティは、新規レコードであればTrueを返します。
  2. Visibleプロパティを用いて、ラベルの表示、非表示を切り替えます。
今回のおすすめポイント

ラベルで覆い隠す

(オートナンバー)文字を表示させない方法の1つは、テキストボックス全体を同色のラベルで覆い隠すことです。

Subプロシージャ IdRecord4Moduleの作成

フォームのレコード移動時イベントプロシージャを作成する。

Private Sub Form_Current() ' --- A

    Call IdRecord2Module
    Call IdRecord3Module
    Call IdRecord4Module

End Sub
解説

A…逐次Subプロシージャを呼び出していきます。

今回のおすすめポイント

レコード移動時イベント

レコードの移動時だけではなく、フォームが開いた時にもイベントが実行されます。

動作確認

  1. デザインビューからフォームビューに切り替えます。

  1. 新規レコードに移動します。


関連ページ

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

 


(オートナンバー)文字を消し去る : Access裏技Tips


 

-Microsoft Access Club-

年額2,400円でドメインネームサーバーをご用意します。自宅サーバ構築時にご利用下さい。自宅サーバーは応用範囲が広いです。
年額2,400円でドメインネームサーバー。
自社・自宅サーバ構築時にご利用下さい。
やはり、自前サーバーは応用範囲が広いです。