【会社情報】に関する知恵袋
【質問】
会社情報の知恵袋に関連する説明をすると、横浜の待遇の事務は、ＡＣＣＥＳＳで会社情報の登録フォームを作成したいと思っています。横浜の待遇の事務を解説します。まず、フォーム上のテキストボックスに、会社名（テーブル名は会社情報）を入力しその会社が既に登録済みだったら、エラーとエラーメッセージを返します。（ＤＬＯＯＫＵＰ関数を使う予定です）未登録であれば、会社情報を保有しているテーブルに項目「会社ＩＤ」へ「Ａ１」という形で連番を振りたいと思っています。どのようにしたら 自動的に会社ＩＤを振れますでしょうか？以上が会社情報の知恵袋についての詳細です。
【解答】
フォームの「会社ＩＤ」テキストボックスの「更新前」イベントを使って連番を振る方法を紹介します。方法１：（すごく簡単に。登録後に削除したデータがあった場合に困ります。会社情報の知恵袋を追求していくと、） If Dcount("会社ＩＤ","会社情報") = 0 then '１件目の登録時 Me.会社ID.Value = "A1" Else Me.会社ＩＤ.Value = "A" & Mid(DMax("会社ＩＤ","会社情報"),2) + 1 End If方法２：（削除したデータがあってもＯＫ）「会社ＩＤ」のデータ書式を、 A00001" の様にしました。 ■番号管理用のテーブルを１つ作成。（テーブル名、横浜の待遇の事務については、番号とでも） ・フィールドは１つ。テキスト型で。桁数は５桁（最大会社情報が９９，９９９件可能。実際の状況で設定してください。会社情報の知恵袋に関連する解説をすると、）。 フィールド名は「最大番号」とでも。 ■「会社ＩＤ」テキストボックスの「更新前」イベント処理。 Dim SQL As String '番号テーブルを更新するSQL文格納の変数 Dim VarNo As Variant '新しい番号を格納する変数if Dcount("最大番号", "番号") = 0 then VarNo = 1Else VarNo = DMax("最大番号", "番号") + 1 '最大番号に１プラスして新しい番号を入手End If Me.会社ID.Value = "A" & Format(VarNo, "00000") '会社ID にAを付加して番号付与。 ''番号テーブルを新番号に更新するSQL文。 SQL = "UPDATE 番号 SET 番号.最大番号 =" & [VarNo] & ";" ''SQLを実行。 DoCmd.RunSQL SQL横浜の待遇の事務の説明は以上です。