Office中国论坛/Access中国论坛

标题: 请教,如何让选择的编号与另一表对应 [打印本页]
作者: cjf78    时间: 2012-9-8 17:57
标题: 请教,如何让选择的编号与另一表对应
本帖最后由 cjf78 于 2012-9-8 17:59 编辑

请教板主及师长们：

    如A1图，点击AF176，是这样的效果，如何实现A2图的效果，只显示选择的编号，敬请指教！感谢。
作者: caoguangyao    时间: 2012-9-9 10:17
1 先创建一个窗体“查询成本2窗体“，以查询‘成本2’为其数据源
2 在“安驰编号”的双击事件中编写如下代码：
Private Sub 安驰编号_DblClick(Cancel As Integer)
DoCmd.OpenForm "查询成本2窗体", acFormDS, , "[安驰编号]='" & Me.安驰编号 & "'"
End Sub
[attach]50344[/attach]
作者: Henry D. Sy    时间: 2012-9-9 10:26
按楼上的办法处理
如果实在要直接打开查询，则：
  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
复制代码
[attach]50345[/attach]
作者: cjf78    时间: 2012-9-9 14:04
看到Henry D. Sy 版主和caoguangyao 金牌会员的大作，令我兴奋不已，受益匪浅。特别又是休息日，帮我详细指教，更叫我感激，再次真诚谢过。




欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3