查詢到的新增資料到子表單,是否可以變數來反覆輸入呢?
8/1~8/30
直到 i = 結束日期 為止
i = 起始日期 +1
不知該如何套入以下代碼
DIM RS AS RECORDSET
IF ME.DIRTY THEN ME.REFRESH
SET RS=CURRENTDB.OPENRECORDSET("歷史記錄資料表")
RS.ADDNEW
RS("商品名稱")=ME![商品名稱]
RS("訂購日期")=ME![訂購日期]
RS("數量")=ME![數量]
RS.UPDATE
RS.CLOSE
ME![子表單].REFRESH作者: ky2599y 時間: 2016-11-5 00:38
DIM RS AS RECORDSET
IF ME.DIRTY THEN ME.REFRESH
SET RS=CURRENTDB.OPENRECORDSET("歷史記錄資料表")
For i = 1 To (Me!結束日 - Me!起始日) + 1
RS.ADDNEW
RS("商品名稱")=ME![商品名稱]
RS("訂購日期")= Me![起始日] + i - 1
RS("數量")=ME![數量]
RS.UPDATE
Next i
RS.CLOSE
ME![子表單].REFRESH作者: hcm19522 時間: 2016-11-7 11:50