Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > Microsoft Office и VBA > Microsoft Office Access
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 06.05.2011, 18:09   #1
Mihanches
Пользователь
 
Регистрация: 14.09.2010
Сообщений: 89
По умолчанию Добавление записи в таблицу из формы (MS Access)

VB вообще не знаю, так что тема проблемная. Нужно чтобы при нажатии на кнопку в связанную с формой таблицу добавилась запись. Запись из 3-х частей (в таблице 3 столбца), каждая из который вводится из поля для ввола текста.
Mihanches вне форума Ответить с цитированием
Старый 17.05.2011, 10:48   #2
ovt256
Форумчанин
 
Регистрация: 01.04.2011
Сообщений: 226
По умолчанию

Как то так:
Код:
Private Sub btAddOrg_Click()
    DoCmd.GoToRecord , , acNewRec
End Sub
ovt256 вне форума Ответить с цитированием
Старый 19.05.2011, 09:32   #3
Ангран
 
Регистрация: 13.05.2011
Сообщений: 5
По умолчанию

Приблезительно так:
Код:
Private Sub ИмяКнопки_Click()
 CurrentDb.Execute "Insert into ИмяТаблицы" _
   & "([Поле1],[поле2],[поле3]) Values " _
   & "('" & Me.ПолеВвода1.Value & "', '" & Me.ПолеВвода2.Value & "',  '" & Me.ПолеВвода3.Value & "' );"
End Sub
Делаем форму с полями ввода данных соответствующих полям таблицы в которую надо внести данные. Поле1 = полеВвода1 = столбез таблицы.
Ангран вне форума Ответить с цитированием
Старый 02.06.2012, 00:37   #4
Prent
Новичок
Джуниор
 
Регистрация: 02.06.2012
Сообщений: 1
По умолчанию

Цитата:
Сообщение от Ангран Посмотреть сообщение
Приблезительно так:
Код:
Private Sub ИмяКнопки_Click()
 CurrentDb.Execute "Insert into ИмяТаблицы" _
   & "([Поле1],[поле2],[поле3]) Values " _
   & "('" & Me.ПолеВвода1.Value & "', '" & Me.ПолеВвода2.Value & "',  '" & Me.ПолеВвода3.Value & "' );"
End Sub
Делаем форму с полями ввода данных соответствующих полям таблицы в которую надо внести данные. Поле1 = полеВвода1 = столбез таблицы.
Вот даже зарегился специально, чтоб выразить огромную благодарность за этот код!!! Он стал основой решения моих проблем!!!
Ангран, большое спасибо!!
Prent вне форума Ответить с цитированием
Старый 27.03.2016, 09:38   #5
Rdnaskela
Новичок
Джуниор
 
Регистрация: 27.03.2016
Сообщений: 1
По умолчанию

Цитата:
Сообщение от Ангран Посмотреть сообщение
Приблезительно так:
Код:
Private Sub ИмяКнопки_Click()
 CurrentDb.Execute "Insert into ИмяТаблицы" _
   & "([Поле1],[поле2],[поле3]) Values " _
   & "('" & Me.ПолеВвода1.Value & "', '" & Me.ПолеВвода2.Value & "',  '" & Me.ПолеВвода3.Value & "' );"
End Sub
Делаем форму с полями ввода данных соответствующих полям таблицы в которую надо внести данные. Поле1 = полеВвода1 = столбез таблицы.
Наконец-то нашёл нужный пример Т_____Т Спасибо!!!
Rdnaskela вне форума Ответить с цитированием
Старый 11.05.2016, 19:41   #6
НеВладислав
Новичок
Джуниор
 
Регистрация: 11.05.2016
Сообщений: 1
Радость

Цитата:
Сообщение от Ангран Посмотреть сообщение
Приблезительно так:
Код:
Private Sub ИмяКнопки_Click()
 CurrentDb.Execute "Insert into ИмяТаблицы" _
   & "([Поле1],[поле2],[поле3]) Values " _
   & "('" & Me.ПолеВвода1.Value & "', '" & Me.ПолеВвода2.Value & "',  '" & Me.ПолеВвода3.Value & "' );"
End Sub
Делаем форму с полями ввода данных соответствующих полям таблицы в которую надо внести данные. Поле1 = полеВвода1 = столбез таблицы.
Спасибо огромное вы просто Великий) у меня есть вопрос я хочу автоматически заполнять ID пользователя как это сделать?
НеВладислав вне форума Ответить с цитированием
Старый 15.02.2017, 15:51   #7
Rikozenit
Новичок
Джуниор
 
Регистрация: 19.05.2015
Сообщений: 1
По умолчанию

Спасибо огромное! ДЛя меня самое главное, что этим скриптом можно брать часть данных в одной таблице и переносить их в другую!
Супер!
Rikozenit вне форума Ответить с цитированием
Старый 09.05.2017, 23:21   #8
Bukashka1999
 
Регистрация: 09.05.2017
Сообщений: 3
По умолчанию

& "('" & Me.ПолеВвода1.Value & "', '" & Me.ПолеВвода2.Value & "', '" & Me.ПолеВвода3.Value & "' );"
Где ПолеВвода1, 2, 3 - это наименования полей?
Например у меня форма обучающийся: у неё поля: Фамилия, Имя, Отчество, Дата Рождения и тл, это и есть Поля ввода?
Bukashka1999 вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
SQL. Добавление в таблицу записи Dushkanyara БД в Delphi 0 18.10.2010 12:59
Добавление записи в таблицу chinock Microsoft Office Access 2 24.09.2010 13:39
Добавление записи в таблицу Galiska БД в Delphi 3 25.05.2010 07:07
Добавление записи в таблицу folga БД в Delphi 4 21.04.2010 07:15
Добавление записи через список в связанную таблицу(при связи с Access) megaten БД в Delphi 5 17.05.2009 14:57


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS