Не надо, все в порядке, я все нашла. :-) Спасибо всем!!!

Согласна, не то нашла. :-) "А такого же, только с перламутровыми пуговицами? Нет? Будем искать". :-)

Таки получилось. :-) Не прошло и года. :-))
Саныч, суди сам:
dim strTime1 as variant
dim ss as string
For i = 1 To Application.FileSearch.FoundFiles.Count
...
strTime1 = Mid(strTime, 2, 8)
If DLookup("SEL", "Stat", "Vremya=" & strTime) > DLookup("SEL", "Stat", "Vremya=#" & DateAdd("n", -30, strTime1) & "#") Then
ss = "select * from Stat where SEL =" & DLookup("RT_SEL_FAIL", "Stat", "Vremya=" & strTime) & ""
End If
Set rs = CurrentDb.openrecordset(ss, dbopendynaset, dbreadonly)
Do Until rs.EOF
далее по тексту
Next i

Сделала в цикле импорта файлов, т.к. не знаю как еще отлавливать все возможные превышения значений. Хотя, это скорее всего увеличит время обработки данных, т.к. Do Until rs.EOF будет просматривать всю таблицу. Как бы этого избежать?

Ай, опять ошиблась. :-)
"Set rs = CurrentDb.openrecordset(ss, dbopendynaset, dbreadonly)
Do Until rs.EOF
далее по тексту"
из цикла выносим. :-)

Обратила внимание, что говорю сама с собой. :-) Во как пристрастилась!!! :-) На сим позвольте попрощаться. :-)

Саныч, а он уже и не стринг между прочим. :-) Он вариант. :-) Все равно считать?

Хорошо, я буду иметь в виду. Но только я уже по 10-му разу прогоняю программу и все нормально. К тому же, у меня strTime1 = Mid(strTime,2,8), где strTime = "#hh/mm/ss#". Имеется ли необходимость в Val?
Саныч, я тут по ходу еще кое-что придумала. :-) Начала искать как делать, но что-то не нашла. Поэтому, опять к тебе. :-) Ситуация такая. Эти ошибки мне хотелось бы хранить в другой таблице, которая состояла бы из типа ошибки, значения превышающего пороговое, м.б. само пороговое значение, ну и дата, время, имя SLU.
Начала делать через UPDATE, но ничего не добаляется.
With CurrentDb
.Execute "UPDATE oshyb SET TipOsh = '" & tp & "';"
.Execute "UPDATE oshyb SET Data = " & strDate & " where Data is null;"
.Execute "UPDATE oshyb SET Vremya = " & strTime & " where Vremya is null;"
.Execute "UPDATE oshyb SET NameSLU = '" & strName & "' where NameSLU is null;"
End With
tp = "тип ошибки"

>где strTime = "#hh/mm/ss#"
корректировка: где strTime = "#hh:mm:ss#"

Очень надеялась, что ты не успеешь отвентить на второй вопрос. Меня тут из и-нета выгоняли. :-) так я сама догадалась. :-) Точнее не так, смогла найти решение. :-) Хоть чуть-чуть реабилитировалась в собственных глазах. :-)))

Насчет первого замечания согласна.

>отвентить
гы... :-) ответить, конечно.

Все было хорошо, пока я не начала усложнять задачу. Сначала я в качетве данных брала 3 разных файла (разница на 30 минут во времени, и разница в поле SEL на 1), в которых пороговое значение превышается 2 раза, одно за другим. Теперь я усложнила задачу. Беру по 3 файла, одного времни, нос разными значениями SEL. И вот какая бяка получается. В результате показывается только самое максимально значение а не все, удовлетворяющие условию.

В результате прогонки программы.

Извини, Саныч, все время забываю, что ты начинающий телепат. :-)

If DLookup("SEL", "Stat", "Vremya=" & strTime) > DLookup("SEL", "Stat", "Vremya=#" & DateAdd("n", -30, strTime1) & "#") Then
ss = "select * from Stat where SEL =" & DLookup("SEL", "Stat", "Vremya=" & strTime) & ""
dl = DLookup("SEL", "Stat", "Vremya=" & strTime)
Call SEL(ss, strDate, strTime, strName, dl)
End If

Private Function SEL(ss, strDate, strTime, strName, dl)
Dim tp As String
tp = "Selection"

Set rs = CurrentDb.openrecordset("select * from Stat where SEL =" & DLookup("SEL", "Stat", "Vremya=" & strTime), dbopendynaset, dbreadonly)
Do Until rs.EOF
s = s & "SEL=" & CStr(rs!SEL) & ", Date=" & CStr(rs!Data) & ", Time=" & CStr(rs!Vremya) & ", SLU=" & rs!NameSLU & vbNewLine
CurrentDb.Execute "insert into oshyb (Osh) values ('" & CStr(rs!SEL) & "');"
rs.MoveNext
Loop
rs.Close
If s > "" Then MsgBox s & "- это данные, в которых SEL превышает"

With CurrentDb
.Execute "UPDATE oshyb SET TipOsh = '" & tp & "' where TipOsh is null;"
.Execute "UPDATE oshyb SET Data = " & strDate & " where Data is null;"
.Execute "UPDATE oshyb SET Vremya = " & strTime & " where Vremya is null;"
.Execute "UPDATE oshyb SET NameSLU = '" & strName & "' where NameSLU is null;"
End With

End Function

В MsgBox.

Дайте мне пистолет/револьвер/маузер, я застрелюсь.