オートナンバー型は使いたくない
2005年 10月 14日
以前の記事では、こう書いたのたけど・・
やっぱり、自分のメモ代わりとして残しておきたい。

オートナンバー型はなにかと不便です。
番号に欠番が生じたり、再度 番号を振りなおすのも面倒だし。

オートナンバー型を使わずに自動的に連番を入力していく方法です。
いくつかやり方はあるようですが、その中の一つの方法と思ってくださいね。

下のような「管理テーブル」があります。
「ナンバー」フィールドのデータ型は、数値型にします。
a0030830_1725360.gif

そして、「管理テーブル」を元に作成した入力用のフォームがあります。
a0030830_18311299.gif

入力用のフォームをデザインで開いて、フォームセレクタをダブルクリック。
フォームのプロパティを表示させます。
「イベント」タブから「挿入前処理」プロパティのビルドボタンをクリック。
a0030830_120215.gif

コードビルダを選択して「OK」ボタンをクリック。
a0030830_1214526.gif

下のようにコードを書きます。
「ナンバー」はテキストボックスの名前。
「管理テーブル」は、テーブルの名前。
赤線の部分だけ書き直します。
管理テーブルのレコード件数を数えて、0だったら1を返して、
それ以外なら管理テーブルの中で一番大きな値に1を足したものを返すというもの。
a0030830_133494.gif

これでOKです。
もしも、データが入力されたあとなら↓のように一行だけでもいいです。
(ナンバーフィールドに「1」が入力されたあとなら)

a0030830_1239852.gif

ビューを切り替えて、入力してみます。
ナンバーには入力しないで「所属」フィールドで選択した時点で自動的に番号が振られます。
a0030830_1831513.gif

ナンバーテキストには、カーソルが移動しないようにした方がいいかもしれませんね。
「ナンバー」テキストボックスのプロパティの「データ」タブから、
「使用可能」を「いいえ」、「編集ロック」を「はい」にします。
これで、ナンバーのテキストボックスにはカーソルは移動しなくなります。
a0030830_1423455.gif

a0030830_1832191.gif

----------------------------------
たとえば、管理テーブルでナンバー3のレコードを削除したとします。
a0030830_18393881.gif

テーブルで新しくナンバー3を入力します。
a0030830_18334130.gif

フォームを開くと、ちゃんと並び変わっています。もちろん、テーブルも昇順に並びます。
a0030830_1834296.gif

by hama_y | 2005-10-14 01:45 | Access |▲TOPへ

<< 携帯から レコードソース >>



パソコンのお役立ち機能を一緒に学びませんか?[初心者のためのOffice講座 hamachan.info]のサポートブログです。
by はま
サイト内検索
記事ランキング
最新の記事
表の位置をスライドの中央に表..
at 2017-10-11 16:07
クイックアクセスツールバーに..
at 2017-10-11 15:02
Windows10のIMEで..
at 2017-09-10 10:08
Systemによってファイル..
at 2017-08-24 12:32
Windows10のIMEに..
at 2017-08-24 11:49
新規ブックのワークシート数
at 2017-08-11 20:27
表の縞模様ダイアログボックス..
at 2017-08-10 23:53
Windows10でWi-F..
at 2017-07-17 18:02
ページレイアウトタブに「シー..
at 2017-07-08 11:57
リボンのユーザー設定で「基本..
at 2017-07-05 15:19
リンク
カテゴリ
全体
Windows
IME
Office共通
Word
Excel
PowerPoint
Access
Outlook
Internet Explorer
Outlook Express
ホームページビルダー
ATOK
一太郎
筆まめ
筆王
筆ぐるめ
PhotoshopElements
ネットワーク
PCインストラクター
ああ~お客様
(@_@)
iPhone
SharePoint
未分類
以前の記事
2017年 10月
2017年 09月
2017年 08月
more...
検索
外部リンク