请教,如何让选择的编号与另一表对应

cjf78

请教板主及师长们：

    如A1图，点击AF176，是这样的效果，如何实现A2图的效果，只显示选择的编号，敬请指教！感谢。

caoguangyao

1 先创建一个窗体“查询成本2窗体“，以查询‘成本2’为其数据源
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 安驰编号,套片数,F4价格,F6价格,铁掌A单价,铁掌B单价, IIf(IsNull(([套片数]/2)*([铁掌A单价]+[铁掌B单价])),0,([套片数]/2)*([铁掌A单价]+[铁掌B单价])) AS 铁掌套价, IIf(IsNull([附件套价]),0,[附件套价]) AS 附件价格, 成本表.纸箱单价, 成本表.箱套数, 成本表.彩盒单价, 成本表.辅料单价, 成本表.人工工资, [纸箱单价]/[箱套数] 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
    

复制代码

cjf78

看到Henry D. Sy 版主和caoguangyao 金牌会员的大作，令我兴奋不已，受益匪浅。特别又是休息日，帮我详细指教，更叫我感激，再次真诚谢过。