1 / 1 / 0
Регистрация: 08.05.2018
Сообщений: 8
1

Сложности с обновлением данных в таблице

21.05.2018, 17:54. Показов 896. Ответов 5
Метки нет (Все метки)

есть таблица с логическим полем (да, нет)
при нажатии кнопки в форме запускается код vba который берет значение из полей ряда и места для зала и должен изменить значение с нет на да
написанный мною код без постоянно выдает ошибки по типу "procedure declaration does not match" или о том что не задан саб
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Кнопка23_Click(ryad As Variant, mesto As Variant)
Set ryad = Form_Form1.ряд
Set mesto = Form_Form.Место
Select Case Forms!Form1!Залы
Case Is = 1
Update.tbl1Зал
Set [занятость] = yes
where [ряд] = ryad & [Место] = mesto
Case Else
MsgBox "выбери другой зал"
End Select
End Sub
как видно из кода я беру значения из формы с соответствующими полями, case задан для разных залов и если хотя бы 1 заработает сделаю по подобию....
пробовал и такие варианты
Visual Basic
1
2
3
4
5
6
7
8
9
10
Private Sub Кнопка23_Click()
Select Case Forms!Form1!Залы
Case Is = 1
Update.tbl1Зал
Set [занятость] = yes
where [ряд] = forms!form1!ряд & [Место] = forms!form1!место
Case Else
MsgBox "выбери другой зал"
End Select
End Sub
чувствую я что много мне предстоит узнать о vba.....
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.05.2018, 17:54
Ответы с готовыми решениями:

Сложности в непонимании построения схемы данных
Уважаемые форумчане, прошу совета. Пользуюсь MS Access 2010. БД для сотрудников подбора...

Импорт данных в таблицу БД из Excel с сохранением всех типов данных в таблице БД
Добрый день! Произвожу импорт данных в таблицу БД ms access из таблицы excel. Необходимо при...

Добавление данных в таблицу из полей формы access, если таких данных в таблице нет
Может быть я всех достал уже. Но к сожалению я еще только учусь, и иногда возникают проблемы. ...

Сложности с сортировкой и суммами в Таблице данных
Всем снова привет! И вновь я мучаю вас своими сложными вопросами. В общем, проблема...

5
1 / 1 / 0
Регистрация: 08.05.2018
Сообщений: 8
21.05.2018, 18:02  [ТС] 2
вот сама бд если интересно
Вложения
Тип файла: rar БД кино.rar (1.07 Мб, 2 просмотров)
0
Модератор
Эксперт MS Access
11055 / 4514 / 728
Регистрация: 07.08.2010
Сообщений: 12,932
Записей в блоге: 4
21.05.2018, 18:10 3
Цитата Сообщение от GoldenGromofon Посмотреть сообщение
Update.tbl1Зал
Set [занятость] = yes
where [ряд] = ryad & [Место] = mesto
это явно не ACCESS
0
8489 / 5277 / 560
Регистрация: 27.03.2013
Сообщений: 18,495
21.05.2018, 18:13 4
Цитата Сообщение от shanemac51 Посмотреть сообщение
...это явно не ACCESS...
А может как то можно адаптировать?
Интересненько же.
0
1 / 1 / 0
Регистрация: 08.05.2018
Сообщений: 8
21.05.2018, 18:19  [ТС] 5
писал исходя из ошибок и по подобию разных примеров в интернете
вариант с -1 не работал а вариант с yes сдвинул с мертвой точки
Visual Basic
1
Set [занятость] = -1
на счет функции update вообще ничего не понятно, просто поставил точку и ошибка в дебаге пошла на след строку, подумал что получилось.
честно не знаю как использовать update в тандеме select case
0
Модератор
Эксперт MS Access
4767 / 2438 / 597
Регистрация: 12.06.2016
Сообщений: 6,412
21.05.2018, 18:35 6
Лучший ответ Сообщение было отмечено GoldenGromofon как решение

Решение

Visual Basic
1
2
3
4
5
6
7
8
9
10
Private Sub Кнопка23_Click()
 With Forms!Form1
   Select Case .Залы
     Case 1
       CurrentDb.Execute "UPDATE tbl1Зал SET занятость=True WHERE ряд=" & .ряд & " AND Место=" & .Место
     Case Else 
       MsgBox "выберите другой зал"
   End Select
 End With
End Sub
Но, скорее всего, достаточно просто
Visual Basic
1
занятость=True
, если "занятость" - поле той же формы.

Добавлено через 1 минуту
писал исходя из ошибок и по подобию разных примеров в интернете*
И написали нечто ужасное.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.05.2018, 18:35
Помогаю со студенческими работами здесь

Как сделать что если нет данных в таблице, чтобы шаблон этой самой таблице не выводился а писалось что данных в таблице нет
В общем проблема такая, есть админка где выводится список жалоб которые без ответа, когда они есть...

Организовать совместную работу с обновлением данных на всех клиентах при изменении данных на одном
Добрый день! Решил сделать небольшое клиент серверное приложение (MS SQL => WCF Services => WPF...

Помогите с обновлением данных
Есть SqlDataAdapter, dataSet и dataGrid SqlDataAdapter ad dataSet ds через адаптер заполняется...

Ошибка с обновлением данных таблицы
Добрый день. Создал в Microsoft SQL Server 2008 R2 базу данных Clients и тестовую таблицу. В ней...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru