Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.78/18: Рейтинг темы: голосов - 18, средняя оценка - 4.78
 Аватар для Chewbacca1
4 / 4 / 2
Регистрация: 14.02.2015
Сообщений: 122

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

10.06.2015, 21:14. Показов 3663. Ответов 7
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Здравствуйте, как реализовать процедуру добавления записи в таблицу через форму. ?
По нажатии кнопки Принять добавить из полей формы в таблицу (подчиненная форма на скриншоте).
Миниатюры
Добавить запись в таблицу через форму  
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
10.06.2015, 21:14
Ответы с готовыми решениями:

Добавить запись в таблицу через РНР форму
Мне кажется я что то упустил. Добавляю все данные, после нажатия кнопки Субмит - появляется надпись, что мол все в норме. Открываю...

Как добавить запись в подчиненную форму через форму элемента?
Есть основная форма. На ней подчиненная табличная форма - список короче. Отдельно есть форма для элемента записи подчиненной формы (...

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

7
 Аватар для Alex77755
11525 / 3812 / 683
Регистрация: 13.02.2009
Сообщений: 11,229
10.06.2015, 21:46
Обратится на форум по фотошопу, как минимум!
отвт хочешь получить в виде картинки?
0
 Аватар для Chewbacca1
4 / 4 / 2
Регистрация: 14.02.2015
Сообщений: 122
10.06.2015, 21:54  [ТС]
Alex77755, сори
Вложения
Тип файла: rar База данных1.rar (32.8 Кб, 13 просмотров)
0
 Аватар для Chewbacca1
4 / 4 / 2
Регистрация: 14.02.2015
Сообщений: 122
11.06.2015, 09:13  [ТС]
Т.е. из контролов значения сохранить в таблицу и потом обновить чтобы отобразилось в подчиненной, вот как это сделать?
0
 Аватар для Alex77755
11525 / 3812 / 683
Регистрация: 13.02.2009
Сообщений: 11,229
11.06.2015, 11:05
Вот вырезки из моих работ примерно такого плана.
Тут не полностью процедура, но принцип
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
Считывание данных в переменные и проверка заполненности полей
 
Id.SetFocus: D_Id = Id.Text
Nam.SetFocus: D_Nam = Nam.Text
Stall.SetFocus: D_st = Stall.Text
Length.SetFocus: D_L = Length.Text
Diameter.SetFocus: D_Dm = Diameter.Text
Step.SetFocus: D_sl = Step.Text
Поставщик.SetFocus: D_Ps = Поставщик.Text
Data_pos.SetFocus: D_Dp = Data_pos.Text
Кол_пост.SetFocus: D_Kp = Кол_пост.Text
Цена.SetFocus: D_Zn = Цена.Text
Дата_след_пост.SetFocus: D_Ds = Дата_след_пост.Text
Кол_сл_пост.SetFocus: D_Ks = Кол_сл_пост
 
'проверка заполненности полей
If Len(D_Id) * Len(D_Nam) * Len(D_st) * Len(D_L) * Len(D_Dm) * Len(D_Zn) = 0 Or _
Len(D_sl) * Len(D_Ps) * Len(D_Dp) * Len(D_Kp) * Len(D_Ds) * Len(D_Ks) = 0 Then
MsgBox "Заполнены не все поля!", vbCritical, ""
Exit Sub
End If
 
 
Назначение списку уникальных значений полей таблицы:
 
Set dbs = CurrentDb
Set Диаметры.Recordset = dbs.OpenRecordset("SELECT DISTINCT Метизы.Diameter from Метизы")'уникальный диаметр
Set Длинны.Recordset = dbs.OpenRecordset("SELECT DISTINCT Метизы.Length from Метизы")'уникальная длина
 
 
Обор данных из таблицы запросом по двум(или одному) условиям
 
Dim S_S 'строка условий отбора
Dim D, L 'значения диаметра и длины
 
'считывание данных с комбобоксов
Диаметры.SetFocus: D = Диаметры.Text
Длинны.SetFocus: L = Длинны.Text
'назначение текущей базы
Set dbs = CurrentDb
 
'если установлен флаг диаметры
If Флажок0.Value = -1 And D <> "" Then
'пишем в строку запроса условие
S_S = " WHERE Метизы.Diameter ='" & D & "'"
End If
'если установлен флаг длина
If Флажок2.Value = -1 And L <> "" Then
'в зависимости от содержания строки запроса пишем или дописываем условия
    S_S = IIf(S_S = "", " WHERE Метизы.Length ='" & L & "'", S_S & " And  Метизы.Length ='" & L & "'")
End If
 
'назначаем списку рекордсет запроса к таблице Метизы с условиием(условиями) отбора
Set Me.Результат_фильтра.Recordset = dbs.OpenRecordset("SELECT Метизы.Name,Метизы.Stall from Метизы " & S_S)
 
 
Поиск нужной для редактирования записи и редактирование её
 
Set dbs = CurrentDb
sSQL = "SELECT * FROM Склад;" ' запрос к таблице
Set rst = dbs.OpenRecordset(sSQL)
rst.FindFirst "Id ='" & Id.Text & " '"
 
   If rst.NoMatch Then ' если нет
        MsgBox "Такого ID не существует!", vbCritical, "": Exit Sub
 
   Else
        rst.Edit
        rst(2) = D_Nam 'наименование
        rst(3) = D_st 'Материал
        rst(4) = D_L 'Длина
        rst(5) = D_Dm 'диаметр
        rst(6) = D_sl 'шаг
        rst(7) = D_Ps 'поставщик
        rst(8) = D_Dp 'Дата поставки
        rst(9) = D_Kp 'количество
        rst(10) = D_Zn 'цена
        rst(11) = D_Ds 'дата следующей поставки
        rst(12) = D_Ks 'количество следующей поставки
        rst(13) = 500 'запас
        rst.Update
End If
rst.Close
Set rst = Nothing
Добавлено через 3 минуты
Если у тебя добавление записи, то вместо rst.Edit будет RST.AddNew
Конечно спецы по аксу скажут, что это примитивно и можно просто запросом добавлять строку, но для начинающего так более наглядно

Добавлено через 3 минуты
http://www.sql.ru/forum/681227... stvami-vba

Добавлено через 52 секунды
Запрос на добавление VBA из формы
1
 Аватар для Chewbacca1
4 / 4 / 2
Регистрация: 14.02.2015
Сообщений: 122
11.06.2015, 20:05  [ТС]
Alex77755, Cпасибо!)
Сделал пока вот так:
Visual Basic
1
2
3
4
5
6
7
8
9
Private Sub Кнопка8_Click()
    Dim strSQL As String
 
    strSQL = "insert into Хранение (Код_оборудования, Код_детали, Номер_поддона, Количество, Полон) values ('" & Me.oborud.Value & "', '" & Me.detal.Value & "', '" & Me.poddon.Value & "', 100, false)"
    CurrentDb.Execute strSQL
    MsgBox "Товар принят", vbInformation, "Успех"
    Me.[подчиненная форма].Requery
 
