台灣最大程式設計社群網站
線上人數
723
 
會員總數:243865
討論主題:188351
歡迎您免費加入會員
討論區列表 >> ACCESS >> 連續表單的問題
[]  
[我要回覆]
1
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
連續表單的問題
價值 : 20 QP  點閱數:144 回應數:7

樓主

zzz
門外漢
0 2
49 5
發送站內信

我想請教
在access有沒有方法可以使用VBA資料輸入的方式來完成連續表單
我想把表單1的資料丟到表單2

我使用DAO的方式抓資料到表單2
但是我接收資料的controls的數量是固定的
都只能接收到最後一筆的資料

有沒有方法可以向連續表單那樣自動增加一列的controls來讓我放進其他筆的資料


搜尋相關Tags的文章: [ 連續表單 ] ,
本篇文章發表於2019-01-07 17:21
別忘捐VP感謝幫助你的人 新手會員瞧一瞧
1樓
回應

P陳
檢舉此回應
請將程式PO上來好嗎?
本篇文章回覆於2019-01-07 21:11
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
2樓
作者回應

zzz
檢舉此回應
Dim rst As dao.Recordset
Set rst = CurrentDb.OpenRecordset("SELECT * FROM 資料表 WHERE 資料表.欄位1 = '" & 表單1.control & "'")
表單2.control1 = rst.Fields("欄位1")
表單2.control2 = rst.Fields("欄位2")
表單2.control3 = rst.Fields("欄位3")
rst.MoveNext
本篇文章回覆於2019-01-08 08:39
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
3樓
作者回應

zzz
檢舉此回應
資料放得進去但我想要每多一筆資料就多顯示一行資料
本篇文章回覆於2019-01-08 08:41
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
4樓
回應

P陳
檢舉此回應
您的程式確定可以跑嗎? 您的Access 是那一個版本?

您的作法
1.在表單3 的按鈕上按一下
2.以表單1的條件 讀取 資料表的資料
3.放到 表單2 的Control1 Control2 control3 對嗎?
-----------------------------------------------------
你的問題
1.相同條件可能有多筆 要全部加入?
2.只會 RST 的資料 放在表單2的某筆上沒有跳到下一筆

我依您的程式直接跑是跑不出來的。(要作修改)
請將您的目前的程式PO出來,及問題點告知。



本篇文章回覆於2019-01-08 10:35
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
5樓
作者回應

zzz
檢舉此回應
不好意思複製的時候好像有少弄到,這次應該是完整版的了
Dim rst As dao.Recordset
Set rst = CurrentDb.OpenRecordset("SELECT * FROM 資料表 WHERE 資料表.欄位1 = '" & 表單1.control & "'")
Dim strSQL As String

Do While (rst.EOF <> True)
表單2.control1 = rst.Fields("欄位1"))
表單2.control2 = rst.Fields("欄位2")
表單2.control3 = rst.Fields("欄位3")
rst.MoveNext
Loop
我用的是2016的access

您的作法
1.在表單3 的按鈕上按一下---------------------------->我是在表單1的button
2.以表單1的條件 讀取 資料表的資料------------------->沒錯
3.放到 表單2 的Control1 Control2 control3 對嗎?---->沒錯

你的問題
1.相同條件可能有多筆 要全部加入?-------------------->大概10幾筆的資料而已
2.只會 RST 的資料 放在表單2的某筆上沒有跳到下一筆

我的問題點是
在access表單屬性表裡的格式可以改連續表單再選資料來源就可以呈現多筆資料
我想有沒有可能在VBA裡用資料輸入的方式來達到這種效果

本人小菜鳥一枚剛接觸一個多月
問題怪怪的還請見諒
本篇文章回覆於2019-01-08 11:29
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
6樓
最有價值解答

P陳
檢舉此回應
您還有很多東西要補
以下您試看看

用二個資料表 Table1 Table2
用二個表單 表單1 表單2 您看有沒有達到您的要求



本篇文章回覆於2019-01-09 17:39
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
7樓
作者回應

zzz
檢舉此回應
感謝P陳大大的幫忙
本篇文章回覆於2019-01-09 19:59
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
   
1

回覆
如要回應,請先登入.