Выбор записи в подчиненной форме в виде таблицы

@ShikuS · Регистрация: 14.10.2016

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

Добрый вечер!

Работаю над проектом и для красоты и удобства (своего) использовал на формах ListBox. В нем выбрать запись было легко: или нажать на запись в ListBox или через VBA Me.ListBox= Me.ListBox.ItemData(1). При выделении у меня для Me.ListBox присваивался ID записи.
Но при работе с наименованиями и денежками нужно форматировать столбцы влево(наименование), вправо(деньги) и я решил заменить ListBox подчиненной формой в виде таблицы. И вот собственно вопрос: как сделать так, что бы при загрузке формы или изменении списка в таблице выделялась первая запись(а не одна ячейка), а так же как можно выделить всю запись а не одну ячейку при переводе курсора или мыши на другую запись и при этом узнать ID данной записи для последующего редактирования/удаления ( в общем для работы с конкретной записью)

Спасибо

@ShikuS · 27.06.2017, 00:00 **[ТС]**

Прикрепил демо!(access 2013)
запуск формы frmDetails. При выборе в Listbox и нажатии редактирование или двойном щелчке на записи открывается нужная запись для редактирования. Как так же сделать с подчиненной формой в виде таблицы??

Спасибо

@Панург · 27.06.2017, 06:49

ShikuS,

@ShikuS · 27.06.2017, 08:13 **[ТС]**

Панург, спасибо, то что доктор прописал... немного более замороченней, чем через ListBox. А также при нажатии на Enter, при выделенной записи редактировалось как сделать, т.е.-редактирование при двойном нажатии
А удаление так же через рекордсет? а можете, пожалуйста, функцию на кнопку удаление записать, в качестве примера (я разберусь, со временем)))) спасибо

@Панург · 27.06.2017, 11:14

ShikuS,

@ShikuS · 27.06.2017, 19:07 **[ТС]**

Панург, сапсибо +1

Добавлено через 41 минуту
Панург, еще один вопрос:

для создания новой записи по кнопке нужно создать какую нить публичную функцию в подчиненной форме, типа:

Visual Basic
1
2
3
4
Public Function btn_Add()
    If Me.NewRecord Then Exit Function
    DoCmd.OpenForm "frmAEDetails", acNormal, DataMode:=acAdd, WindowMode:=acDialog, OpenArgs:="frmDetailsAdd" & "," & ""
End Function

а в главной форме событие по кнопке:

Visual Basic
1
2
3
4
5
6
Private Sub btnAddDetail_Click() 'Äîáàâèòü äåòàëü â áàçó
    'DoCmd.OpenForm "frmAEDetails", acNormal, "", "", acAdd, acDialog, "frmDetailsAdd" & "," & ""
    With Me.sfrm_req_frmDetails_tbl.Form
        .btn_Add
    End With
End Sub

При этом открывает форму для создания новой записи, но не сохраняет ее, пишет ошибку при проверке в строках:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
    'Проверка совпадений
    Dim s
    s = "SELECT * FROM tblUslugi WHERE [USLUGANAME]='" & Me.plDetail.Value & "' AND [IDMODEL]=" & Str(Nz(Me.cmbModels.Value, 0)) & ""
    With CurrentDb.OpenRecordset(s)
        If Not .EOF Then
            MsgBox "Такое наименование уже есть в базе.", _
                    vbOKOnly + vbExclamation, "Внимание"
            Me.plDetail.SetFocus ' Установка курсора в поле ввода
            Exit Sub ' Возврат в форму
        End If
    End With

если, убираю эти строки, то все хорошо, видимо с рекордсетом что то не то, т.к. мы в подчиненной форме через него работали???!!!

Добавлено через 4 часа 49 минут
Пардоньте, ошибся, в запросе.

Все работает отлично. спасибо

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! в-строка - входное арифметическое выражение в инфиксной(обычной). . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@ShikuS 6 / 6 / 0 Регистрация: 14.10.2016 Сообщений: 148

	Выбор записи в подчиненной форме в виде таблицы 26.06.2017, 23:40. Показов 3010. Ответов 5 Метки нет (Все метки) Добрый вечер! Работаю над проектом и для красоты и удобства (своего) использовал на формах ListBox. В нем выбрать запись было легко: или нажать на запись в ListBox или через VBA Me.ListBox= Me.ListBox.ItemData(1). При выделении у меня для Me.ListBox присваивался ID записи. Но при работе с наименованиями и денежками нужно форматировать столбцы влево(наименование), вправо(деньги) и я решил заменить ListBox подчиненной формой в виде таблицы. И вот собственно вопрос: как сделать так, что бы при загрузке формы или изменении списка в таблице выделялась первая запись(а не одна ячейка), а так же как можно выделить всю запись а не одну ячейку при переводе курсора или мыши на другую запись и при этом узнать ID данной записи для последующего редактирования/удаления ( в общем для работы с конкретной записью) Спасибо 0

@ShikuS 6 / 6 / 0 Регистрация: 14.10.2016 Сообщений: 148
	27.06.2017, 08:13 [ТС]
	Панург, спасибо, то что доктор прописал... немного более замороченней, чем через ListBox. А также при нажатии на Enter, при выделенной записи редактировалось как сделать, т.е.-редактирование при двойном нажатии А удаление так же через рекордсет? а можете, пожалуйста, функцию на кнопку удаление записать, в качестве примера (я разберусь, со временем)))) спасибо 0

Выбор записи в подчиненной форме в виде таблицы

Решение