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

ник: час
что за XP
[code]
Dim dbs As Database, rst As Recordset
Dim SQLL As String
Set dbs = CurrentDb
SQLL = "SELECT Sale_Film_Nams.Film_Name AS Выражение1, Sale_Rights_broadcasting.tree_Wiev " _
& "FROM Sale_Film_Nams INNER JOIN Sale_Rights_broadcasting ON Sale_Film_Nams.Id_Film_Name = Sale_Rights_broadcasting.ID_Film " _
& "WHERE (((Sale_Rights_broadcasting.tree_Wiev) Like "" * (96) * "")) " _
& "WITH OWNERACCESS OPTION;"

Set rst = dbs.OpenRecordset(SQLL, dbOpenDynaset)

АААААААААА - надо явно на библиотеку ссылаться DAO.recordset