| |
▼ＥＭＩ さん：
案です。
「点数_行」テーブルを作ります。
点数
１
２
２
３
３
３
４
４
４
４
・
・
この「点数_行」テーブルと、「在庫」テーブルを「点数」でリレーションすれば、
希望のレポートのレコードソースが出来ます。
点数が何点まであるかにもよりますが、ＶＢＡで加工していくより簡単かと思います。
「点数_行」テーブルへのデータの追加は、以下のコードを使用すると簡単です。
Private Sub sub_データ作成()
Dim myTENSU As Long
Dim myLooP As Long
Dim mySQL As String
For myTENSU = 1 To 100 '点数の下限と上限
For myLooP = 1 To myTENSU
mySQL = "INSERT INTO 点数_行 SELECT " & _
myTENSU & " AS 点数 "
DoCmd.SetWarnings False
DoCmd.RunSQL mySQL
DoCmd.SetWarnings True
Next myLooP
Next myTENSU
End Sub
以上、案です。参考までに。
|
|
飛ばない豚
- 06/8/18(金) 9:30 -
