Access输出文本文件个数的的问题

enimo

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

skylark

试试?

enimo

呵呵，我试了一下，不行诶，还是有一个空文件出来呀

skylark

我这没有空文件,可以请其他朋友测试一下,另外,这儿要改成(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

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

skylark

我试过N次了,另将记录删余499条,只有一个文件.

请其他朋友测试!

sgrshh29

试了一个999条的，有空文件。

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

skylark

7 楼讲得有道理!我也对这句不放心,我试的数据条数是没有的.1103和499条.

sgrshh29

以下是引用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

以下是引用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就可以办到，谢谢楼上了各位