И снова я.
Собственно сабж. Как это сделать? А то у меня все переходит в ленточную форму, а мне бы нужна табличная.

Спасибо, сейчас попробую.

Написал, но не помогло. Выдаешь ошибку 91. :((
Вот код:
Private Sub Form_Open(Cancel As Integer)
Dim frm As Form
frm.DefaultView = 2
frm.Filter = "[Себестоимость]![Производство]=[Forms]![Выбор_товара]![Производство]"
End Sub

Забыл написать, что Debug останавливается вот на этой строке:
...
frm.DefaultView = 2
...

Собственно говоря у меня есть код, который работает и фильтр срабатывает, только форма имеет не Табличное предствавление, а ленточное или вообще Одиночное. :(((
Вот код:
Private Sub ОткрытьФорму_Click()
On Error GoTo Err_ОткрытьФорму_Click

Dim stDocName As String
Dim stLinkCriteria

stDocName = "Себестоимость"

If Eval("[Forms]![Выбор_товара]![Производство] Is Not Null") Then
stLinkCriteria = "[Себестоимость]![ПроизводствоКод]=[Forms]![Выбор_товара]![Производство]"
End If
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_ОткрытьФорму_Click:
Exit Sub

Err_ОткрытьФорму_Click:
MsgBox Err.Description
Resume Exit_ОткрытьФорму_Click

End Sub

То Вадя:
Щас попробую.
В конструкторе я указываю тип формы, но если отрабатывает вышеприведенный код, то она отображается либо в ленточной, либо в обычной форме.

То Вадя:
Не получаештся. Он даже не доходит до этой строки. :( Ошибка возникает в вышеприведенной строке.
"Object Variable or With block variable not set"

То Нуф-Нуф:
Спасибо, огромное! Помогло!
Только надо было не Me.Filter = True, а Me.FilterOn = True :) Это до меня дошло, после того, как в восьмой раз не получилось.
Еще раз спасибо.

Так, теперь не понятно, почему при нажатии на кнопку, Аксес открывает ее в виде Обычной формы, а не ввиде таблицы? Хотя, если открыть ее просто кликнув на форме, то открывается в табличной форме. Что в коде открытия не так?
Код:
Dim stDocName As String

stDocName = "Себестоимость"
DoCmd.OpenForm stDocName

Извините, вопрос снимается. Понял.
DoCmd.OpenForm stDocName, acFormDS

Блин, опять у меня вопрос. :(
Как сделать "расширенный фильтр"? Т.е. фильтр, где будет отбираться не только Производство, но и Товар. По отдельности все работает, а вместе - не фига. :(
Код рабочий:
-------------
If Eval("[Forms]![Выбор_товаров]![Производство] Is Null and [Forms]![Выбор_товаров]![Товар] Is Not Null") Then
Me.Filter = "[Себестоимость]![ТоварКод]=" & [Forms]![Выбор_товаров]![Товар]
Me.FilterOn = True
End If
-------------
А вот этот код уже не работает:
-------------
If Eval("[Forms]![Выбор_товаров]![Производство] Is Not Null and [Forms]![Выбор_товаров]![Товар] Is Not Null") Then
Me.Filter = "[Себестоимость]![ТоварКод]=" & [Forms]![Выбор_товаров]![Товар] And "[Себестоимость]![ПроизводствоКод]=" & [Forms]![Выбор_товаров]![Производство]
Me.FilterOn = True
End If
-------------
Пробовал заключить в скобки - не помогает.
Me.Filter = ("[Себестоимость]![ТоварКод]=" & [Forms]![Выбор_товаров]![Товар]) And ("[Себестоимость]![ПроизводствоКод]=" & [Forms]![Выбор_товаров]![Производство])
Как сделать такой фильтр?
--------
То Нуф-Нуф:
Да ладно, бывает.

То Вадя:
Ага, нашел, спасибо. :)
Ну не силен я пока в Аксесе и не всегда отслеживаю операторы конкатенации. :)) СеньксЪ. Усе работаИть.