Ms-Access

ms-access:表單和子表單互動的問題

  • December 3, 2016

有一個主表格綁定到主表,public_OUT_Detelle_PMC。並且有一個表單綁定到一個較小的表,public_ficha_negocio,它是較大表中的欄位選擇。第二個表單用作子表單,我想將對子表單所做的編輯保存到主表中。

我曾嘗試使用簡單的 SQL 更新查詢,但由於某些未知原因,我無法使其工作,這讓我發瘋。

   Dim db As DAO.Database
   Dim qdfFN As DAO.QueryDef
   Dim rsFN As DAO.Recordset
   Set db = CurrentDb
   Set qdfFN = db.CreateQueryDef("")
   qdfFN.sql = "select * from [public_ficha_negocio] where [Codigo_RQM_Necesidad]='" & Me.Codigo_filtro.value & "';"
   qdfFN.ReturnsRecords = True
   Set rsFN = qdfFN.OpenRecordset
   Dim qdf As DAO.QueryDef
   Dim sSQL As String
   sSQL = "UPDATE [public_OUT_Detalle_PMC] SET " & _
             {a lot of fields are updated, I cut them out of the paste for simplicity}
             "WHERE [public_OUT_Detalle_PMC].[Codigo_RQM_Necesidad] = '" & rsFN!Codigo_RQM_Necesidad & "');"
   Set qdf = db.CreateQueryDef("", sSQL)
   qdf.Execute dbFailOnError
   qdf.Close
   qdfFN.Close
   rsFN.Close
   Set qdfFN = Nothing
   Set rsFN = Nothing
   Set qdf = Nothing

該查詢qdfFN用於檢索較小表的記錄,我希望將哪些數據“傳遞”到較大的表。該查詢qdf要麼不起作用,要麼我不了解如何使用這些 vba 對象。

我曾經Debug.print檢查過它們的值rsFN並且它們是正確的,我的意思是,我想傳遞到更大的表上的值就在那裡!這讓我頭疼

由於我是 VBA 和 Access 新手,所以我不知道在 vba 中執行操作時必須單引號'text',而不是引用numeric值並使用雜湊date值引用。insert into

引用自:https://dba.stackexchange.com/questions/156361