| |
▼まさ7251 さん：
返答ありがとうございます。
Public Function T送付書各部店用()
Dim Db As Database
Dim INRsA As Recordset
Dim INRsB As Recordset
Dim OTRs As Recordset
Dim 読込A As String
Dim 読込B As String
Dim 添字 As Double
Dim 最終添字 As Double
Dim 部店コード(40) As String
Dim 部店名(40) As String
Dim 店舗コード As String
Dim 設定 As String
Set Db = CurrentDb
読込A = "T部店名"
読込B = "ページテーブル"
Set INRsA = Db.OpenRecordset(読込A, dbOpenDynaset)
Set INRsB = Db.OpenRecordset(読込B, dbOpenDynaset)
Set OTRs = Db.OpenRecordset("T帳票テーブル（ACCESS)", dbOpenDynaset)
添字 = 0
Do Until INRsA.EOF
添字 = 添字 + 1
部店コード(添字) = INRsA!部店コード
部店名(添字) = INRsA!部店名
INRsA.MoveNext
Loop
最終添字 = 添字
'共通項目出力
OTRs.AddNew
OTRs!帳票名 = ""
OTRs!日付 = Date
OTRs!媒体種類 = "紙"
OTRs!返却有無 = "不要"
Do Until INRsB.EOF
添字 = 0
'本部店舗番号設定
If INRsB!店舗コード = "090" Then
店舗コード = "094"
Else
店舗コード = INRsB!店舗コード
End If
Do Until 最終添字 = 添字
添字 = 添字 + 1
If 店舗コード = 部店コード(添字) Then
設定 = 部店コード(添字) & 部店名(添字)
OTRs.Fields(設定) = -1・・・・・・・・・・・・・・・・・1.
OTRs.Fields(設定 & "枚数") = INRsB!ページ番号・・・・・2.
End If
Loop
INRsB.MoveNext
Loop
OTRs.Update
INRsA.Close
INRsB.Close
OTRs.Close
Db.Close
End Function
上記の1.と2.の部分です。
T帳票テーブルにはフィールド名０９４本部と０９４本部枚数があり
本当は
OTRs.０９４本部 ＝ −１
OTRs.０９４本部枚数 ＝ INRsB!ページ番号
と記述するのですが
０９４本部を読込んだ部店コード(添字)と部店名(添字)で処理したいのです。
rs("社員番号" & 番号) = "優秀
の記述でのうまくいきません。
よろしくお願いします。
|
|
ねもと
- 07/5/9(水) 8:55 -
