Натолкнулся тут на косяк (Access2000).

Есть две формы, вторая вызывается по нажатию кнопки в первой либо напрямую. В макете формы стоит вывод в виде формы - как должно быть при прямом выводе. Однако при нажатии батона она должна выйти в виде таблицы... и вот тут косяк. Не получается. Т.е. если даже использовать

Код

Dim stDocName As String    Dim stLinkCriteria As String    stDocName = "Contracts"    DoCmd.OpenForm stDocName, acDesign, , stLinkCriteria, , acHidden    Forms("Contracts").DefaultView = 2    DoCmd.Close acForm, stDocName, acSaveYes    DoCmd.OpenForm stDocName, , , stLinkCriteria

свойства формы меняются, а открывается она все одно не как таблица.
Если же нажатие кнопки обрабатывать не программно, а макросом - вопросов нет, указал режим таблицы, и оки. Программно тоже можно вызвать этот макрос

Код

DoCmd.RunMacro "Макрос1.ОткрытьContracts"

и получить режим таблицы. А вот без макроса что-то не получается.

Чувствую, что туплю где-то... где?

а просто

Код

DoCmd.OpenForm stDocName, acFormDS

не проходит?

Я ж грил - туплю... проходит, конечно...

Boevik, помогите если можно. Чем-то похожий вопрос.
Dim lsql, locsql As String
Dim result As Variant
'Dim locsql As DAO.Recordset
Dim rstDAO As Recordset
Set mdb = CurrentDb
lsql = "SELECT t_prihod.Num_Doc, t_Prihod.Date1, t_Prihod.Kod_Zak_Post, t_Prihod.V_Podrazd FROM t_Prihod"
locsql = " where t_Prihod.Kod_Doc=" + Format(Kod_Doc)
Form_f_prihod_izdel.Form.RecordSource = lsql + locsql
result = Form_f_prihod_izdel.Form.RecordSource
Set rstDAO = mdb.OpenRecordset(result)
DoCmd.OpenForm "f_prihod_izdel", result
выдает не соответсвие типов или же загружается пустая форма

Ну, пожалуйста, хоть кто небудь.

Leska
1) Зарегистрируйся.
2) Создай отдельную ветку для своего вопроса.
3) Объясни что есть и что нужно. Без сумбура и сваливания всего в кучу.

Leska, у тебя есть в коде пару ошибочек.
Давай отдельную тему и с приведением текста и места ошибок.