【原创 / 源码】导出窗体Recordset为任意Access支持格式的数据文件

tmtony

很不错的代码!

wu8313

过程已经放在了窗体模块，我进行如下调用：

Call Output_Recordset(Me.子窗体.Form.Recordset)

编译没有问题，可是出现运行时错误：

字段定义语法错误。

[此贴子已经被作者于2005-8-18 17:26:05编辑过]

LucasLynn

以下是引用wu8313在2005-8-18 17:23:00的发言：



过程已经放在了窗体模块，我进行如下调用：

Call Output_Recordset(Me.子窗体.Form.Recordset)

编译没有问题，可是出现运行时错误：

字段定义语法错误。

麻烦您把文件传上来，我调试一下看看问题出在哪里。

LucasLynn

以下是引用esmile在2005-8-19 1:32:00的发言：



钟对备注型的字段出错,

必须将: Case dbMem

                strFields = strFields & "Memo"



改为:

Case dbMem　,12 ＇esmile add

                strFields = strFields & "Memo"

12？

这么改为什么？

wu8313

LucasLynn：

在“分类与搜索”这个窗体中，有一个按钮使用您的代码。为减小体积，我删掉了一些表和窗体，但需要导出的部分留下来了，不影响导出。

[此贴子已经被作者于2005-8-19 17:41:49编辑过]

LucasLynn

上面两位提到的问题我已经找到了原因，论坛上的源码的确有误，但是并不是我写错了，而是BBS系统好像对o和:连在一起敏感，我原来的代码是：

Case dbMemo :

结果贴出来成了：

Case dbMem

编辑了很多次都一样，最后我在o和:之间添加了一个空格，才正常显示。

我已经更新了源码，现在应该没有问题了。

[此贴子已经被作者于2005-8-19 19:42:29编辑过]

secowu

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝


'调用范例


Private Sub Botton_Click()


    Call Output_Recordset(Me.Recordset)


End Sub


＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝


这样才像样：


要不，普通人很难消解高手的代码的


第一：


      告诉他，你的模块是做什么的，有什么好处


第二：


       别告诉他你的模块的运作原理


第三：


        告诉他怎么调用


     ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝


         》》》》》》》》》》》》》》》》》》》》》》》》》》》》》


        这就是MAC OS 到 WINDWOS 的转变


        阳春白雪  到下里巴人的转变


              牧人，有没道理呀

[此贴子已经被作者于2005-8-20 13:36:12编辑过]

LucasLynn

以下是引用secowu在2005-8-20 13:33:00的发言：



＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

'调用范例

Private Sub Botton_Click()

    Call Output_Recordset(Me.Recordset)

End Sub

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

这样才像样：

要不，普通人很难消解高手的代码的

第一：

      告诉他，你的模块是做什么的，有什么好处

第二：

       别告诉他你的模块的运作原理

第三：

        告诉他怎么调用

     ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

         》》》》》》》》》》》》》》》》》》》》》》》》》》》》》

        这就是MAC OS 到 WINDWOS 的转变

        阳春白雪  到下里巴人的转变

              牧人，有没道理呀

我只是觉得，Recordset已经是很基本的概念了，Access开发者至少应该知道Recordset是什么，和窗体的Recordset在哪里吧？

aaquick

试了一下，出现”用户定义类型未定义“的错误，是不是还要引用什么类库？