2017-08-25 144 views
0

我想顯示窗體上兩個表中的字段。這兩個表格是「客戶」和「車輛」。 (1:M)。客戶字段將顯示在主窗體中,並顯示我已經在數據表視圖中放置子窗體的車輛字段,並且我爲車輛ID添加了一個文本框。當我輸入CustomerID並在另一個窗體上單擊一個命令按鈕時,將使用子窗體(sfrmVehicle)打開此主窗體(frmCustomerDetails)。 客戶字段正確顯示在主窗體中。沒有錯誤消息,但我不能在子窗體中看到車輛字段。它只顯示#Name?六次。車輛表中有六條記錄,所以我認爲它甚至不會過濾該客戶的車輛。 (車輛表中只有兩條記錄屬於此客戶。) 我的Ms Access 2013 VBA代碼是;Access 2013中1:m表的主窗體和子窗體

Dim strSQL1 As String 
Dim rs1 As DAO.Recordset 
strSQL1 = "SELECT Customer.CustomerID, " & _ 
       " Customer.fName, " & _ 
       " Customer.lName, " & _ 
       " Customer.Telephone, " & _ 
       " Customer.MobilePhone, " & _ 
       " Customer.EMail, " & _ 
       " Customer.Address1, " & _ 
       " Customer.Address2, " & _ 
       " Customer.City, " & _ 
       " Customer.State, " & _ 
       " Customer.PostalCode, " & _ 
       " Vehicle.VehicleID " & _ 
       "FROM Customer INNER JOIN Vehicle ON Customer.CustomerID = Vehicle.CustomerID;" 
Set rs1 = CurrentDb.OpenRecordset(Name:=strSQL1, Type:=dbOpenDynaset) 
rs1.FindFirst "[CustomerID] =""" & txtIDs & """" 
DoCmd.OpenForm "frmCustomerDetails" 
[Forms]![frmCustomerDetails]![txtCustomerName] = rs1.Fields!fName 
.. 
.. 
[Forms]![frmCustomerDetails]![sfrmVehicle]![txtVehicleId].ControlSource = rs1.Fields!VehicleID 
rs1.Close 
Set rs1 = Nothing 

我是否必須爲主窗體和子窗體使用兩個不同的SQL語句?那麼如何做過濾。需要幫忙。請。

+0

對於主窗體+子窗體,您根本不需要任何代碼。請閱讀:https://support.office.com/zh-CN/article/Create-a-form-that-c​​ontains-a-subform-a-one-to-many-form-ddf3822f-8aba-49cb-831a -1e74d6f5f06b – Andre

回答

0

要對子窗體進行過濾,您只需要這個代碼;

Me.sfrmVehicle.Form.Filter = "[vehicleID]=" & Me.vehicleIDTextBox 
Me.sfrmVehicle.Form.FilterOn = True 

而對於子窗體中的名稱錯誤,這可能是因爲你沒有選擇在數據標籤正確的源對象在其屬性表。

編輯:像Andre說的那樣,SQL語句不需要它們。

+0

謝謝安德烈和馬克。我的另一個要求是有點複雜,這就是爲什麼我用VBA代碼和SQL語句嘗試它。接下來,我必須在表單中顯示3個表中的字段。當用戶輸入車輛ID時,必須顯示來自tblcustomer的客戶字段,來自tblVehicle的車輛數據以及來自tblPass的通過數據。 tblcustomer,tblvehicl 1:m和tblvehicle和tblpass 1:m。馬克我已經選擇了正確的源對象,我不知道這個錯誤的原因。 – Nathan

+0

在設計視圖中查看子窗體時,顯示#Name的文本框左上角是否有一個小的綠色三角形?如果是這樣,那麼文本框中控件源的拼寫不正確,並且無法在子窗體的控件源中找到。 – Mark

+0

沒有綠色三角形,拼寫正確。我剛刪除.controlsource來設置這樣的值屬性並檢查; [Forms]![frmCustomerDetails]![sfrmVehicle]![txtVehicleId] = rs1.Fields!VehicleID 然後,只有一個車輛ID(QWE0123)顯示七次。 QWE0123是車輛表中第一條記錄的字段。 – Nathan

相關問題