請教,如何讓選擇的編號與另一表對應(yīng)

cjf78

請教板主及師長們：

    如A1圖，點擊AF176，是這樣的效果，如何實現(xiàn)A2圖的效果，只顯示選擇的編號，敬請指教！感謝。

caoguangyao

1 先創(chuàng)建一個窗體“查詢成本2窗體“，以查詢‘成本2’為其數(shù)據(jù)源
2 在“安馳編號”的雙擊事件中編寫如下代碼：
Private Sub 安馳編號_DblClick(Cancel As Integer)
DoCmd.OpenForm "查詢成本2窗體", acFormDS, , "[安馳編號]='" & Me.安馳編號 & "'"
End Sub

Henry D. Sy

按樓上的辦法處理
如果實在要直接打開查詢，則：

1. Private Sub 安馳編號_Click()
   
2. Dim qdf As DAO.QueryDef
   
3.     Dim stDocName As String
   
4.     Dim strSQL As String
   
5.     stDocName = "成本2"
   
6.     Set qdf = CurrentDb.QueryDefs(stDocName)
   
7.     strSQL = _
   
8.         "SELECT 安馳編號,套片數(shù),F4價格,F6價格,鐵掌A單價,鐵掌B單價, IIf(IsNull(([套片數(shù)]/2)*([鐵掌A單價]+[鐵掌B單價])),0,([套片數(shù)]/2)*([鐵掌A單價]+[鐵掌B單價])) AS 鐵掌套價, IIf(IsNull([附件套價]),0,[附件套價]) AS 附件價格, 成本表.紙箱單價, 成本表.箱套數(shù), 成本表.彩盒單價, 成本表.輔料單價, 成本表.人工工資, [紙箱單價]/[箱套數(shù)] AS 紙箱分攤, [F4價格]+[鐵掌套價]+[附件價格]+[紙箱分攤]+[彩盒單價]+[輔料單價]+[人工工資] AS F4成本, [F6價格]+[鐵掌套價]+[附件價格]+[紙箱分攤]+[彩盒單價]+[輔料單價]+[人工工資] AS F6成本 FROM 成本表 where 安馳編號='" _
   
9.         & Me.安馳編號 & "'"
   
10.     qdf.SQL = strSQL
    
11.     DoCmd.OpenQuery stDocName, acNormal
    
12.     qdf.Close
    
13. End Sub
    

復(fù)制代碼

cjf78

看到Henry D. Sy 版主和caoguangyao 金牌會員的大作，令我興奮不已，受益匪淺。特別又是休息日，幫我詳細指教，更叫我感激，再次真誠謝過。