есть 3 примерно одинаковые формы при открытии которых работает рекордсет и присваивается его значение списку внутри форм
первая форма срабатывает сразу и выдаёт список полный значений
вторая форма открывает список значений только после клика по списку
третья форма аналогично как и вторая

глючащая форма:

<sup>Private Sub Form_Load()

Dim strSQL As String
Dim r1 As DAO.Recordset
Dim db As DAO.Database

strSQL = "SELECT fail.fail, fail.info, fail.id_fail FROM fail" _
& " where fail.fail LIKE '*" & [Forms]![search_fail]![name] & "*'"

Set db = CurrentDb
Set r1 = db.OpenRecordset(strSQL)

Set Me!result.Recordset = r1


End Sub</sup>


работающая форма:

<sup>Private Sub Form_Load()

Dim strSQL As String
Dim r As DAO.Recordset
Dim db As DAO.Database

strSQL = "SELECT track.track, album.album, author.author, style.style, track.id_track" _
& " FROM style INNER JOIN ((author INNER JOIN album ON author.[id_author] = album.[id_author])" _
& " INNER JOIN track ON album.[id_album] = track.[id_album]) ON style.[id_style] = author.id_style" _
& " where (track.track LIKE '*" & [Forms]![search_track]![name] & "*') OR" _
& " (album.album LIKE '*" & [Forms]![search_track]![name] & "*') OR" _
& " (author.author LIKE '*" & [Forms]![search_track]![name] & "*')"

Set db = CurrentDb
Set r = db.OpenRecordset(strSQL)

Set Me!result.Recordset = r


End Sub</sup>


пытаюсь пересоздать глючащие формы (чтобы по дефолту на всякий случай) результат не изменяется - после загрузки формы список пуст но после клика по нему оживает
для смеха попробовал удалить в глючащей форме всё кроме списка - результат стал отклик списка на 5+ раз и пропали поля от конца значений до конца поля списка

почему это происходит и как это лечить?

http://www.sql.ru/forum/1092652/podvisaet-spisok-pri-zagruzke-formy