|
Не могу разобраться, помогите, пожалуйста с кодом.
#39775339
Ссылка:
Ссылка на сообщение:
Ссылка с названием темы:
|
|
|
|
Хочу выразить свою благодарность всем кто отозвался на просьбу о помощи.
Вот выставляю отчёт сделанной работе
З_Приостанов
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
SELECT [Оперативные карточки].Код, [Оперативные карточки].[№ Доп], [Оперативные карточки].№_Договора,
[Оперативные карточки].ОС, [Оперативные карточки].Статус_ОС, [Оперативные карточки].Дата_Оконч_Статус_ОС, [Оперативные карточки].ТС,
[Оперативные карточки].Статус_ТС, [Оперативные карточки].Дата_Оконч_Статус_ТС, [Оперативные карточки].ФИО
FROM [Оперативные карточки]
WHERE ((([Оперативные карточки].ОС)="Есть")
AND (([Оперативные карточки].Статус_ОС)="Приостановлена")
AND (([Оперативные карточки].Дата_Оконч_Статус_ОС)=([Оперативные карточки].[Дата_Оконч_Статус_ОС])
Between Date() And DateAdd("d",3,Date()) Or ([Оперативные карточки].[Дата_Оконч_Статус_ОС])
Between Date() And DateAdd("d",-1000,Date())))
OR ((([Оперативные карточки].ТС)="Есть")
AND (([Оперативные карточки].Статус_ТС)="Приостановлена")
AND (([Оперативные карточки].Дата_Оконч_Статус_ТС)=([Оперативные карточки].[Дата_Оконч_Статус_ТС])
Between Date() And DateAdd("d",3,Date()) Or ([Оперативные карточки].[Дата_Оконч_Статус_ТС])
Between Date() And DateAdd("d",-1000,Date())));
И собственно сам код
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
'таймер запуска формы приостановки
Private Sub Form_Timer()
Select Case Hour(Time())
Case 10, 11, 12, 15, 16, 17
If Minute(Time()) = 0 And Second(Time()) = 0 Then
With CurrentDb.OpenRecordset("select * from [З_Приостанов] where Код=" & Me.Код)
If Not .BOF Then
DoCmd.OpenForm "Ф_Оконч_Прост"
End If
End With
End If
End Select
End Sub
Ну а форму "Ф_Оконч_Прост" выставлять не вижу смысла.
Ещё раз всем большое спасибо, за помощь
Тема закрыта. |
|
|
