台灣最大程式設計社群網站
線上人數
866
 
會員總數:238810
討論主題:185349
歡迎您免費加入會員
討論區列表 >> ACCESS >> 表單用文字方塊把1個資料表資料儲存在另一個資料表
[ 變換順序 ]  
[我要回覆]
1
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
表單用文字方塊把1個資料表資料儲存在另一個資料表
價值 : 10 QP  點閱數:203 回應數:7

樓主

sichon
門外漢
0 3
57 11
發送站內信

我2個資料表,1個叫DISK1欄位有NUM,TITLE,資料都記錄在里面,另一個叫borrow,欄位也有NUM,TITLE
我開了一個表單,當我在文字方塊打DISK1欄位NUM的資料,他會搜尋DISK1欄位NUM,TITLE的資料
然後自動把DISK1欄位NUM,TITLE的資料儲存在borrow資料表的NUM,TITLE,應該要怎樣做

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

roar
檢舉此回應

Private Sub Search_AfterUpdate()

Dim rs As Recordset
Dim rt As Recordset
Dim no As Long

Set rs = CurrentDb.OpenRecordset("DISK1")
Set rt = CurrentDb.OpenRecordset("borrow")

no = Val(Me.Search)

Do Until rs.EOF

If rs![Num] = no Then
rt.AddNew
rt![Num] = rs![Num]
rt![title] = rs![title]
rt.Update

End If

rs.MoveNext
Loop

Application.RefreshDatabaseWindow

Set rs = Nothing
Set rt = Nothing

End Sub
本篇文章回覆於2017-01-13 20:39
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
2樓
作者回應

sichon
檢舉此回應
請問表單是用borrow的資料表嗎?而且程式是打在文字方塊里面嗎?
本篇文章回覆於2017-01-17 10:22
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
3樓
回應

roar
檢舉此回應
檔名 disk1 請參考

https://drive.google.com/file/d/0Byaf47T83Uj6T29BU0dJU0t1NzQ/view?usp=sharing
本篇文章回覆於2017-01-17 19:07
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
4樓
作者回應

sichon
檢舉此回應
不好意思,為甚麼我和你的一樣都不行,是哪裡有問題?
https://drive.google.com/file/d/0B6D9WxAUZkULcG5FRTMtLWF4Znc/view
本篇文章回覆於2017-01-18 12:45
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
5樓
不錯的參考

roar
檢舉此回應
你的Num是文字,so dim no as string,
no=me.text1,其他欄位自己補進去
Private Sub Text1_AfterUpdate()
Dim rs As Recordset
Dim rt As Recordset
Dim no As String

Set rs = CurrentDb.OpenRecordset("DISK1")
Set rt = CurrentDb.OpenRecordset("borrow")

no = Me.Text1

Do Until rs.EOF

If rs![NUM] = no Then
rt.AddNew
'補的位置

rt![NUM] = rs![NUM]
rt![TITLE] = rs![TITLE]
rt.Update
Me.Text3 = rs![TITLE]
End If

rs.MoveNext
Loop

Application.RefreshDatabaseWindow

Set rs = Nothing
Set rt = Nothing
End Sub
本篇文章回覆於2017-01-18 14:11
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
6樓
作者回應

sichon
檢舉此回應
那假如我新增完borrow的資料,想把剛搜尋DISK1的記錄刪除,而且不用提示,直接刪掉,不是用按鈕,是用剛用的文字方塊,還有表單的Text1文字方塊當按完ENTER後可以回去TEXT1文字方塊而不是回去下一個文字方塊,應該怎做?
本篇文章回覆於2017-01-18 16:40
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
7樓
最有價值解答

roar
檢舉此回應
Private Sub Text1_AfterUpdate()
Dim rs As Recordset
Dim rt As Recordset
Dim no As String

Set rs = CurrentDb.OpenRecordset("DISK1")
Set rt = CurrentDb.OpenRecordset("borrow")

no = Me.Text1

Do Until rs.EOF

If rs![NUM] = no Then
rt.AddNew
rt![NUM] = rs![NUM]
rt![TITLE] = rs![TITLE]
rt.Update
Me.Text3 = rs![TITLE]
rs.Edit
rs.Delete
End If

rs.MoveNext
Loop

Application.RefreshDatabaseWindow

Set rs = Nothing
Set rt = Nothing
End Sub

Private Sub Text3_GotFocus()

Me.Text1.SetFocus

End Sub
本篇文章回覆於2017-01-18 19:18
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
[ 變換順序 ]   
1

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