Поле со списком. VBA в MS Access 2003

@KOPC1886 · Регистрация: 28.10.2010

Author24 — интернет-сервис помощи студентам

Здравствуйте! Я создал форму..на ней одна кнопка и 4 поля со списком выбора телевизора. Когда нажимаю на кнопку должна появиться форма с таблицей с выбранными критериями. Мне тут уже помогли...но возникла синтаксическая ошибка...не пойму что не так...

Visual Basic

1
2

  DoCmd.OpenForm "Òåëåâèçîðû1", , , "Ñòðàíà='" & Me.Ñòðàíà & "'" _
  & " or Öåíà<'" & Me.Öåíà & " Or Äèàãîíàëü = " & Me.Äèàãîíàëü & " Or Òèï = " & Me.Òèï

@KOPC1886 · 15.09.2012, 20:18 **[ТС]**

sekonya, я так понял в главный отчет можно вставить только один еще отчет?

@sekonya · 15.09.2012, 20:20

можно несколько, но пользователь запутается

@KOPC1886 · 15.09.2012, 20:31 **[ТС]**

sekonya, все равно какая то ошибка...я вот сделал сам отчет...но почему то не пишутся поля и не вся таблица помещается

@sekonya · 15.09.2012, 20:32

как поля не пишутся? может названия полей не пишется?

@KOPC1886 · 15.09.2012, 20:38 **[ТС]**

sekonya, название да..и не помещается отчет Телевизоры_Выбор полностью. Не как у вас почему то

Добавлено через 52 секунды
sekonya, да и я щас подумал...а зачем вообще нужен главный этот отчет, если можно просто печатать отчет Телевизоры_Выбор

Добавлено через 2 минуты
sekonya, я вот подправил

Visual Basic

1 2	DoCmd.OpenReport "Òåëåâèçîðû_Âûáîð", acViewReport Reports!Òåëåâèçîðû_Âûáîð.SourceObject = "Òåëåâèçîðû_Âûáîð"

Выделяет почему то желтым цветом строчку

Visual Basic

1	Reports!Òåëåâèçîðû_Âûáîð.SourceObject = "Òåëåâèçîðû_Âûáîð"

@sekonya · 15.09.2012, 20:38

можно и так!

@KOPC1886 · 15.09.2012, 20:39 **[ТС]**

sekonya, исправил. Просто убрал строчку

Visual Basic

1	Reports!Телевизоры_Выбор.SourceObject = "Телевизоры_Выбор"

Что она вообще делает?

@sekonya · 15.09.2012, 20:42

эта строчка делает источником записи суботчета таблицу телевизоры_выбор

@KOPC1886 · 15.09.2012, 20:43 **[ТС]**

sekonya, а она обязательна? Я вот ее удалил и нормально вроде все.

@sekonya · 15.09.2012, 20:46

да пока нормально, но как только вы захотите распечатать тот же отчет для телефонов, она не сработает

@KOPC1886 · 15.09.2012, 20:50 **[ТС]**

sekonya, в смысле, если я этот код помещу на кнопку для телефонов, то ничего не выйдет?

@sekonya · 15.09.2012, 21:06

если вы удалите главный отчет, то ничего страшного!

@KOPC1886 · 15.09.2012, 21:11 **[ТС]**

sekonya, я и удалил его)

Добавлено через 32 секунды
sekonya, а можете объяснить вот почему сразу печатается? где эта строчка кода? где после названия отчета идет?

@sekonya · 15.09.2012, 21:25

строчка docmd.openreport

@KOPC1886 · 15.09.2012, 21:27 **[ТС]**

sekonya, так эта строка открывает ведь только или я ошибаюсь?

@sekonya · 15.09.2012, 21:49

смотря какой аргументвы введете после запятой, можно вывести сразу на печать, можно предворительный просмотр сделать, можно открыть отчет в режиме конструктора и т.д.

@KOPC1886 · 16.09.2012, 22:25 **[ТС]**

sekonya, я тут еще одну фишечку продумал...как обратиться к полю Цена , чтобы в отчете потом внизу под ценами было написано "Итого - 1000у.е" примерно так.Это возможно?

@sekonya · 17.09.2012, 16:24

запросто, в примечании формы или отчета всавьте поле, а в поле напишите =sum([цена])

@KOPC1886 · 17.09.2012, 17:50 **[ТС]**

sekonya, Спасибо Большое!)))

@KOPC1886 · 26.09.2012, 22:13 **[ТС]**

sekonya, Здравствуйте!) Вот у меня вопросик...а как изменить код вот этот

Visual Basic

DoCmd.RunSQL "insert into òåëåâèçîðû_âûáîð(ìîäåëü,òèï,äèàãîíàëü,áðåíä,öåíà) " _
& "select òåëåâèçîðû.ìîäåëü, òåëåâèçîðû.òèï, òåëåâèçîðû.äèàãîíàëü, òåëåâèçîðû.áðåíä, òåëåâèçîðû.öåíà from òåëåâèçîðû " _
& "where (Áðåíä='" & Nz(Me.Áðåíä, "") & "' OR " & IsNull(Me.Áðåíä) & ") " _
& " AND (Öåíà>" & Nz(Me.Öåíà, 0) & " OR " & IsNull(Me.Öåíà) & ") " _
& " AND (Äèàãîíàëü> " & Nz(Me.Äèàãîíàëü, 0) & " OR " & IsNull(Me.Äèàãîíàëü) & ") " _
& " AND (Òèï='" & Nz(Me.Òèï, "") & "' OR " & IsNull(Me.Òèï) & ") ;"
DoCmd.OpenForm "Òåëåâèçîðû1", , , s

Но только без добавления в таблицу Телевизоры1, а просто чтобы появлялись выбранные товары, а потом я нажал на кнопку и эти товары добавились в таблицу? Или вот я например нажал на кнопку Поиск и появились выбранные товары...и вот когда я удаляю на форме, которая появилась с таблицей с выбранными товарами..у меня удаляется запись с основной таблицы Телевизоры, а не из таблицы Телевизоры_Выбор..почему так???

@KOPC1886 27 / 6 / 0 Регистрация: 28.10.2010 Сообщений: 352
	15.09.2012, 20:18 [ТС]	101
	sekonya, я так понял в главный отчет можно вставить только один еще отчет? 0

@sekonya 608 / 387 / 8 Регистрация: 14.04.2011 Сообщений: 1,324
	15.09.2012, 20:20	102
	можно несколько, но пользователь запутается 0

@KOPC1886 27 / 6 / 0 Регистрация: 28.10.2010 Сообщений: 352
	15.09.2012, 20:31 [ТС]	103
	sekonya, все равно какая то ошибка...я вот сделал сам отчет...но почему то не пишутся поля и не вся таблица помещается 0

@sekonya 608 / 387 / 8 Регистрация: 14.04.2011 Сообщений: 1,324
	15.09.2012, 20:32	104
	как поля не пишутся? может названия полей не пишется? 0

@sekonya 608 / 387 / 8 Регистрация: 14.04.2011 Сообщений: 1,324
	15.09.2012, 20:38	106
	можно и так! 0

@sekonya 608 / 387 / 8 Регистрация: 14.04.2011 Сообщений: 1,324
	15.09.2012, 20:42	108
	эта строчка делает источником записи суботчета таблицу телевизоры_выбор 0

@KOPC1886 27 / 6 / 0 Регистрация: 28.10.2010 Сообщений: 352
	15.09.2012, 20:43 [ТС]	109
	sekonya, а она обязательна? Я вот ее удалил и нормально вроде все. 0

@sekonya 608 / 387 / 8 Регистрация: 14.04.2011 Сообщений: 1,324
	15.09.2012, 20:46	110
	да пока нормально, но как только вы захотите распечатать тот же отчет для телефонов, она не сработает 0

@KOPC1886 27 / 6 / 0 Регистрация: 28.10.2010 Сообщений: 352
	15.09.2012, 20:50 [ТС]	111
	sekonya, в смысле, если я этот код помещу на кнопку для телефонов, то ничего не выйдет? 0

@sekonya 608 / 387 / 8 Регистрация: 14.04.2011 Сообщений: 1,324
	15.09.2012, 21:06	112
	если вы удалите главный отчет, то ничего страшного! 0

@KOPC1886 27 / 6 / 0 Регистрация: 28.10.2010 Сообщений: 352
	15.09.2012, 21:11 [ТС]	113
	sekonya, я и удалил его) Добавлено через 32 секунды sekonya, а можете объяснить вот почему сразу печатается? где эта строчка кода? где после названия отчета идет? 0

@sekonya 608 / 387 / 8 Регистрация: 14.04.2011 Сообщений: 1,324
	15.09.2012, 21:25	114
	строчка docmd.openreport 1

@KOPC1886 27 / 6 / 0 Регистрация: 28.10.2010 Сообщений: 352
	15.09.2012, 21:27 [ТС]	115
	sekonya, так эта строка открывает ведь только или я ошибаюсь? 0

@sekonya 608 / 387 / 8 Регистрация: 14.04.2011 Сообщений: 1,324
	15.09.2012, 21:49	116
	смотря какой аргументвы введете после запятой, можно вывести сразу на печать, можно предворительный просмотр сделать, можно открыть отчет в режиме конструктора и т.д. 0

@KOPC1886 27 / 6 / 0 Регистрация: 28.10.2010 Сообщений: 352
	16.09.2012, 22:25 [ТС]	117
	sekonya, я тут еще одну фишечку продумал...как обратиться к полю Цена , чтобы в отчете потом внизу под ценами было написано "Итого - 1000у.е" примерно так.Это возможно? 0

@sekonya 608 / 387 / 8 Регистрация: 14.04.2011 Сообщений: 1,324
	17.09.2012, 16:24	118
	запросто, в примечании формы или отчета всавьте поле, а в поле напишите =sum([цена]) 1

@KOPC1886 27 / 6 / 0 Регистрация: 28.10.2010 Сообщений: 352
	17.09.2012, 17:50 [ТС]	119
	sekonya, Спасибо Большое!))) 0