虽然rs编辑更新不能按预期工作

我已经放在一起循环通过包含文本文件路径的表并将它们导入到数据库中的过程。虽然rs编辑更新不能按预期工作

程序的原因： 原因是我建立了一个依赖夜间更新的文本文件的许多报告数据库的后端。最近他们更改了这些文件的服务器名称和文件名，所以我试图构建更可靠的东西，因此我不必通过链接表向导来确保所有数据类型与以前完全相同。

问题： 我的问题是，随着.edit .update不是演戏就像我认为应该和更新领域中的表“更新”到今天的日期。

这是代码。我对编程还很陌生，所以很抱歉。

Private Sub ImportAll() 
' Loops through table containing paths to text files on network and imports 
Dim ID As Integer 
Dim netPath As String 
Dim netDir As String 
Dim netFile As String 
Dim localTable As String 
Dim activeTable As Boolean 
Dim updatedTable As Date 
Dim rst As DAO.Recordset 

Set rst = CurrentDb.OpenRecordset("Tables") 

Do Until rst.EOF 
    ID = rst.Fields("Table ID").Value 
    netDir = rst.Fields("Network Location").Value 
    netFile = rst.Fields("File Name").Value 
    localTable = rst.Fields("Local Table Name").Value 
    activeTable = rst.Fields("Active").Value 
    updatedTable = rst.Fields("Updated").Value 

     If activeTable = True And updatedTable <> Date Then 
      If ifTableExists(localTable) Then 
       On Error GoTo ImportData_Err 
         CurrentDb.Execute "DELETE * FROM " & localTable, dbFailOnError 
         netPath = netDir & netFile 
         DoCmd.TransferText acImportDelim, , localTable, netPath, True, "" 
          rst.Edit 
          updatedTable = Date 
          rst.Update 
        Else 
         netPath = netDir & netFile 
         DoCmd.TransferText acImportDelim, , localTable, netPath, True, "" 
          With rs 
           .Edit 
            .Fields("Updated") = Date 
           .Update 
          End With 
      End If 
     End If 
rst.MoveNext 
Loop 
rst.Close 
Set rst = Nothing 
ImportData_Exit: 
      Exit Sub 
ImportData_Err: 
      MsgBox Error$ 
      Resume ImportData_Exit 
End Sub

谢谢。

来源

2013-06-12 dataforks