Q&A
回答ありがとうございます。
レコードの削除については、論理削除にしているで、マスタのもとになっているテーブルに削除フラグのフィールドがあり削除ボタンを押すことによってフォーム上では表示されませんがテーブルにはチェックが入っているだけで実際にはデータが残っているという状況になっています。
ですので、フォームで表示されている件数が999998という場合でも実際にテーブルに999999件入っているわけなので結論をいうと、歯抜けになる可能性はあります。
##質問内容
管理システムを作成しているのですが、マスタにそれぞれ登録できるレコード数（件数）
が、指定してある件数を超える場合、追加できないような処理について質問させていただきます。
それぞれ顧客、商品、担当者etc 各マスタがあるのですが、そこに最大で
999999件登録できるようにしてあります。
マスタフォームのフッターに追加コマンドボタンがあり、それを押すと新規登録フォームが開きます。そこでは、自動採番して、開いたときに番号を振るようにしています。
※採番については、過去に協力していただいた私の質問を参考に→こちら
この場合、マスタの追加コマンドボタンを押して、新規入力フォームが開くときにIf文で番号の大きさで、分岐させればよいのでしょうか。
追加コマンドボタンをクリック時は今のところこのような感じです。
VBA
1'---------------------------- 2'追加ボタン使用時 3'---------------------------- 4Private Sub Button_Add_Click() 5 '顧客入力を開く 6 DoCmd.OpenForm "F_WCustomerInput", , , , , , "追加" 7End Sub
アドバイスのほうお願いします。
回答2件
0
そもそもですけど、必要な情報を追加できないシステムには意味がありません。
番号を管理する場合の番号の上限は上限を迎えないように設計するのが普通です。
それを前提に、もし上限を迎えた時の考慮というなら、
・登録フォームを開く前に最大番号をチェックして番号を超えている場合は、メッセージ表示して登録フォームは開かない
という処理は考えられるでしょう。
投稿2019/07/04 04:38
編集2019/07/04 04:39
総合スコア25173
0
ベストアンサー
過去の質問と回答をきちんと確認してませんが、レコードが途中で削除され採番値が歯抜けになる可能性はあるのでしょうか。
（仮に途中のレコードが1件削除されている場合、999998件しかデータがないのに採番値は999999になるという状況はあるのか）
その場合999999件目のレコードの採番値は1000000になると思いますが、採番値が6桁を超えることで不都合がありますか？
vba
1もしテーブルの件数が登録可能上限値以下なら 'もしくは採番値が最大値以下なら 2 登録用のフォームを開く 3それ以外の場合 4 「これ以上登録できません」というメッセージを出す 5終了
ここから追記
コメントしたDLookup("最大値設定フィールド名", "採番テーブル名", "[ID] = 1")の"[ID] = 1"について
質問に提示してあった過去の質問を見ると採番用のテーブルがあったようなのでこういう状態を想定してました。
| ID | 採番値 | 最小 | 最大 | フォーマット | 備考 |
|---|---|---|---|---|---|
| 1 | 006425 | 000001 | 999999 | 000000 | 顧客用 |
| 2 | 000753 | 000001 | 999999 | 000000 | 商品用 |
| 3 | 076152 | 000001 | 999999 | 000000 | 担当者用 |
テーブル名、フィールド名が前の質問のままかわからず、例として挙げた顧客マスターを表すレコードをどう表現していいかわからなかったのですが、おそらくIDをF_NumCode、1を顧客用の所のF_NumCodeの値に読み替えていただければいいのではないかと思います。この辺はDLookupの使い方調べてみてください。
採番テーブルではなく顧客マスターテーブルの最大値（DMaxの方）を使うなら気にしなくて大丈夫です。
投稿2019/07/04 05:17
編集2019/07/05 07:40
総合スコア3235
あらかじめ採番テーブルで最小０から最大999,999までと定めているので、実際1,000,000を超えようとすると当然ですが、エラーが発生するといった現状です。
あぁ、削除用のYes/Noフィールド的なものがあるんですね。
その場合テーブルには999999件登録されているけど有効レコードは999998件ですよね。
次の新規レコードの扱いはどうする仕様なのでしょうか。
登録させないようにする という方向の場合、回答のコメント部にある通り「採番値と最大値を比較」し、上限なので登録できません と表示して終わらせるだけです。
使用者からしたら「あと1件登録できるはずなのに…」となりますが。
登録させないようにします。
その場合どのように比較対象を文で書けばいいのでしょうか。
ifの条件式 比較対象 >= 999999 という風にしたいのですが。
「顧客マスターの現在の最大値」or「採番テーブルの採番値」と「設定された上限」を比較することになります。
顧客マスターの現在の最大値：DMax("IDフィールド名", "顧客マスターテーブル名")
採番テーブルの採番値：DLookup("採番フィールド名", "採番テーブル名", "[ID] = 1") '採番テーブルにおける顧客マスターのIDが1なら
設定された上限：DLookup("最大値設定フィールド名", "採番テーブル名", "[ID] = 1") '採番テーブルにおける顧客マスターのIDが1なら
ifに直接入れるのがごちゃごちゃして嫌なら、適当な変数を作って入れてください。（変数名はお好きにつけてください/型が違うようなら修正を）
Dim 現在顧客最大 As Long, 設定上限 As Long
現在顧客最大 = DMax("IDフィールド名", "顧客マスターテーブル名")
設定上限 = DLookup("最大値設定フィールド名", "採番テーブル名", "[ID] = 1")
If 現在顧客最大< 設定上限 Then
登録フォームを表示
Else
msgbox "登録の上限に達しているためこれ以上登録できません"
End If
テストしてないのでうまく動くかわかりませんが…。
回答ありがとうございます。
恥ずかしながら、"ID = 1" という条件がまだいまいちピンと来ていないので、よろしければ詳しくお願いしてもよろしいでしょうか。
コメント欄だとわかりづらいので回答に追記します。
しばしお待ちを。
Private Sub Button_Add_Click()
Dim MGT As String
Dim SETMAX As String
MGT = DLookup("F_MgtCode", "T_Num", "F_TableName = Customer")
SETMAX = DLookup("F_Max", "T_Num", "F_TableName = Customer")
If MGT < SETMAX Then
'顧客入力を開く
DoCmd.OpenForm "F_WCustomerInput", , , , , , "追加"
Else
MsgBox "登録の上限に達しているためこれ以上登録できません"
End If
End Sub
※dit.さんのいうところのF_NumCodeをF_TableNameに変更、値をCustomrにしました。
のように実行してみたのですが、Customerのところでクエリのパラメータについての実行時エラーがでてうまく分岐が出来なかったです。アドバイスがあれば、よろしくお願いいたします。
↑Customerの部分を文字列としての、シングルクォーテーションを忘れていました。
お騒がせしました。
以上で問題を解消することが出来ました。
ありがとうございました。
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
退会済みユーザー
2019/07/04 05:10
2019/07/04 05:53 編集
退会済みユーザー
2019/07/04 05:39