Форум программистов, компьютерный форум, киберфорум
Наши страницы
Microsoft Access
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
st0rmpwnz
0 / 0 / 0
Регистрация: 14.05.2015
Сообщений: 13
1

Добавление записи в таблицу через форму

26.05.2017, 14:02. Просмотров 1290. Ответов 7
Метки нет (Все метки)

Добрый день.

У меня возникли проблемы с добавлением записи в таблицу через форму при помощи VBA.
В таблице есть поля: Group_ID, Group_Name, Group_Flow, Group_CreatDate, Group_StudAmount.
На форме я сделал поля для ввода для последних четырёх: input1, input2, input3, input4.
Нужно ли добавлять ещё одно поле для ввода в форме для ID? Потому что при попытке добавления записи, ничего не добавляется, и подозреваю что именно по этому, хотя и остальной код, кажется рабочий.
Проверьте пожалуйста.

Visual Basic
1
2
3
4
5
6
7
Private Sub button_AddTeacher_Click()
 
    CurrentDb.Execute "INSERT INTO Groups" _
    & "(Group_Name, Group_Flow, Group_CreatDate, Group_StudAmount) Values " _
    & " ('" & Me.input1.Value & "','" & Me.input2.Value & "','" & Me.input3.Value & "','" & Me.input4.Value & ");"
    
End Sub
Добавлено через 23 минуты
Пробую через рекордсет, то же самое, даже ошибки никакой не выводит. Просто ничего не происходит при нажатии на кнопку. В окне свойств проверил, при нажатии как и должно быть - [Процедура обработки событий]
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub button_AddTeacher_Click()
 
    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset("Select Group_Name, Group_Flow, Group_CreatDate, Group_StudAmount from Groups")
    rs.AddNew
    rs.Fields("Group_Name") = input1
    rs.Fields("Group_Flow") = input2
    rs.Fields("Group_CreatDate") = input3
    rs.Fields("Group_StudAmount") = input4
    rs.Update
 
End Sub
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.05.2017, 14:02
Ответы с готовыми решениями:

Добавление записи в таблицу через форму
Здравствуйте. Делаю базу данных школьной библиотеки. И столкнулся с 2 проблемами пока-что. 1...

Добавление записи в таблицу через форму
Имеется форма добавления записи в таблицу ЗАКАЗЫ. Как сделать, чтобы юзер не вводил такие поля как:...

Поиск и добавление записи в таблицу через форму
Имеется база данных(прикреплена). В форме "orderForm", в поле "Пассажир", при вводе номера телефона...

Добавление данных в таблицу через форму
Я сделал форму, через которую будут вводится данные в таблицу, причем в одном из полей я хочу,...

Добавление записи через форму
Помогите разобраться пожалуйста. Если у меня есть таблицы: Клиенты(Код клиента, ФИО, адрес),...

7
ltv_1953
Эксперт MS Access
13853 / 6127 / 1243
Регистрация: 21.06.2012
Сообщений: 11,109
26.05.2017, 14:34 2
Лучший ответ Сообщение было отмечено st0rmpwnz как решение

Решение

Цитата Сообщение от st0rmpwnz Посмотреть сообщение
У меня возникли проблемы с добавлением записи в таблицу через форму при помощи VBA.
А зачем использовать свободную форму. Сделайте форму с источником записей - таблицей Groups и работайте с ней.
1
st0rmpwnz
0 / 0 / 0
Регистрация: 14.05.2015
Сообщений: 13
28.05.2017, 13:40  [ТС] 3
Потому что таково задание - сделать это при помощи VBA.
Так что, поможет кто?
0
Eugene-LS
4145 / 2449 / 477
Регистрация: 05.10.2016
Сообщений: 6,795
28.05.2017, 13:57 4
Цитата Сообщение от st0rmpwnz Посмотреть сообщение
Потому что при попытке добавления записи, ничего не добавляется, и подозреваю что именно по этому, хотя и остальной код, кажется рабочий.
Проверьте пожалуйста.
А как мы проверим? - может у вас запрет на добавление идёт от схемы данных. Понимаете?

И вообще это "почёсывание левой ногой правого уха" - работать в Acceess с несвязанной формой.
Двойка! - вашему преподавателю.


Выкладывайте базу - говорите точку входа в процедуру - добрые форумчане помогут.
0
28.05.2017, 13:57
ltv_1953
Эксперт MS Access
13853 / 6127 / 1243
Регистрация: 21.06.2012
Сообщений: 11,109
28.05.2017, 14:00 5
А код то Ваш выполняется при нажатии. Поверяли? Добавьте строчку Stop перед Set rs во второй фрагмент и посмотрите, будет ли останов выполнения на Stop.
0
Eugene-LS
4145 / 2449 / 477
Регистрация: 05.10.2016
Сообщений: 6,795
28.05.2017, 14:13 6
Дорогой st0rmpwnz, позвольте вам приложить другой вид кода:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub button_AddTeacher_Click()
 
    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset("Select * From Groups")
    With rs
        .AddNew
        !Group_Name = input1
        !Group_Flow = input2
        !Group_CreatDate = input3
        !Group_StudAmount = input4
        .Update
    End With
End Sub
А вот откуда input1 (2, 3, ... ) у вас не понятно ...
0
commun
438 / 227 / 13
Регистрация: 29.10.2014
Сообщений: 928
28.05.2017, 22:24 7
Цитата Сообщение от Eugene-LS Посмотреть сообщение
А вот откуда input1 (2, 3, ... ) у вас не понятно ...
ну как непонятно, скорее необычно - он просто в свободных полях нарисовал свой данные и хочет нажатием кнопки добавить их в таблицу Groups, но свободные поля лучше использовать в формах для чтения данных, там понятно-защита и проч удобства, а для ввода?
0
st0rmpwnz
0 / 0 / 0
Регистрация: 14.05.2015
Сообщений: 13
30.05.2017, 13:42  [ТС] 8
Поговорил с преподавателем, проблема решилась, это было недопонимание(

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
30.05.2017, 13:42
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.05.2017, 13:42

Добавление нескольких записей в таблицу через форму
Добрый день Уважаемые форумчане, вновь мне необходим ваш совет, покорнейше прошу тапками не...

Добавление новых записей в таблицу через форму
Здравствуйте! Помогите пожалуйста разобраться. Хожу кругами. Есть таблица tblDeviceFullCode. В ней...

Добавление записи через ленточную форму
подскажите пожалуйста, что не так у меня в источнике строк ленточной формы "запрос2"? нужно чтобы...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru