Кнопка добавления новой записи

@puuudgeee · Регистрация: 15.06.2017

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

Добрый день.
Столкнулся с такой проблемой:
Создал в форме навигация кнопку "Добавить оборудование" в теории по нажатию на кнопку надо открывать форму "t_оборудование" для внесения новой записи (форма в свою очередь заблокирована для редактирования существующих записей). В форме "t_оборудование" есть кнопка "Изменить" которая разблокирует основную и подчиненную форму на редактирование записей.

с кнопкой "изменить" я разобрался порывшись на форуме.
Я плохо(никак) разбираюсь в VB и не всегда понимаю как правильно писать код.
У меня получилось открывать форму "t_оборудование" через кнопку "Добавить оборудование", но она открывалась на последней записи, а надо на новой.
И еще вопрос как в форме "t_оборудование" сделать скрытыми поля если галочки не выставлены (см. рисунок)

@Eugene-LS · 09.09.2021, 13:00

Сообщение от puuudgeee

Столкнулся с такой проблемой:

Архив : TestBD.7z - Пуст!

@puuudgeee · 09.09.2021, 13:48 **[ТС]**

УпсTestBD.7z

@Eugene-LS · 09.09.2021, 14:17

Сообщение от puuudgeee

но она открывалась на последней записи, а надо на новой.

в модуль формы навигации:

Visual Basic
1
2
3
4
5
6
7
Option Compare Database
Option Explicit
Private Sub Кнопка2_Click()
    DoCmd.OpenForm "t_оборудование", , , , acFormAdd
    Forms("t_оборудование").AllowEdits = True
    Forms("t_оборудование").[t_комплектация подчиненная форма].Form.AllowEdits = True
End Sub

добавить сверху в модуль формы "t_оборудование":

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Option Compare Database
Option Explicit
 
Private Sub Form_Current()
    годен_до_лог_AfterUpdate
End Sub
 
Private Sub годен_до_лог_AfterUpdate()
    Me.процедура_поверки_лог.Visible = Me.годен_до_лог
    Me.Поле_поверка.Visible = Me.годен_до_лог
    Me.периодичность_поверки.Visible = Me.годен_до_лог
End Sub

@puuudgeee · 09.09.2021, 14:40 **[ТС]**

Спасибо вам огромное!!!
Все работает!
Я видимо неправильно объяснил про скрытие\отображение полей надо что бы поле напротив флажка "годен_до" отображалось/скрывалось по нажатию на флажок "годен_до_лог", а поля выделенные красным по нажатию на флажок "Поверка".

@puuudgeee · 09.09.2021, 14:49 **[ТС]**

Сообщение от Eugene-LS

добавить сверху в модуль формы "t_оборудование":

не пойму как переделать под разные флажки

@Eugene-LS · 09.09.2021, 14:53

Сообщение от puuudgeee

Я видимо неправильно объяснил про скрытие\отображение полей надо что бы поле напротив флажка "годен_до" отображалось/скрывалось ...

Тогда так:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Form_Current()
    годен_до_лог_AfterUpdate
    процедура_поверки_лог_AfterUpdate
End Sub
 
Private Sub годен_до_лог_AfterUpdate()
    Me.годен_до.Visible = Me.годен_до_лог
End Sub
 
Private Sub процедура_поверки_лог_AfterUpdate()
    Me.Поле_поверка.Visible = Me.процедура_поверки_лог
    Me.периодичность_поверки.Visible = Me.процедура_поверки_лог
End Sub

@puuudgeee · 09.09.2021, 14:57 **[ТС]**

Сообщение от Eugene-LS

Тогда так:

Спасибо!!!

@puuudgeee · 09.09.2021, 16:04 **[ТС]**

Сообщение от Eugene-LS

Тогда так:

Еще вопрос я создал на в форме "Навигация" кнопку "карт. оборуд. выборка" по нажатию открывается форма "Выборка_оборудования", где можно выбрать тип оборудования и после нажатия на кнопку "Ок" переведет на форму "список_оборудования". Как правильно создать запрос что бы в открывшейся форме "список_оборудования" отображался лишь тот тип оборудования который я выбрал?? если не выбран ни один то отображались все.

@Eugene-LS · 09.09.2021, 16:35

Сообщение от puuudgeee

Как правильно создать запрос что бы в открывшейся форме "список_оборудования" отображался лишь тот тип оборудования который я выбрал?

Немного не так это обычно делается ...

@puuudgeee · 09.09.2021, 16:50 **[ТС]**

Сообщение от Eugene-LS

Немного не так это обычно делается ...

спасибо!

@puuudgeee · 10.09.2021, 15:11 **[ТС]**

Eugene-LS, Eugene-LS,
Добрый день! подскажите как реализовать такую мысль:
Создал запрос "Список_оборудования_с_поверкой". данные не отображаются, я понимаю что причина в том что пока нету связанных данных в таблице "t_поверка" с данными в таблице "t_оборудование" ничего не появится. Для начала, что бы внести данные о поверке мне надо сначала внести оборудование.
Как сделать что бы в запросе "Список_оборудования_с_поверкой" отобразились все приборы как в форме/запросе "Список_оборудования", а уже потом я мог через кнопку как в форме "Список_оборудования" открыть новую форму(которую создам) "Данные_о_Поверке" и внести в ней данные о поверке - сохранить, после чего в запросе "Список_оборудования_с_поверкой" в поле "кд_поверка" появится код созданной записи?

