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

ник: huron
Хотел сделать так что-бы в комбобоксе отображались и передавались в подчиненую форму только два типа книг „Access“ и все книги „All books“. Но неполучилось даже сделать „All books“...В Row Sourse пробовал прописать такие варианты:

SELECT DISTINCT Books.[Book type] FROM Books UNION SELECT "All books" from Books GROUP BY [Books].[Book type];

SELECT [Book type] AS Filter, [Book type] FROM [Books] UNION SELECT 'All books' AS Filter, "All" AS [Book type] FROM [Books];

SELECT Books.[Book type] FROM [Books] UNION SELECT "All books" FROM Books GROUP BY [Books].[Book type];

Пробовал и так:

Row Source Type: ValueList
Row Source: Access;All books

и добавил Event:

Private Sub BookType_AfterUpdate()
If Me.BookType = "All books" Then
strFilter = "*"
Else
strFilter = "'" & Me.BookType & "'"
End If
End Sub

Но ничего толкового неполучилось. Облазил весь интернет, тоже ничего... :(