Microsoft ACCESSで、オートナンバー型のように自動的に番号をふりたいのですが、その番号をただの数字ではなく、
「A001、A002、A003...」
のように番号の頭にアルファベットをつけて採番したいと思っています(アルファベットは固定)
自分なりに調べたところ、それを行うには、マクロかVBAを使うというところまではわかったのですが、細かい入力方法まではどうしてもわかりませんでした。
もしわかる方がいらっしゃいましたら、教えていただけないでしょうか?
よろしくお願いします。
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
なんか丸投げに近い質問ですね
一応回答しますがひょっとすると規定違反で削除されるかもよ
仕様がぜんぜん書かれていないのでその辺も適当に書いときます
何かした後、新規レコードの規定値に番号が表示されるというものです
レコードの削除後、更新後。フォームを開いた時に次のようなコードを書きます
Private Sub Form_AfterDelConfirm(Status As Integer)
Me.txt番号.DefaultValue = "'" & "A" & Format(Nz(Right(DMax("番号", "テーブル名"), 3), 0) + 1, "000") & "'"
End Sub
Private Sub Form_AfterInsert()
Me.txt番号.DefaultValue = "'" & "A" & Format(Nz(Right(DMax("番号", "テーブル名"), 3), 0) + 1, "000") & "'"
End Sub
Private Sub Form_Open(Cancel As Integer)
Me.txt番号.DefaultValue = "'" & "A" & Format(Nz(Right(DMax("番号", "テーブル名"), 3), 0) + 1, "000") & "'"
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) Accessのクエリの結果を、既存のエクセルに追加したい 2 2022/07/31 22:44
- Access(アクセス) Access IF文でテーブルに存在しない場合の処理について 2 2022/10/10 18:09
- Access(アクセス) Access DLookup vbaで条件を2件設定したい場合どうすればよいでですか? 現在 If( 1 2023/06/28 14:28
- Excel(エクセル) 関数EXACT(文字列,文字列)とexcelVBA 3 2022/04/14 15:07
- Excel(エクセル) 製品番号での整列と、検索に関して 3 2023/06/28 19:20
- Visual Basic(VBA) EXCEL VBAで教えてください。 1 2022/12/22 04:20
- Word(ワード) ワードで、任意の文字の前に、通し番号をつけたいです。 2 2022/09/15 02:40
- Visual Basic(VBA) エクセルVBA 4 2022/05/14 00:51
- Excel(エクセル) Excel VBA セルの書式設定 2 2022/03/30 10:48
- その他(プログラミング・Web制作) 入力フォームへ、データを自動的に入力するプログラム。どうやって作る? 4 2023/01/16 10:24
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Accessで別テーブルの値をフォ...
-
【Access】選択クエリのグルー...
-
access 自動採番 年が変わる...
-
アクセス 項目ごとに自動採番
-
access 自動採番 「10-AA-000...
-
[Access]異なるレコード間の文...
-
Accessで日付が変わると番号が...
-
電話番号の局番と住所の検索に...
-
Accessでのレコード存在チェック
-
vba 直前の操作はキャンセルさ...
-
〜のような結果を出すためのSQL...
-
SELECT * FROM `生徒名簿` INNE...
-
アクセスで受付番号簿を作ろう...
-
【アクセスVBA】テーブルにフィ...
-
Access:抽出して、色をつけたい。
-
Accessで一致したデータを表示...
-
access クエリで集計した数値を...
-
Access でレコードセレクタが押...
-
SQL文で右から1文字だけ削除す...
-
Oracleでの文字列連結サイズの上限
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Accessで別テーブルの値をフォ...
-
access 自動採番 年が変わる...
-
最新の日付とその金額をクエリ...
-
Accessでのレコード存在チェック
-
【アクセスVBA】テーブルにフィ...
-
アクセスで「空き番」の確認
-
vba 直前の操作はキャンセルさ...
-
条件をつけて日付の古い行を抜...
-
質問です。 下記のテーブルとデ...
-
【Access】選択クエリのグルー...
-
[Access]異なるレコード間の文...
-
Access:抽出して、色をつけたい。
-
Access 文字+年ごとの自動採番
-
Accessで日付が変わると番号が...
-
access 自動採番 「10-AA-000...
-
Recordset.FindFirstについて
-
ACCESSでの行番号の自動採番
-
access2003で学籍番号から生徒...
-
【SQL】existsでの商演算
-
サイベースには、オラクルのROW...
おすすめ情報