MA ACCESSデータベースに詳しい方お願いします

質問

• MA ACCESSデータベースについての詳細な説明と、仕入管理のデータベース作成に関する質問内容が記載されています。
• 仕入管理テーブルと仕入日テーブルの構造とデータ例が示されています。
• 質問内容は、重複データの更新制限、商品数と管理番号2の制約、管理番号1のループに関する3つの要件です。

回答No.5

nicotinism

１・入力する立場とすれば、誤入力の際にすぐにエラー表示された方がありがたいと思います。
１レコード入力が終わった段階まで分からないと、
『なんで今頃出るんだよ！ キーッ』てな人もいますので。(-_-;)
遅くなってきたなーと思える頃に考え直しても良さそうに思います。
その頃には、質問者さんも自力解決出来る力量がついていて欲しいと思います。

２・最初の質問に
>2．商品数の値が「3」の場合に、管理番号2の値が「03」以上の値を入力できないようにする
とあったので、その条件に合うようにしたつもりなのですが・・・？
もしかして、私勘違い？
詳しくご説明をお願いします。

３・安直な方法で・・・良いのですかね？
少し考えを変えて、まともにしましたつもり。
提示されたコマンドクリック時のイベントを書き換えてみました。
Private Sub コマンド_Click()
Dim Data1 As Date
'カレント行の各値を変数に保存。
Dim oldKBNo As Long
Dim newKBNo As Long

If Me!ID <> DMax("ID", "T仕入管理") Then
MsgBox ("残念") '※最終レコードがカレントレコードではない
Exit Sub
End If

Data1 = IIf(IsNull(Me!仕入日), Date, Me!仕入日)
oldKBNo = Nz(Me!管理番号１, 0)
newKBNo = oldKBNo + 1 + Abs(oldKBNo Mod 9 = 0) + (oldKBNo = 0)
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~↑の9は本番では999に変えてください。9の次は1
'新規レコードに移動
Me.Recordset.AddNew
'
'変数の値を加工して代入
Me!仕入日 = Data1
Me!管理番号１ = Right(CStr(newKBNo), 1)
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~↑ここも1から3へ
End Sub

関数は自分でヘルプを参照してね。分からん関数のとこにカーソルを合わせF1キーで出ます。
Abs(oldKBNo Mod 9 = 0) と (oldKBNo = 0) は判別式です。
Trueの場合は-1がFalseでは0となるのを利用しています。

以下は独り言です。スルーしてください。
どうも管理番号1と管理番号2がテキスト型なのが気になる。
テーブルデザインで数値型にして、書式のところに必要なだけゼロを並べれば
数値型で有りながら、9→009になるのに。
単にデータ型変換とゼロ入力が面倒くさいからです。(^^ゞ

お礼

nicotinism 様
ご回答ありがとうございます。<m(__)m>

＞１・入力する立場とすれば、誤入力の際にすぐにエラー表示された方がありがたいと思います。
＞１レコード入力が終わった段階まで分からないと、

「T仕入管理」と同じフィールドを持つ「T月刊仕入管理」なるテーブルを作成してそのテーブルに
入力フォームより入力して「T月刊仕入管理」のデータを「T仕入管理」に追加しようと思ったのですが
「T月刊仕入管理」にデータが溜まっていくのですから同じ事ですよね…

＞遅くなってきたなーと思える頃に考え直しても良さそうに思います。
＞その頃には、質問者さんも自力解決出来る力量がついていて欲しいと思います。

自力解決出来るように頑張ります。

＞２・最初の質問に
＞>2．商品数の値が「3」の場合に、管理番号2の値が「03」以上の値を入力できないようにする
＞とあったので、その条件に合うようにしたつもりなのですが・・・？
＞もしかして、私勘違い？
＞詳しくご説明をお願いします。

説明不足また説明が下手ですみません。<m(__)m>
「管理番号2の値が「03」以上」ではなく「03」より多くでした。
---------------------------------------------------------------------------
仕入管理テーブル
ID　仕入日　　　　品名　　　商品数　管理番号1　　管理番号2　　仕入場所_CD

1　2010/09/26　　A財布　　　3　　　　001　　　　　01　　　　　　AB
2　2010/09/26　　A財布　　　3　　　　001　　　　　02　　　　　　AB
3　2010/09/26　　A財布　　　3　　　　001　　　　　03　　　　　　AB
4　2010/09/26　　B財布　　　2　　　　002　　　　　01　　　　　　AB
5　2010/09/26　　B財布　　　2　　　　002　　　　　02　　　　　　AB
6　2010/09/26　　C財布　　　1　　　　003　　　　　01　　　　　　AB

---------------------------------------------------------------------------
上記のように入力テーブルにて入力して「商品数」の(3)は(A財布が３個有ります)と言う意味になります。
ですので「商品数」は(3)の時もあるし(2)の時もあります。
それで「管理番号1：001」「管理番号2：01・02・03」A財布の「管理番号2」を「商品数」の値より多く
入力出来ないようにしたいです。
(A財布)を3個仕入れたら(A財布)のデータを、3レコードより多く入力出来ない様にする。

これで上手く説明出来ていますでしょうか？

＞３・安直な方法で・・・良いのですかね？
＞少し考えを変えて、まともにしましたつもり。
＞提示されたコマンドクリック時のイベントを書き換えてみました。

ありがとうございます。<m(__)m>
取り合えずこの方法とらして頂き「解答番号：No.4」の
＞標準モジュールに自前の関数を作成して
の処を勉強してみたいと思います。