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

aone

以前导出子窗体筛选记录的时候总是需要在多做一个过渡查询！好帖！谢谢分享，学习中！

videochat

厉害啊，啥时候偶能写出来啊

谢谢

zouwen

我在导出 有十几个字段,记录有1万-40万条 时会出错 处理几条记录不会出错

运行是错误'3075'

语法错误(操作符丢失)在'2005-7-19 9:03:31'

进入调试后

Do Until daoRs.EOF
        strSQL = "INSERT INTO USysDAORecordsetOutport("
        strFields = " Values("
        For Each frmField In daoRs.Fields
            If Not IsNull(frmField.Value) And Not IsEmpty(frmField.Value) Then
                strSQL = strSQL & frmField.Name & ","
                If frmField.Type = dbText Then
                    strFields = strFields & "'" & frmField.Value & "',"
                Else
                    strFields = strFields & frmField.Value & ","
                End If
            End If
        Next frmField
        strSQL = Left(strSQL, Len(strSQL) - 1) & ")"
        strFields = Left(strFields, Len(strFields) - 1) & ")"


        daoDbs.Execute strSQL & strFields     这一行是黄色

        daoRs.MoveNext
    Loop
   
    On Error Resume Next
        DoCmd.OutputTo acOutputTable, "USysDAORecordsetOutport"
    On Error GoTo 0
        
    daoDbs.Execute "DROP TABLE USysDAORecordsetOutport"

End Sub

zouwen

当记录有 '   / 字符号时 导出会出错

maple99

很不错的代码! 多学习

5988143

原帖由 zouwen 于 2006-9-17 16:02 发表
当记录有 '   / 字符号时 导出会出错

是的,好像定義為時間類型時會出錯,請作者再跟進哈!

西湖渔夫

公共模块代码不全，怎么办？

sunwrsun

chaojianan

谢谢，收藏了。