Dim MaxDate As Date
Dim SQL, BeginDate, EndDate, PeopleCode As String
Dim N As Long
N = 20 ' требуемая разница в днях
PeopleCode = CStr(Me![КодЧеловека])
BeginDate = CStr(Me![ДатаПрибытияИзОтпуска])
EndDate = CStr(Me![ДатаУбытияВОтпуск])
' получение даты выхода из отпуска для введенного человека
MaxDate = DMax("[ДатаПрибытияИзОтпуска]", "tblTable", "[КодЧеловека] =" & PeopleCode)
If Me![ДатаУбытияВОтпуск] - MaxDate < N Then
' условие при недостаточной разницы в датах
MsgBox "Иди работай"
Else
' добавление новой записи в таблицу
SQL = "INSERT INTO tblTable ( КодЧеловека, ДатаУбытияВОтпуск, ДатаПрибытияИзОтпуска ) VALUES ( " & PeopleCode & ", '" & BeginDate & "', '" & EndDate & "' );"
DoCmd.RunSQL SQL
MsgBox "Запись добавлена"
End If
|