Таки спасибо! :-) Эх, ща бы в Израиль... Второй раз в жизни обнять пальму и в первый раз в жизни расцеловать Саныча. :-)

2 Shuhard
Файл состоит из 2-х строк. Первая - название полей, вторая - данные. Полей 8. Но с импортом-то я уже разобралась. Я сейчас пороговые значения обрабатываю.

И снова я, вся в слезах. :-(
Самонадеянно полагала, что все поняла и все будет работать, но... Что-то я опять не так делаю. Сначала решила испытать if Саныча. Он отрабатыватся, но не дает результата. Хотя, я задала в таблице параметры которые обязаны превышать пороговые. Потом подумала, что нужно было сделать по аналогии со вчерашним запросом и решила переделать этот if под .openrecordset. Мне выдается "слишком мало параметров. Требуется 2". :-(

Саныч, прости, пожалуйся, это я действительно того на этого.... :-)
Ща покажу.

With Application.FileSearch
.LookIn = "C:\Documents and Settings\root\Ìîè äîêóìåíòû\Lidok\Äèïëîì\áàçà äàííûõ\ôàéëû\"
.FileName = "*.txt"
.Execute
End With
For i = 1 To Application.FileSearch.FoundFiles.Count
Name = Application.FileSearch.FoundFiles(i)
DoCmd.TransferText acImportDelim, "Data - спец", "Stat", Name
str = Name
str = Right(str, Len(str) - InStr(str, "_"))
str = Left(str, Len(str) - 4)
strDate = "#" & Mid(str, 3, 2) & "/" & Left(str, 2) & "/" & _
Mid(str, 5, 4) & "#"
strTime = "#" & Mid(str, 9, 2) & ":" & _
Mid(str, 11, 2) & ":" & Right(str, 2) & "#"
strName = Name

Do
strName = Right(strName, Len(strName) - InStr(strName, "\"))
Loop While InStr(strName, "\") > 0

strName = Left(strName, (Len(strName) - Len(str) - 5))

With CurrentDb
.Execute "UPDATE Stat SET Data = " & strDate & " where Data is null;"
.Execute "UPDATE Stat SET Vremya = " & strTime & " where Vremya is null;"
.Execute "UPDATE Stat SET NameSLU = '" & strName & "' where NameSLU is null;"
End With
Kill (Name)

If DLookup("SEL", "Stat", "[Vremya]=" & strTime & "") > DLookup("SEL", "Stat", "[Vremya]=#" & Format(DateAdd("n", -30, strTime1), "hh:mm:ss") & "#") Then MsgBox "Таки беда!" 'это по Санычу.

Dim rs As DAO.Recordset, s As String
Set rs = CurrentDb.openrecordset("select * from Stat where DLookup(SEL, Stat, Vremya=" & strTime & ") > DLookup(SEL, Stat, Vremya=DateAdd(n, -30, " & strTime & "))", dbopendynaset, dbreadonly) 'это я попыталась переделать, чтобы сделать так, как в предыдущих предупреждениях. Но оно мне дает вышеупомянутую ошибку.
Next i

Предупреждаю сразу. Хелп у меня на аглицком. Аглицкий я знаю в объеме 10 слов. Промт переводит, но известное дело как.

Про strTime1 - верно, его нет нигде, забыла вставить.
strTime1 = Mid(str, 9)
SEL - название поля, Stat - название таблицы. Что, неужто нужно было делать переменные as string и присваивать им эти названия?

Насколько я поняла, это получается, что поле А имеет внутри себя значение "А". И различают их друг от друга кавычки? Значит, в DLookup должно быть именно "А"? Вот не думала, что есть столь принципиальная разница...
Саныч, если опять не то, ты досчитай до 10 раз, выдохни, выругайся и возвращайся обратно. :-) Бывают у меня периоды критинического тупизма. :-)

Саныч, объясни, пожалуйста. Пилиз!

PS: мне уже стыдно за себя....

Мне вспоминается анедот "Как ответить на ухаживания зануды? Лучше сразу согласиться, чем объяснить, что не хочешь". Я в данной ситуации - та зануда. :-)
При сравнении написанного тобой и мной обнаружено, что я опять не понимаю, что же ты хочешь донести до меня.

Что касается DateAdd. Сделала следующее:
strTime1 As Variant
If DLookup("[RT_SEL_FAIL]", "Stat", "[Vremya]=" & strTime & "") > DLookup("[RT_SEL_FAIL]", "Stat", "[Vremya]=#" & Format(DateAdd("n", -30, strTime1), "hh:mm:ss") & "#") Then MsgBox "Таки беда!"
В AddWatсh DateAdd дает "22:30:00", при strTime = 23:00:00. Но все равно if не отрабатывается.

Саныч, кстати, ты не мог бы объяснить мне как-нибудь доходчиво, что такое "домен". Я нашла определение в справочном руководстве по SQL Мартина Грабера, что это "Объект, который может использоваться как альтернатива типу данных для столбцов. Домен определяет тип данных".
В хелпе по DLookup я вычитала, что домен - требует String и может быть названием таблицы.

Да, кстати, не надо думать, что я не только плохо соображаю, но и не быстро пишу. :-) Просто из и-нета вылетала.

Т.к. он сам не может мне объяснить, он очень даже рад переложить эту заботу на чужие плечи. :-) Так что, с этим проблем нет. :-) В Израиле он меня отпустил гулять с человеком, которого я до этого ни разу в жизни не видела. Но общалась по интернету года 3. :-))) Правда, в это время он был на курсах. :-)

2 Shuhard Гы... :-)) Да я бы и без PS не обиделась, т.к. это похоже на правду. Сегодня надо дописать прогу, чтобы завтра показать преподу, а я, похоже, очевидных вещей понять не могу.

Их!!! Cаныч, If заработал. :-)
А openrecordset перестал выдавать ошибку, но:

Set rs = CurrentDb.openrecordset("select * from Stat where " & DLookup("SEL", "Stat", "Vremya=" & strTime) & ">" & DLookup("SEL", "Stat", "Vremya=#" & DateAdd("n", -30, strTime1) & "#"), dbopendynaset, dbreadonly)

Do Until rs.EOF 'True
s = s & "SEL=" & CStr(rs!SEL) & ", Date=" & CStr(rs!Data) & ", Time=" & CStr(rs!Vremya) & ", SLU=" & rs!Name & vbNewLine
rs.MoveNext
Loop
rs.Close 'переходит сразу сюда
If s > "" Then MsgBox s & "- это данные, в которых SEL превышает SEL предыдущего отчетного периода" 's=""