トップ | ログイン
オートナンバー型は使いたくない
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 はま
サイト内検索
リンク
PROFILE
問い合わせ
プライバシーポリシー
初心者のためのOffice講座
はじめてのMac

[アフィリエイトやるなら]
カンファレンスバナー
[MVP]

Microsoft MVP for Word
(2016.1-2017.12)
Microsoft MVP for Office System
(2009.1-2015.12)

Google+
外部リンク
記事ランキング
最新の記事
フォームのテキストボックスを..
at 2017-03-20 17:29
Windows10でタスクバ..
at 2017-03-11 19:06
メールリンクをクリックしてG..
at 2017-03-07 19:30
Wordの裁ちトンボの印刷は..
at 2017-03-05 14:28
重要なファイルは拡張子を変え..
at 2017-02-23 23:32
カテゴリ
全体
Windows
IME
Office共通
Word
Excel
PowerPoint
Access
Outlook
Internet Explorer
Outlook Express
ホームページビルダー
ATOK
一太郎
筆まめ
筆王
筆ぐるめ
PhotoshopElements
ネットワーク
PCインストラクター
ああ~お客様
(@_@)
iPhone
SharePoint
未分類
以前の記事
2017年 03月
2017年 02月
2017年 01月
more...
検索