@Eugene-LS · 10.09.2021, 15:32

Сообщение от puuudgeee

что бы в запросе "Список_оборудования_с_поверкой" отобразились все приборы как в форме/запросе "Список_оборудования", а уже потом я мог через кнопку как в форме "Список_оборудования" открыть новую форму(которую создам) "Данные_о_Поверке"

- что то такое:

SQL
1
2
3
4
5
6
7
8
9
10
SELECT t_оборудование.кд_оборудования, t_оборудование.наименование_оборудования, 
t_оборудование.Зав_номер, t_оборудование.Инв_номер, t_персонал.Фамилия_И_О, 
ts_тип.Тип_сокращенно, ts_проц_поверки.Процедура_поверки_сокращенно, t_поверка.кд_поверка
FROM ((ts_тип RIGHT JOIN (t_персонал RIGHT JOIN t_оборудование 
ON t_персонал.[Кд_персонал] = t_оборудование.[кд_ответственный]) 
ON ts_тип.[кд_тип] = t_оборудование.[кд_тип]) 
LEFT JOIN ts_проц_поверки 
ON t_оборудование.кд_проц_поверки = ts_проц_поверки.кд_проц_поверки) 
LEFT JOIN t_поверка 
ON t_оборудование.кд_оборудования = t_поверка.кд_оборудования_поверки_под;

@puuudgeee · 13.09.2021, 13:45 **[ТС]**

Сообщение от Eugene-LS

что то такое:

Добрый День!
Ломаю голову уже второй день!
Не пойму что я делаю не так
создал кнопку "Поверка" в форме "Навигация" по ней перехожу к форме "Список_оборуд_поверка" на ней создал кнопку "Форма_поверки" после чего открывается Основная форма и подчиненная (которую я закинул в вкладку).
В теории в основной форме автоматический должны подставляться данные соответствующие выбранной записи (их нельзя редактировать), а в подчиненной форме у одного прибора может быть множество поверок/калибровок/прочего...
У меня форма открывается но редактировать подчиненную форму почему то нельзя.

@alvk · 14.09.2021, 08:55

Сообщение от puuudgeee

перехожу к форме "Список_оборуд_поверка" на ней создал кнопку "Форма_поверки" после чего открывается Основная форма и подчиненная

не правда!

@puuudgeee · 17.09.2021, 09:33 **[ТС]**

Сейчас открывается, но почему то для первого прибора из списка он открывает нормально, а для других приборов из формы "список_оборуд_поверка", не подгружается информация в поля и в подчиненной форме открывается данные о поверке первого прибора. почему так ?

@puuudgeee · 17.09.2021, 09:40 **[ТС]**

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

@Eugene-LS · 17.09.2021, 09:53

Сообщение от puuudgeee

В теории данные о поверке должны записываться в таблицу "t_поверка"

Подправил вам пару байтиков ....
Посмотрите пожалуйста - то ?

@alvk · 17.09.2021, 09:53

В макросах я не силён, извините. Только vba для числовых кодов:

Visual Basic
1
2
3
4
5
Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "форма1"
    stLinkCriteria = " код =" & Me!Полескодом
    DoCmd.OpenForm stDocName, , , stLinkCriteria

@Eugene-LS · 17.09.2021, 09:58

Сообщение от alvk

В макросах я не силён

А-а-а-на-логично!

Всё закончилось:

Visual Basic
1
2
3
4
5
Dim vVal
    vVal = Me!кд_оборудования
    If IsNull(vVal) = False Then
        DoCmd.OpenForm "процедура_поверки", , , "кд_оборудования = " & vVal
    End If

+ откорректировал источник данных формы "процедура_поверки"

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11680&d=1772460536 Одним из. . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .

Кнопка добавления новой записи

Решение

Решение

Решение

@puuudgeee 0 / 0 / 0 Регистрация: 15.06.2017 Сообщений: 126
	09.09.2021, 13:48 [ТС]
	УпсTestBD.7z 0

@puuudgeee 0 / 0 / 0 Регистрация: 15.06.2017 Сообщений: 126
	09.09.2021, 14:40 [ТС]
	Спасибо вам огромное!!! Все работает! Я видимо неправильно объяснил про скрытие\отображение полей надо что бы поле напротив флажка "годен_до" отображалось/скрывалось по нажатию на флажок "годен_до_лог", а поля выделенные красным по нажатию на флажок "Поверка". 0

@puuudgeee 0 / 0 / 0 Регистрация: 15.06.2017 Сообщений: 126
	17.09.2021, 09:40 [ТС]
	В теории данные о поверке должны записываться в таблицу "t_поверка" В таблице "t_поверка" в поле "кд_проц_поверки_под" должно автоматический подставляться значение присвоенное полю "поверка" в форме "оборудование", а в поле "кд_оборудования_поверки_под" подставляться "кд оборудования". Пока что как это сделать я не пойму, так как не могу разобраться что бы форма "процедура_поверки" открывалась правильно(( 0