Блог

У меня есть исправленный текстовый файл, который я пытаюсь проанализировать на основе данных в определенной позиции.

Мне нужно перебрать наборы записей и добавить их в таблицу.

У меня возникла проблема при попытке проанализировать исходный текстовый файл.

Я использую, где Mid(«AllData», 1, 2) = «BR»

У меня есть приведенный ниже код. Что я делаю не так?

 Sub BR_Records()
On Error GoTo ErrorHandler

Dim strSQL As String
Dim rs As DAO.Recordset

strSQL = "TBL_AllData"

Set rs = CurrentDb.OpenRecordset(strSQL)

With rs
   
    If Not .BOF And Not .EOF Then
           
        .MoveLast
        .MoveFirst
                
        While (Not .EOF)
                    
            Debug.Print rs.Fields("AllData"); where.Mid("AllData", 1, 2) = "BR"
            
            .MoveNext
            
        Wend
        
    End If
    
    .Close

End With

ExitSub:
    Set rs = Nothing

    Exit Sub
ErrorHandler:
    Resume ExitSub
End Sub
  

Попробуйте это:

 With rs   
    If .RecordCount > 0 Then
        .MoveFirst                
        While Not .EOF
            If Mid(.Fields("AllData").Value, 1, 2) = "BR" Then                    
                Debug.Print .Fields("AllData").Value
            End If
            .MoveNext            
        Wend
    End If
    .Close
End With