Office中国论坛/Access中国论坛

标题: Access输出文本文件个数的的问题 [打印本页]

作者: enimo 时间: 2006-3-13 18:45
标题: Access输出文本文件个数的的问题
这个程序主要是用作将Access的数据以每500条记录一个文件的方式输出成文本文件，不足500条的作为500条输出，现在的问题是在总的记录数如果是略小于或等于500的倍数那么输出的文件中就会有一个文件是空的，比如说1000条或者990条，999条记录，那么他会输出3个文件，最后一个文件为空。不知道是什么原因，我把程序上传上来，里面有1051条记录，大家可以删除一些记录试一下，谢谢大家[attach]16360[/attach]

作者: skylark 时间: 2006-3-13 19:48
标题: 回复：（enimo）Access输出文本文件个数的的问题
试试?

[attach]16363[/attach]

作者: enimo 时间: 2006-3-13 23:09
呵呵，我试了一下，不行诶，还是有一个空文件出来呀

作者: skylark 时间: 2006-3-14 00:12
标题: 回复：（enimo）Access输出文本文件个数的的问题
我这没有空文件,可以请其他朋友测试一下,另外,这儿要改成(i+1):

DoCmd.RunSQL "insert into Collecttable(ÅÌºÅ,±¾Ï¢ºÍ,·£Ï¢,½ð¶î,±ÊÊý) select " & (i + 1) & " as i,sum(ÆÚ¿î±¾Ï¢ºÍ),sum(·£Ï¢),sum(½ð¶î),count(*) from (select top 500 ÆÚ¿î±¾Ï¢ºÍ,·£Ï¢,½ð¶î  from Ó¦¸¶Êý¾Ý±í where ÐòºÅ > (select Max(ÐòºÅ) as Maxid from (select top " & 500 * i & " ÐòºÅ from Ó¦¸¶Êý¾Ý±í order by ÐòºÅ) as temp_t) order by ÐòºÅ)"

从End Sub 倒数第6行.

                                                   2006年-03月-13日还款清单

            还款单位  ***有限公司                                                 还款日期:  2006-3-13

               ：

         附注:                                                             金额单位：元

                        盘号:                         金额:                         笔数:

                           1                         157,834.58                         500

                           2                         157,834.74                         500

                           3                         35,819.25                         103

                        总计:                         351,488.57                         1103

                        其中:                   期款金额:                724,492.44

                                                                              662.17

                        总计:                                              725,154.61

                  *** 机密文件

作者: enimo 时间: 2006-3-14 00:25
我的意思是他输出到D盘的文本文件的时候会出现有一个文件是空的问题（总的记录数如果是略小于或等于500的倍数那么输出的文件中就会有一个文件是空的）你可以点击主界面下的文本输出看到效果，

作者: skylark 时间: 2006-3-14 00:33
我试过N次了,另将记录删余499条,只有一个文件.

请其他朋友测试!

作者: sgrshh29 时间: 2006-3-14 00:50
试了一个999条的，有空文件。

但是把 c = Text7 / 500改为 c = int(Text7 / 500)后，就没有空文件了。

作者: skylark 时间: 2006-3-14 00:54
7 楼讲得有道理!我也对这句不放心,我试的数据条数是没有的.1103和499条.

作者: sgrshh29 时间: 2006-3-14 06:46

以下是引用skylark在2006-3-13 16:54:00的发言：
7 楼讲得有道理!我也对这句不放心,我试的数据条数是没有的.1103和499条.

我觉得,只要在楼主的代码中改一句就可以了,请skylark测试一下:

把c=text7/500改为:

c = IIf(Int(Text7 / 500) = Text7 / 500, Int(Text7 / 500) - 1, Int(Text7 / 500))

作者: enimo 时间: 2006-3-14 18:26

以下是引用sgrshh29在2006-3-13 22:46:00的发言：

我觉得,只要在楼主的代码中改一句就可以了,请skylark测试一下:

把c=text7/500改为:

c = IIf(Int(Text7 / 500) = Text7 / 500, Int(Text7 / 500) - 1, Int(Text7 / 500))

我试了一下，是可以了，呵呵，原来用Int就可以办到，谢谢楼上了各位

作者: zhonghua2004 时间: 2006-3-14 18:46
好东西

作者: 搞不定 时间: 2006-4-12 05:23
试一试

作者: wing_ling 时间: 2006-4-16 20:09
dingding

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)