雖然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