Форумы HiProg.com - MS ACCESS, VBA, VB

ник: Анатолий (Киев)
Создайте модуль с этими функциями:

Function MyFunc1(Text, Mode) Static PrevValue(1 To 3)  If Len(Text) > 0 Then PrevValue(Mode) = Text  MyFunc1 = PrevValue(Mode) End Function Function MyFunc2(Text) Static PrevValue(1 To 2) Dim strDate$  If Len(Text) > 0 Then     PrevValue(1) = Text     strDate = Right(Text, 8)     If IsDate(strDate) Then         PrevValue(2) = CDate(strDate)     Else         PrevValue(2) = Null     End If  End If  MyFunc2 = PrevValue(2) End Function

А в запросе:

SELECT Mid(T1.F1,8) AS Заявка, T2.F1 AS Номер, T2.F2 AS Контейнер, MyFunc1(T2.F3,1) AS Лот, T2.F4 AS Марка, T2.F5 AS Модель, T2.F6 AS Тип, T2.F7 AS ВремяРазгр, MyFunc1(T2.F8,2) AS Коносамент, MyFunc1(T2.F10,3) AS СудноРейс, MyFunc2(T2.F13) AS ДатаРазгрузки FROM...