台灣最大程式設計社群網站
線上人數
728
 
會員總數:244390
討論主題:188629
歡迎您免費加入會員
討論區列表 >> ACCESS >> 新增一筆記錄至其他記錄表
[]  
[我要回覆]
1
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
新增一筆記錄至其他記錄表
價值 : 30 QP  點閱數:93 回應數:6

樓主

棠棠
門外漢
0 22
246 30
發送站內信

請問各位大大,詢問一個可能大家覺得簡單的問題>"<
我會用"按鈕元件"直接選"新增記錄"至當下資料表
但想要新增TEXT中資訊到其他資料表時,
不知道VBA該怎麼寫...
比如說:
我在A表單中有TEXT1、TEXT2、TEXT3
按下BUTTON後,我會先判別TEXT1是否與B資料表的資料用DLOOKUP看是否重複
如果沒有重複
然後再執行新增記錄的功能
將TEXT1、TEXT2、TEXT3新增至B資料表中的三個欄位

問題在於,VBA語法的"新增至其他資料表某些欄位"該怎麼撰寫呢?



搜尋相關Tags的文章: [ 新增記錄 ] ,
本篇文章發表於2019-05-11 12:57
別忘捐VP感謝幫助你的人 新手會員瞧一瞧
1樓
回應

P陳
檢舉此回應
方法很多
以下是之一


set rs1=currentdb.opendataset("table1")
set rs2=currentdb.opendataset("Table2",dbopendynaset)

rs2.findfirst("Text1='" & rs1("Text1")
if not rs2.nomatch then msgbox " 重覆" exit sub

rs2.add
rs2("text1")=rs1("Text1")
rs2("text2")=rs1("Text2")
rs2("text3")=rs1("Text3")
rs2.update

本篇文章回覆於2019-05-11 16:49
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
2樓
作者回應

棠棠
檢舉此回應
我用比較陽春的寫法,只是執行後都是第一筆資料被覆蓋,沒法新增
看各位大大看哪裡怪怪的,協助指導修正,謝謝!>"<

Private Sub 訂購單_click()
pp = DLookup("會員姓名", "加入會員", "會員姓名=" & Chr(39) & Me![Text53] & Chr(39))
If IsNull(pp) = True Then
x = MsgBox("無此會員,是否新增新會員", 4, "訊息")
Select Case x
Case vbYes
Form_加入會員.會員姓名.Value = Me.Text53.Value
Form_加入會員.電話.Value = Me.Text55.Value
Form_加入會員.註冊方式.Value = "購買"
DoCmd.GoToRecord , 加入會員, acNewRec
Text53.Value = ""
Text55.Value = ""
Case vbNo
Text53.Value = ""
Text55.Value = ""
End Select
End If

End Sub

本篇文章回覆於2019-05-12 14:15
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
3樓
回應

roar
檢舉此回應
If IsNull(pp) = True Then
原來code處理無EQ

else
end if

本篇文章回覆於2019-05-12 16:48
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
4樓
回應

roar
檢舉此回應
用 runsql 看看吧!
Select Case x
Case vbYes
DoCmd.RunSQL "INSERT INTO B (甲, 乙, 丙) VALUES ('" & Forms("A").Text1.Value & "', '" & Forms("A").Text2.Value & "', '" & Forms("A").Text3.Value & "')"

本篇文章回覆於2019-05-12 17:32
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
5樓
回應

P陳
檢舉此回應
---- 這段有問題-----
Form_加入會員.會員姓名.Value = Me.Text53.Value
Form_加入會員.電話.Value = Me.Text55.Value
Form_加入會員.註冊方式.Value = "購買"
DoCmd.GoToRecord , 加入會員, acNewRec

----- 應該是先 GOTO 新增一筆空白 再放資料----------
您先放資料後再新增一筆空白、當然會錯




本篇文章回覆於2019-05-12 23:47
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
6樓
回應

roar
檢舉此回應
我寫了一個可以試試看。
https://drive.google.com/open?id=1CE4BJUB5E26sUsqWtpWDsCvzxwLSDJ_A
本篇文章回覆於2019-05-15 19:28
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
   
1

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