Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

主子窗体中通过代码追加记录到子窗体的临时表中,但是窗体无显示

平民百姓  发表于:2008-10-14 21:49:52  
复制

 

 

 

 

主子窗体中通过代码追加记录到子窗体的临时表中,但是子窗体的数据无法显示!主子窗体通过流水号(LSH)来进行链接!流水号也更新成一样的!

 

 

代码如下:

 

Private Sub 引入配置单_Click()
DoCmd.SetWarnings False
strSQL5 = "INSERT INTO TblCodeXSMX_temp ( LSH, KeHuMingC, BianMa, TiaoXingMa, MingCheng, SortID, SubSortID, XingHao, JiLiangDanWei, ShuLiang, DanJia, JinE, CPType, BaoXiu, QiJian, RiQi, JieZhang, BeiZhu ) SELECT diannaopeizhidan.LSH, diannaopeizhidan.KeHuMingC, diannaopeizhidan.BianMa, diannaopeizhidan.TiaoXingMa, diannaopeizhidan.MingCheng, diannaopeizhidan.SortID, diannaopeizhidan.SubSortID, diannaopeizhidan.XingHao, diannaopeizhidan.JiLiangDanWei, diannaopeizhidan.ShuLiang, diannaopeizhidan.DanJia, diannaopeizhidan.JinE, diannaopeizhidan.CPType, diannaopeizhidan.BaoXiu, diannaopeizhidan.QiJian, diannaopeizhidan.RiQi, diannaopeizhidan.JieZhang, diannaopeizhidan.BeiZhu FROM diannaopeizhidan"
DoCmd.RunSQL strSQL5
strSQL6 = "UPDATE TblCodeXSMX_temp SET  tblcodeXsMX_temp.lsh = '" & Me.LSH & "'"
DoCmd.RunSQL strSQL6
Forms![frmxs_child_add]![frmXSMX_child_temp].Requery
End Sub

 

Top
刘贵平 发表于:2008-10-14 21:55:21

把查询语句代码放到一个新的查询中,看这个查询语句是否可以生成一个追加查询,运行这个查询是否可行.



符鸿敏 发表于:2008-10-14 21:55:47

Private Sub 引入配置单_Click()
DoCmd.SetWarnings False
strSQL5 = "INSERT INTO TblCodeXSMX_temp ( LSH, KeHuMingC, BianMa, TiaoXingMa, MingCheng, SortID, SubSortID, XingHao, JiLiangDanWei, ShuLiang, DanJia, JinE, CPType, BaoXiu, QiJian, RiQi, JieZhang, BeiZhu ) SELECT diannaopeizhidan.LSH, diannaopeizhidan.KeHuMingC, diannaopeizhidan.BianMa, diannaopeizhidan.TiaoXingMa, diannaopeizhidan.MingCheng, diannaopeizhidan.SortID, diannaopeizhidan.SubSortID, diannaopeizhidan.XingHao, diannaopeizhidan.JiLiangDanWei, diannaopeizhidan.ShuLiang, diannaopeizhidan.DanJia, diannaopeizhidan.JinE, diannaopeizhidan.CPType, diannaopeizhidan.BaoXiu, diannaopeizhidan.QiJian, diannaopeizhidan.RiQi, diannaopeizhidan.JieZhang, diannaopeizhidan.BeiZhu FROM diannaopeizhidan"
DoCmd.RunSQL strSQL5
strSQL6 = "UPDATE TblCodeXSMX_temp SET  tblcodeXsMX_temp.lsh = '" & Me.LSH & "'"
DoCmd.RunSQL strSQL6
Forms![frmxs_child_add]![frmXSMX_child_temp].Requery

 

Me.Refresh


End Sub



平民百姓 发表于:2008-10-14 22:02:07
追加查询是成功的,在临时表中生成了新的记录,但是子窗体无法显示数据.用Me.Refresh也试过了,也不行!

金宇 发表于:2008-10-15 13:36:38
你点了“引入配置单”后,打开临时表先看看里面是否有数据,如有相应的数据,那说明数据已成功导入到临时表,只是你vba的刷新窗体相关代码有问题。
刷新子窗体你可以用me.子窗体名称.refresh 试试。

平民百姓 发表于:2008-10-15 20:27:36
试过了,也不行啊!

符鸿敏 发表于:2008-10-15 21:34:49

子窗体的记录源是 临时表 吗?如果不是,就在me.refresh 前加

form_子窗体名称.RecordSource="临时表名称"



竹笛 发表于:2008-10-15 22:16:20
先打开表看看,里面有没有数据?

平民百姓 发表于:2008-10-16 10:17:53
有数据的!

平民百姓 发表于:2008-10-16 16:33:18
好了,已经解决了!可能是ACCESS的内部问题,将子窗体重建一下就可以了!!!谢谢竹笛老大!!!

总记录:9篇  页次:1/1 9 1 :