access中兩個資料表各有不同日期如何合併查詢

Question

例如
2007/1/1 A帳戶餘額1,000;B帳戶餘額2,000
2007/1/2 A帳戶收到5,000
2007/1/10 B帳戶收到20,000
2007/1/20 A帳戶支出1,000
2007/2/8 B帳戶支出3,000
我想要做到查詢2007年1月收入及支出各多少，餘額多少
還有可否自動結轉成2007年2月1日餘額?

Answer 1

問題:兩個資料表各有不同日期作合併查詢
Ans:在查詢設定兩個資料表連結在到報表使用群組設定.便可以達到你的要求.
但你想要自動結轉成2007年2月1日餘額所以使用下列方法.
1:二個資料表名稱分別假設 A帳戶 B帳戶
資料表欄位名稱 日期 收到 支出 餘額
2:開啟一個新表單 設定一個新的指令按鈕 名稱 command1
3: 在_command1OnClick 輸入
dim A1 AS DAO.RECORDST,B1 AS DAO.RECORDSET,A21%,B21%,A22%,B22%
SET A1=CURRENTDB.OPENRECORDSET( " SELECT * FROM A帳戶
WHERE 日期 between # " & " 2007/1/1 " & " # and # " & "2007/1/31" & " # order by 日期;")
SET B1=CURRENTDB.OPENRECORDSET( " SELECT * FROM B帳戶
WHERE 日期 between # " & " 2007/1/1 " & " # and # " & "2007/1/31" & " # order by 日期;")
IF A1.RECORDCOUNT THEN
A1.MOVEFIRST
FOR H=1 TO A1.RECORDCOUNT
A21=A21+A1("收到")
A22=A22+A1("支出")
A1.MOVENEXT
NEXT
END IF
IF B1.RECORDCOUNT THEN
B1.MOVEFIRST
FOR J=1 TO B1.RECORDCOUNT
B21=B21+B1("收到")
B22=B22+B1("支出")
A1.MOVENEXT
NEXT
END IF
MSGBOX "A帳戶期初餘額1,000 收入計: " & A21 & "支出計: " & A22 & "本期結餘 " & 1000+A21-A22 & CHR(10) & _
"B帳戶期初餘額2,000 收入計: " & B21 & "支出計: " & B22 & "本期結餘 " & 2000+B21-B22 & CHR(10) & _
"期初餘額總計3,000 總收入計: " & A21+B21 & "支出計: " & A22+B22 & "本期結餘 " & 3000+A21+B21-A22-B22
A1.ADDNEW
A1("日期")="2007/2/1"
A1("餘額")=1000+A21-A22
A1.UPDATE
B1.ADDNEW
B1("日期")="2007/2/1"
B1("餘額")=2000+B21-B22
B1.UPDATE
A1.CLOSE:SET A1=NOTHING
B1.CLOSE:SET B1=NOTHING
A21=0:A22=0:B21=0:B22=0

2007-01-02 09:11:13 補充：
IF B1.RECORDCOUNT THEN
B1.MOVEFIRST
FOR J=1 TO B1.RECORDCOUNT
B21=B21 B1("收到")
B22=B22 B1("支出")
A1.MOVENEXT<===========將此句改==>B1.MOVENEXT
..
...
...

Answer 2

還是要去 http://aaashops。com 品質不錯，老婆很喜歡。
偟传哾县剿