формирование запроса

[serdce]

Всем доброго дня. Есть такая функция:
Private Sub SearchAuth_Change()
Dim strACN As String
Dim strSQL As String
Dim strWhere As String

strACN = Screen.ActiveControl.Name
strWhere = "WHERE True "

If strACN = "SearchAuth" Then
If Len(Me!SearchAuth.Text & "") > 0 Then
strWhere = strWhere & "And Автор.АвторФИО Like '*" & Me!SearchAuth.Text & "*' "
End If
Else
If Len(Me!SearchAuth.Value & "") > 0 Then
strWhere = strWhere & "And Автор.АвторФИО Like '*" & Me!SearchAuth.Value & "*' "

End If

End If

strSQL = "SELECT Книги.idКниги, Автор.АвторФИО, Книги.Редактор, Книги.Название, Книги.ГодИздания, Книги.Вналичии FROM Автор INNER JOIN Книги ON Автор.idАвтор = Книги.idАвтор " & strWhere & ";"

Me!Infor.RowSource = strSQL
End Sub


Возможно ли сделать так что бы в зависимости от значения поля Вналичии таблицы Книги запрос выглядил так:
если книга выдана, то strSQL=SELECT Книги.idКниги, Автор.АвторФИО, Книги.Редактор, Книги.Название, Книги.ГодИздания, Книги.Вналичии, Выдача.НомБилета, Читатель.ЧитательФИО, Выдача.ДатаВыдачи, Выдача.ДатаВозврата
FROM Читатель INNER JOIN ((Автор INNER JOIN Книги ON Автор.idАвтор = Книги.idАвтор) INNER JOIN Выдача ON Книги.idКниги = Выдача.idКниги) ON Читатель.НомБилета = Выдача.НомБилета;

[Teslenko_EA]

Здравствуйте serdce.
прочтите рекомендацию на соседней странице.
Евгений.

[serdce]

Евгений спасибо что откликнулись.

[serdce]

Попробую объяснить так: есть форма Выдача, хотелось бычто бы при поиске по значению введенному в поле SearchBook формировался запрос который позволял бы просматривать кому книга выдана, если её нет в наличии в библиотеки. Не понятно объяснено? Зарение спасибо.

[serdce]

Вопрос снят. Всем спасибо.Всё реализовалось.Тему можно закрыть.