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

樓主

sichon
門外漢
0 3
73 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
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
8樓
回應

阿楓
檢舉此回應
各位前輩好,我是一個剛接觸ACCESS的新手,目前想用ACCESS做一個產品檢驗紀錄資料庫。
碰到的問題與這個主題相似,像做一個"產品基本資料"、"產品外觀檢驗"、"產品功能測試"的資料庫。
目前遇到問題是→想在"產品基本資料"的表單新增一個[產品編號]時,能自動在"產品外觀檢驗"及"產品功能測試"的資料庫新增一筆相同的[產品編號]紀錄。
(這樣就不用在"產品外觀檢驗"及"產品功能測試"的表單時重複選擇產品編號來增加操作的困難度XD)
目前參照網路上的範例,我使用如下:

■在"產品基本資料"的[產品編號]文字框的Afterupdate事件寫入下方程式
Dim RS1 As Recordset
Dim RS2 As Recordset

If Me.Dirty Then Me.Refresh

Set RS1 = CurrentDb.OpenRecordset("產品外觀檢驗")
RS1.AddNew
RS1("[產品編號]") = Me![產品編號]
RS1.Update
RS1.Close

Set RS2 = CurrentDb.OpenRecordset("產品功能測試")
RS2.AddNew
RS2("產品編號") = Me![產品編號]
RS2.Update
RS2.Close

小弟使用上述程式後,發現一個問題......
我在'產品基本資料'表單輸入A005,透過上述程式確實在'產品外觀檢驗'、'產品功能測試'的資料庫新增了'產品編號'A005的資料。
但是小弟跑到'產品外觀檢驗'、'產品功能測試'的表單準備進一步設定A005的檢驗狀況時,發現透過上/下一筆紀錄查詢時查不到A005的資料。
請問小弟使用的程式裡面是不是遺漏了那些判斷與更新命令?
本篇文章回覆於2017-09-04 23:13
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
[ 變換順序 ]   
1

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