У меня существует таблица, где хранятся данные о том, кто и когда брал книгу. Так вот, я сделала модуль, который выдает сообщение о том, что существуют книги, которые не были возвращены в течение 30 дней и о что ставим отметку об их утере. Так вот мне надо, что бы при нажатии на кнопку ОК на этом сообщении вылазила форма, которая выводит мне эти книги. Эта форма у меня уже есть. Я только не знаю, как связать сообщение с этой формой.

Вот этот модуль
Public Function StartProc1()
Dim lRs As DAO.Recordset
Dim sSQL As String
sSQL = "SELECT ReaderCard.idZapis, ReaderCard.invBookNum, ReaderCard.idReader, ReaderCard.dateGiveBook, ReaderCard.BookLost FROM ReaderCard WHERE (Date()-dateGiveBook)>30;"
Set lRs = CurrentDb.OpenRecordset(sSQL)
If Abs(DateDiff("d", Now, lRs("dateGiveBook").Value)) > 30 Then
MsgBox "Книга не возвращена вовремя! Делаем отметку об утере"
End If

End Function

Здесь условие, которое выбирает книги, которые не вернулись за 30 дней. А мне здесь надо еще поставить условие, что в поле BookLost (т.е. книга утеряна) нет отметки.
Т.е. если есть невозвращенные книги и они не отмечены как потерянные, то выводить сообщение об этих книгах и вызывать форму. Если же книга не возвращена и отмечена, то никаких сообщений не надо. Помогите, пожалуйста....

Сработало! Спасибо. А с условием что делать?

а-а-а, что значит подход неправильный???

Попробуем!!!

Ничего, не получается! Все равно этот модуль, мне выдает все книги, которые были выданы более, чем 30 дней назад. И даже если, ставишь отметку о том, что она утеряна, он все равно говорит, что есть такие книги, и выдает Форму с этими книгами (причем все отметки на месте). Что делать????

Да! Я уверена: поле 'dateGiveBook' у меня типа дата/время и поле 'BookLost' логическое!

нуф-нуф, какой код? Я немного исправила ситуацию. Т.е. сообщение все еще вылазит, но выдает форму, в которой уже нет книг, которые отмечены, что они утеряны. Надо сделать так, чтобы сначала проверялись 2 условия:
1. (Date()-dateGiveBook)>30
2. (BookLost)=False
а потом уже решалось, выдавать сообщение или нет. Если эти условия выполняются, то сообщение выдавать, а если нет, то не надо, Вот как выглядит мой модуль, который отвечает за это сообщение

Public Function StartProc1()
Dim lRs As DAO.Recordset
Dim sSQL As String
sSQL = "SELECT ReaderCard.idZapis, ReaderCard.invBookNum, ReaderCard.idReader, ReaderCard.dateGiveBook, ReaderCard.BookLost FROM ReaderCard WHERE (Date()-dateGiveBook)>30;"
Set lRs = CurrentDb.OpenRecordset(sSQL)
If Abs(DateDiff("d", Now, lRs("dateGiveBook").Value)) > 30 And (BookLost) = False Then
MsgBox "Книга не возвращена вовремя! Делаем отметку об утере"
DoCmd.OpenForm "BookLost"
End If

End Function

я не говорила, что Нуф-Нуф дурак... просто я видимо, не совсем тебя поняла... Ну я попробую этот вариант

СРАБОТАЛО! Спасибо большое!!!! Нуф-нуф - ты просто умничка :))

Да? А зачем?

Ох! Мне сейчас не совершенство нужно, а просто сделать эту чертову базу!!! она меня уже достала.... лето скоро кончится, а я... :(( Так и буду над ней сидеть....

А у нас уже лето было целую неделю, сейчас опять его ждем!