Office中国论坛/Access中国论坛

标题: 请大家帮忙建立一个模块 [打印本页]
作者: siaele    时间: 2011-11-29 11:50
标题: 请大家帮忙建立一个模块
本帖最后由 siaele 于 2011-11-29 11:50 编辑

这几天都在琢磨这个问题,还是没有根本解决,还是要论坛的大大们帮一下忙.我的模块基础实在是太差了{:soso_e106:} .

见附件例子:
  1.有窗体1,窗体2,窗体3......,它些窗体上面都有一个按钮(放大镜那个),点击按钮后,修改查询"b_InQuiry_VendorQuery",将查询里面的where条件改成当前窗体的文本框(VendorNO)的值>>
  2.弹出窗体B,窗体B的子窗体数据源是被修改后的查询"b_InQuiry_VendorQuery">>
  3.双击窗体B上的查询结果,将结果传送给"上一个窗体"(即从窗体1打开窗体B,就将内容传递给窗体1),然后关闭窗体B.

我现在的做法是(对应上面的顺序):
1.打开窗体1后,单击按钮事件后: 修改查询(见VBA里的"NewSql "子程序,调用了模块"UpdateSql"
   
  1. Sub NewSql() '更新查询
  2. Dim VendorSql As String
  3. Dim frName As String

  5. frName = Me.Form.Name '获取当前窗体名

  7. '*开始输出SQL
  8. VendorSql = "SELECT [2_Vendor_Information].VendorNO, [2_Vendor_Information].VendorName, [2_Vendor_Information].VenAdress1, [2_Vendor_Information].VenAdress2,"
  9. VendorSql = VendorSql + "[2_Vendor_Information].Contact1, [2_Vendor_Information].Mobile1, [2_Vendor_Information].Contact2, [2_Vendor_Information].Mobile2,[2_Vendor_Information].Tel,"
  10. VendorSql = VendorSql + "[2_Vendor_Information].Fax, [2_Vendor_Information].Credit, [2_Vendor_Information].Checkout, [2_Vendor_Information].Email,[2_Vendor_Information].State"
  11. VendorSql = VendorSql + " FROM 2_Vendor_Information"
  12. VendorSql = VendorSql + " WHERE ((([2_Vendor_Information].VendorNO) Like" & Chr$(34) & "*" & Chr$(34)
  13. VendorSql = VendorSql + " & [Forms]!["
  14. VendorSql = VendorSql & frName
  15. VendorSql = VendorSql + "]![VendorNO] & " & Chr$(34) & "*" & Chr$(34)
  16. VendorSql = VendorSql + ")) OR ((([2_Vendor_Information].VendorName) Like" & Chr$(34) & "*" & Chr$(34)
  17. VendorSql = VendorSql + "& [Forms]!["
  18. VendorSql = VendorSql & frName
  19. VendorSql = VendorSql + "]![VendorNO] &" & Chr$(34) & "*" & Chr$(34)
  20. VendorSql = VendorSql + ")) ORDER BY [2_Vendor_Information].VendorNO;"

  22. Call UpSql("b_InQuiry_VendorQuery", VendorSql)
  23. End Sub
复制代码
2.弹出窗体B,窗体B在加载事件执行 Me.PreFmName = Forms(Forms.Count - 2).Name ,使用文本框控件PreFmName获取窗体1的窗体名(呵呵,得到了t小宝版主的指点)
3.双击窗体B中的内容,将内容传送到窗体1.
  1. Sub TranVendor()
  2. Dim fName As String
  3. fName = Me.Parent.PreFmName
  4. Forms(fName).[VendorNO] = Me.VendorNO
  5. DoCmd.Close

  7. End Sub
复制代码

'------------------------------------------
上面的方法达到了我的要求,但是窗体1,窗体2,窗体3......都个窗体都要包含一个子程序"NewSql",感觉程序有些臃肿. 我觉得应该可以用模块来进行精简,但是小弟的access是边用边学,以前没接触过,对模块是一头雾水. 所以请大家帮一下忙,编一个模块,可以将"NewSql" 这个子程序精简到模块里.

附件在这里:[attach]47474[/attach]





作者: Henry D. Sy    时间: 2011-11-29 12:55
这么复杂，看得有点晕！
作者: siaele    时间: 2011-11-29 16:45
自己顶一下.
作者: siaele    时间: 2011-11-30 08:43
回看,盼交流



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