End Sub
Но не срабатывает(
Когда заменяю аргументы в скобках после values на литералы (не контролы), то все норм

Добавлено через 6 часов 9 минут
Actual
0
 Аватар для Alex77755
11525 / 3812 / 683
Регистрация: 13.02.2009
Сообщений: 11,229
11.06.2015, 20:07
Лучший ответ Сообщение было отмечено Chewbacca1 как решение

Решение

У меня тоже не получалось так, как нормально работает в екселе.
А а аксе получилось только если считать в переменную
И то, что бы считать в переменную нужно установить на контроле фокус.
Visual Basic
1
Id.SetFocus: D_Id = Id.Text
1
 Аватар для Chewbacca1
4 / 4 / 2
Регистрация: 14.02.2015
Сообщений: 122
11.06.2015, 22:38  [ТС]
Alex77755, вот блин, теперь ошибка - слишком мало параметров, нужно 4
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Êíîïêà8_Click()
    Dim strSQL As String
    Dim Ob As Integer
    Dim Det As Integer
    Dim Pd As Integer
    Dim Co As Integer
    
    oborud.SetFocus: Ob = oborud.Text
    detal.SetFocus: Det = detal.Text
    poddon.SetFocus: Pd = poddon.Text
    counter.SetFocus: Co = counter.Text
    
 
    
    strSQL = "insert into Хранение (Код_оборудования, Код_детали, Номер_поддона, Количество, Полон) values (Ob, Det, Pd, Co, false)"
    CurrentDb.Execute strSQL
    MsgBox "Товар принят", vbInformation, "Успех"
    Me.[подчиненная форма].Requery
    
 
End Sub
Добавлено через 1 час 15 минут
Сделал так:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Form_Load()
    datef.SetFocus
    Me.datef.Text = Date
End Sub
 
Private Sub Кнопка8_Click()
    With CurrentDb.OpenRecordset("select * from Хранение")
    .AddNew
    !Код_оборудования = Me.oborud
    !Код_детали = Me.detal
    !Номер_поддона = Me.poddon
    !Количество = Me.counter
    !Дата_формирования = Me.datef
    .Update
    End With
    Me.[Хранение].Requery
End Sub
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
11.06.2015, 22:38
Помогаю со студенческими работами здесь

Добавить запись в таблицу (через DBEdit)
Здравствуйте! В силу неопытности возник вопрос Работаю в Embarcadero C++ Builder 10.2 Нужно добавить запись в таблицу (через...

Как сделать запись в таблицу mysql через форму HTML?
Здравствуйте, как сделать запись в таблицу mysql через форму HTML. В таблице 4 параметра: id, возраст, имя, дата добавления записи.

Как добавить запись в связную таблицу через adoquery?
В главную таблицу записи добавляются,как сделать что бы во вторую таблицу можно было добавить связную запись? Помогите пожалуйста,плохо в...

Добавить таблицу в форму
Ребята помогите плиз! обращаюсь еще раз! скажите пожалуйста как можно выгрузить таблицу в форму? здесь на форуме нашла похожую тему но у...

Не могу добавить таблицу на форму
подключила базу данных к вижуал студио 2012 и не могу добавить таблицы на форму. в чем проблема? что делать?


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

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Новые блоги и статьи
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Access
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha
Etyuhibosecyu 20.11.2025
Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух
kumehtar 18.11.2025
Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .
Создание Single Page Application на фреймах
krapotkin 16.11.2025
Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru