Флажок - Microsoft Office Access

cherepushka · 01.03.2012, 11:49

Здравствуйте! Помогите пожалуйста в работе с флажками. В таблице сделал логическое поле флажок. Есть форма с записями из таблицы. В форме есть кнопка. Напротив каждой записи стоит флажок. Что нужно прописать в коде кнопке if ФЛАЖОК Then, чтобы при выборе флажком нескольких записей открывалась форма second_step с выбранными записями.

Код кнопки
Dim strFormName As String
Dim strFiltr As String
strFormName = "second_step" 'Имя открываемой формы
strFiltr = "Код=" & Me![Код] ' Код - Имя ключевого поля
DoCmd.OpenForm strFormName, acPreview, , strFiltr

slone2179 · 01.03.2012, 13:48

Что-то типа такого, но вот Where condition почему-то не срабатывает, пишет несоответствие типов данных. Может гуру подскажут. А так вроде в этом направлении.
Private Sub Кнопка_Click()
Dim strFormName As String
Dim strFiltr As String
strFormName = "second_step"
strFiltr = "[Код]=" & "'" & Me![Код] & "'"
If флажок = True Then
MsgBox "С флажком!"
DoCmd.OpenForm strFormName, , , strFiltr, acFormEdit
Else
DoCmd.OpenForm strFormName
MsgBox "Без флажка!"
End If
End Sub

01.03.2012, 11:49	#1
cherepushka Пользователь Регистрация: 25.02.2012 Сообщений: 81	Флажок Здравствуйте! Помогите пожалуйста в работе с флажками. В таблице сделал логическое поле флажок. Есть форма с записями из таблицы. В форме есть кнопка. Напротив каждой записи стоит флажок. Что нужно прописать в коде кнопке if ФЛАЖОК Then, чтобы при выборе флажком нескольких записей открывалась форма second_step с выбранными записями. Код кнопки Dim strFormName As String Dim strFiltr As String strFormName = "second_step" 'Имя открываемой формы strFiltr = "Код=" & Me![Код] ' Код - Имя ключевого поля DoCmd.OpenForm strFormName, acPreview, , strFiltr

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
как включить флажок???	xpams	HTML и CSS	1	15.01.2012 13:02
Флажок + MsSql	FanRammstein	Microsoft Office Access	3	20.07.2011 16:27
Как создать флажок?	Interesniy	Microsoft Office Excel	2	26.05.2011 00:12
Установить флажок CheckBox'a	Dasharnb777	Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM	6	18.10.2010 19:42
флажок и delphi	guffer	Общие вопросы Delphi	1	24.08.2009 10:46

01.03.2012, 13:48	#2
slone2179 Форумчанин Регистрация: 22.04.2011 Сообщений: 155	Что-то типа такого, но вот Where condition почему-то не срабатывает, пишет несоответствие типов данных. Может гуру подскажут. А так вроде в этом направлении. Private Sub Кнопка_Click() Dim strFormName As String Dim strFiltr As String strFormName = "second_step" strFiltr = "[Код]=" & "'" & Me![Код] & "'" If флажок = True Then MsgBox "С флажком!" DoCmd.OpenForm strFormName, , , strFiltr, acFormEdit Else DoCmd.OpenForm strFormName MsgBox "Без флажка!" End If End Sub