时间戳

首页 > 解决方案 > 使用“记录集”添加的记录未导出到 Excel

export-to-excel - 使用“记录集”添加的记录未导出到 Excel

问题描述

我已将一条新记录添加到 DAO - 从现有表创建的记录集，使用以下代码：

 Sub insertar(Indicador As String, tolerancia As Boolean, ahora As Date)

 Dim dbsCMDBObs As DAO.Database Dim rstTablaresumen As DAO.Recordset

   Set dbsCMDBObs = CurrentDb 
   Set rstTablaresumen = dbsCMDBObs.OpenRecordset("Tabla Resumen")
   DoCmd.OpenForm "Resumen",  acNormal

   rstTablaresumen.AddNew
   rstTablaresumen("Indicador") = Indicador
   rstTablaresumen("Descripción") = Forms!resumen.Controls("L" & Indicador & "Nombre").Caption
   rstTablaresumen("Tolerancia") = tolerancia
   rstTablaresumen("timestamp") = ahora

   rstTablaresumen.Update
   rstTablaresumen.Close

   DoCmd.OpenForm "Resumen", acDesign

   Set rstTablaresumen = Nothing
   Set dbsCMDBObs = Nothing

 End Sub

接下来我要做的是将包含新添加记录的表格导出到 Excel：

Sub exportarexcel()
    If Forms("Carga y Resumen").Controls("Exportar").Value = True Then

        DoCmd.OutputTo acOutputTable, "Tabla Resumen", acFormatXLS, , True

    End If
End Sub

导出过程正常结束，工作簿打开，但表没有添加的记录，尽管有表，如果在 Acces 中查询，它确实显示它。

标签： export-to-excelrecordset

解决方案

完毕！！我不知道这是一个花哨的解决方案还是只是“解决方案”，但它解决了我的问题：

   ...
   rstTablaresumen.Update
   rstTablaresumen.Close
   dbsCMDBObs.Close ' Just Closing the dbs that contains the rst solves the problem

推荐阅读