| |
▼ＥＭＩ さん：
おはようございます。
在庫管理は難しいですよね。
在庫管理をどの程度まで正確にやるかによるのですが
1つ1つの出庫日、入庫日や単価の管理を正確にやるには
>品番 色 サイズ 点数
>ＡＡ ＢＫ Ｓ １
>ＡＡ ＢＫ Ｓ １
>ＡＡ ＢＫ Ｓ １
>ＡＡ ＢＫ Ｍ １
>ＡＡ ＢＫ Ｍ １
>ＢＢ ＷＨ Ｍ １
という形でテーブルにはデータを持ち、
>品番 色 サイズ 点数
>ＡＡ ＢＫ Ｓ ３
>ＡＡ ＢＫ Ｍ ２
>ＢＢ ＷＨ Ｍ １
という様にユーザに見せる、という方が一般的だと思われます。
現在のテーブルのままでレポートを作成するには、
ワークテーブルを使うのが効果的でしょうか。
テーブル名：W_在庫
フィールド：品番、色、サイズ
を作成して、このテーブルを基にレポートを作成します。
レポートを発行するコマンドボタンに
Private Sub cmd印刷_Click()
'※要参照 Micosoft DAO x.x Object Library
Dim DB As DAO.Database
Dim RS As DAO.Recordset
Dim strSQL As String
Dim i As Long
Set DB = CurrentDb
strSQL = "DELETE FROM W_在庫"
CurrentDb.Execute strSQL, dbFailOnError
Set RS = DB.OpenRecordset("在庫", dbOpenForwardOnly)
Do Until RS.EOF
For i = 1 To RS![点数]
strSQL = "INSERT INTO W_在庫 (品番, 色, サイズ) " _
& "VALUES('" & RS![品番] & "', " _
& "'" & RS![色] & "', " _
& "'" & RS![サイズ] & "')"
DB.Execute strSQL, dbFailOnError
Next
RS.MoveNext
Loop
RS.Close
DB.Close
Set RS = Nothing
Set DB = Nothing
DoCmd.OpenReport "レポート名"
End Sub
のように記述する事でお望みの様な事はできるかと思われます。
|
|
小僧
- 06/8/18(金) 9:40 -
