ник: snipe
При нажатии на кнопочку надо сначала открыть Форму1
а потом изменить ей RecordSource
(пока форма не открыта будет ругаться) примерно так
docmd.openform "Форма1"
Forms!Форма_1.RecordSource = "SELECT * FROM Форма_1 WHERE Поле_в_Ф_1 LIKE '" & Me.Поле_в_Ф_2 & "'"