powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Запоминание значений строк формы+СЕЙВ+отчет
25 сообщений из 45, страница 1 из 2
Запоминание значений строк формы+СЕЙВ+отчет
    #32611892
Dmitrijs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Есть форма.
В ней строки, которые не связанны с таблицами.
Нужно сделать так, чтобы эти значения записывались в отдельную таблицу, а из таблицы делался бы отчет.
Знаю, что на форме нужно сделать кнопку.
Подскажите подробнее, как замутить все это.
Задавайте вопросы, если я непонятно описал проблему.
...
Рейтинг: 0 / 0
Запоминание значений строк формы+СЕЙВ+отчет
    #32611985
refix
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Все очень просто. Делаем в этой форме кнопку "Сохранить"
В ее обработчике события Click
пишем типовой код:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
 ' формируем команду вставки
 

    Dim cmd  as string
    cmd = "INSERT INTO <тут имя таблицы куда сохранять> " & _
    " (<писок полей  аблицы>) VALUES (" & _
    CStr(ПолеФормы_1) & ", " & .... CStr(ПолеФормы_N) & ")"

 ' выполняем команду
 
    Call CurrentDb.Execute(cmd)  ' для mdb
 
    Call CurrentProject.Connection.Execute(cmd)  ' для adp
 
...
Рейтинг: 0 / 0
Запоминание значений строк формы+СЕЙВ+отчет
    #32611989
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
авторЗнаю, что на форме нужно сделать кнопку.

Правильный подход!
Ну ладно, сорри :)
авторВ ней строки, которые не связанны с таблицами.
В смысле? Строки - это поля? Или все-таки записи? Если записи, то с кем же они связаны? Если поля, то почему бы не связать их с полями соответствующей таблицы?
...
Рейтинг: 0 / 0
Запоминание значений строк формы+СЕЙВ+отчет
    #32612000
Фотография Daf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Geo, это продолжение вот этого топика Вот
...
Рейтинг: 0 / 0
Запоминание значений строк формы+СЕЙВ+отчет
    #32612020
Dmitrijs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
refixВсе очень просто. Делаем в этой форме кнопку "Сохранить"
В ее обработчике события Click
пишем типовой код:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
 ' формируем команду вставки
 


    Dim cmd  as string
    cmd = "INSERT INTO <тут имя таблицы куда сохранять> " & _
    " (<писок полей  аблицы>) VALUES (" & _
    CStr(ПолеФормы_1) & ", " & .... CStr(ПолеФормы_N) & ")"

 ' выполняем команду
 

    Call CurrentDb.Execute(cmd)  ' для mdb
 

    Call CurrentProject.Connection.Execute(cmd)  ' для adp
 


ТАК, ЧТО-ТО Я НЕ ВКУРИЛ.....форма у меня называется "Estimated DA"
В нем есть 3 строкb. Fire dues, tugboat dues, tonnage dues. значения этих строк в таблицах не записаны. Нужно это сделать.
Предложи пожалуйста свой вариант конкретно на моем примере.
...
Рейтинг: 0 / 0
Запоминание значений строк формы+СЕЙВ+отчет
    #32612031
Dmitrijs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Dmitrijs refixВсе очень просто. Делаем в этой форме кнопку "Сохранить"
В ее обработчике события Click
пишем типовой код:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
 ' формируем команду вставки
 



    Dim cmd  as string
    cmd = "INSERT INTO <тут имя таблицы куда сохранять> " & _
    " (<писок полей  аблицы>) VALUES (" & _
    CStr(ПолеФормы_1) & ", " & .... CStr(ПолеФормы_N) & ")"

 ' выполняем команду
 


    Call CurrentDb.Execute(cmd)  ' для mdb
 


    Call CurrentProject.Connection.Execute(cmd)  ' для adp
 



ТАК, ЧТО-ТО Я НЕ ВКУРИЛ.....форма у меня называется "Estimated DA"
В нем есть 3 строкb. Fire dues, tugboat dues, tonnage dues. значения этих строк в таблицах не записаны. Нужно это сделать.
Предложи пожалуйста свой вариант конкретно на моем примере.

Я имею ввиду дословный код в Висуал Бейсике. Этот язак мне незнаком, к сожалению
...
Рейтинг: 0 / 0
Запоминание значений строк формы+СЕЙВ+отчет
    #32612059
Dmitrijs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Пусть имя таблицы, куда будут записываться значения полей будет называться MAIN
Список полей в форме:
Light dues
Pilot dues
Tonnage dues
Canal dues
Berthing charges Sanitary dues
Tugboat dues
Mooring dues
Fire watch
...
Рейтинг: 0 / 0
Запоминание значений строк формы+СЕЙВ+отчет
    #32612144
Dmitrijs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
refixВсе очень просто. Делаем в этой форме кнопку "Сохранить"
В ее обработчике события Click
пишем типовой код:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
 ' формируем команду вставки
 


    Dim cmd  as string
    cmd = "INSERT INTO <тут имя таблицы куда сохранять> " & _
    " (<писок полей  аблицы>) VALUES (" & _
    CStr(ПолеФормы_1) & ", " & .... CStr(ПолеФормы_N) & ")"

 ' выполняем команду
 

    Call CurrentDb.Execute(cmd)  ' для mdb
 

    Call CurrentProject.Connection.Execute(cmd)  ' для adp
 


rEFIX, ТЫ почему замолчал? Гео, может ты подскажешь?
...
Рейтинг: 0 / 0
Запоминание значений строк формы+СЕЙВ+отчет
    #32612164
Фотография Daf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2 Dmitrijs.
Ты можешь построить при помощи мастера запрос на добавление?
...
Рейтинг: 0 / 0
Запоминание значений строк формы+СЕЙВ+отчет
    #32612167
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
Dim cmd  as string
    cmd = "INSERT INTO main " & _
    " (pole1,pole2,...) VALUES (" & _
    CStr([Light dues]) & ", " & .... CStr([Fire watch]) & ")"
 ' выполняем команду
 
Call CurrentDb.Execute(cmd) ' для mdb
Написали ж уже...
+ http://www.sql.ru/faq/faq_topic.aspx?fid=157
...
Рейтинг: 0 / 0
Запоминание значений строк формы+СЕЙВ+отчет
    #32612169
Dmitrijs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Честно?....нет.....
...
Рейтинг: 0 / 0
Запоминание значений строк формы+СЕЙВ+отчет
    #32612212
Фотография Daf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Тогда ну уж очень тяжело тебе объяснить, как это сделать... Понимаешь, нужна хоть какая-нибудь база знаний...
...
Рейтинг: 0 / 0
Запоминание значений строк формы+СЕЙВ+отчет
    #32612303
Dmitrijs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
DafТогда ну уж очень тяжело тебе объяснить, как это сделать... Понимаешь, нужна хоть какая-нибудь база знаний...

Подожди, я программирую ща в бейсике, напиши плиз побольше записей в эту строку, а то я не могу разобраться с кавычками и запятыми
CStr([Light dues]) & ", " & .... CStr([Fire watch]) & ")"

ПС. А зачем запрос на добавление? Я ведь без него обойдусь по-ходу...ответь плиз
...
Рейтинг: 0 / 0
Запоминание значений строк формы+СЕЙВ+отчет
    #32612315
Dmitrijs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Напиши стоку с тремя-четырмя значениями, ок?
Точки - это так надо, или спонтом это для меня значить должно "и т.д."?
...
Рейтинг: 0 / 0
Запоминание значений строк формы+СЕЙВ+отчет
    #32612331
Dmitrijs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вобщем,если несложно, испрвь, как нужно.
Все названия полуй совпадают по названию!
Private Sub Command169_Click()
Dim cmd As String
cmd = "INSERT INTO DUES TABLE " & _
" (LIGHT DUES,PILOT DUES IN,PILOT DUES OUT,TOTAL PILOT DUES,TONNAGE DUES IN,TONNAGE DUES OUT,TOTAL TONNAGE DUES,CANAL DUES,BERTHING CHARGES,SANITARY DUES,TUGBOAT DUES IN,TUGBOAT DUES OUT,TOTAL TUGBOAT DUES,MOORING DUES IN,MOORING DUES OUT,TOTAL MOORING DUES,FIRE WATCH) VALUES "(" & _
CStr([Light dues]) & ", " & .... CStr([Fire watch]) & ")"

Call CurrentDb.Execute(cmd)

End Sub
...
Рейтинг: 0 / 0
Запоминание значений строк формы+СЕЙВ+отчет
    #32612334
Гео
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
предположим, что поля имеют следующие типы:

Light dues - строка
Pilot dues - строка
Tonnage dues - число
Canal dues - число
Berthing charges - дата
Tugboat dues - дата

Тогда
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
cmd = "INSERT INTO [DUES TABLE] " & _
    " ([LIGHT DUES],[PILOT DUES],...) VALUES (" & _
    "'" & [Light dues] & "', " & _
    "'" & [Pilot dues] & "', " & _
    cstr([Tonnage dues]) & ", " & _
    cstr([Canal dues]) & ", " & _
    format([Berthing charges],"mm-dd-yyyy") & ", " & _
    format([Tugboat dues],"mm-dd-yyyy") & ", " & _
    .... & ")"

....= и т.д.
...
Рейтинг: 0 / 0
Запоминание значений строк формы+СЕЙВ+отчет
    #32612354
Dmitrijs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Там везде числа!
...
Рейтинг: 0 / 0
Запоминание значений строк формы+СЕЙВ+отчет
    #32612362
Dmitrijs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
То бишь, пишем cstr([Tonnage dues]) & ", " & _
да?
...
Рейтинг: 0 / 0
Запоминание значений строк формы+СЕЙВ+отчет
    #32612365
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
значит везде пиши, как в варианте с числом. Загляни в FAQ. Там написано, как составляется запрос. Загляни в F1. Там все написано.
...
Рейтинг: 0 / 0
Запоминание значений строк формы+СЕЙВ+отчет
    #32612427
Dmitrijs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вот на ON CLICK я написал в бейсике
Option Compare Database

Private Sub Command169_Click()
Dim cmd As String
cmd = "INSERT INTO DUES TABLE " & _
" ([LIGHT DUES],[PILOT DUES IN],[PILOT DUES OUT],[TOTAL PILOT DUES],[TONNAGE DUES IN],[TONNAGE DUES OUT],[TOTAL TONNAGE DUES],[CANAL DUES],[BERTHING CHARGES],[SANITARY DUES],[TUGBOAT DUES IN],[TUGBOAT DUES OUT],[TOTAL TUGBOAT DUES],[MOORING DUES IN],[MOORING DUES OUT],[TOTAL MOORING DUES],[FIRE WATCH]) VALUES "(" & _
cstr([LIGHT DUES]) & ", " & _
cstr([PILOT DUES IN]) & ", " & _
cstr([PILOT DUES OUT]) & ", " & _
cstr([TOTAL PILOT DUES]) & ", " & _
cstr([TONNAGE DUES IN]) & ", " & _
cstr([TONNAGE DUES OUT]) & ", " & _
cstr([TOTAL TONNAGE DUES]) & ", " & _
cstr([CANAL DUES]) & ", " & _
cstr([BERTHING CHARGES]) & ", " & _
cstr([SANITARY DUES]) & ", " & _
cstr([TUGBOAT DUES IN]) & ", " & _
cstr([TUGBOAT DUES OUT]) & ", " & _
cstr([TOTAL TUGBOAT DUES]) & ", " & _
cstr([MOORING DUES IN]) & ", " & _
cstr([MOORING DUES OUT]) & ", " & _
cstr([TOTAL MOORING DUES]) & ", " & _
cstr([FIRE WATCH]) & ", " & _

Call CurrentDb.Execute(cmd)

End Sub

Но кнопка не работает.
Какой запрос нужен еще?
...
Рейтинг: 0 / 0
Запоминание значений строк формы+СЕЙВ+отчет
    #32612432
Dmitrijs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Пишет при нажатии кнопки типа конекшен лост........
...
Рейтинг: 0 / 0
Запоминание значений строк формы+СЕЙВ+отчет
    #32612486
Фотография Daf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Попробуй так:
Код: plaintext
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.
Private Sub Command169_Click()
Dim cmd As String
cmd = "INSERT INTO DUES TABLE " & _
" ([LIGHT DUES],[PILOT DUES IN],[PILOT DUES OUT],[TOTAL PILOT DUES],[TONNAGE DUES IN],[TONNAGE DUES OUT],[TOTAL TONNAGE DUES],[CANAL DUES],[BERTHING CHARGES],[SANITARY DUES],[TUGBOAT DUES IN],[TUGBOAT DUES OUT],[TOTAL TUGBOAT DUES],[MOORING DUES IN],[MOORING DUES OUT],[TOTAL MOORING DUES],[FIRE WATCH]) VALUES "(" & _
cstr([LIGHT DUES]) & ", " & _
cstr([PILOT DUES IN]) & ", " & _
cstr([PILOT DUES OUT]) & ", " & _
cstr([TOTAL PILOT DUES]) & ", " & _
cstr([TONNAGE DUES IN]) & ", " & _
cstr([TONNAGE DUES OUT]) & ", " & _
cstr([TOTAL TONNAGE DUES]) & ", " & _
cstr([CANAL DUES]) & ", " & _
cstr([BERTHING CHARGES]) & ", " & _
cstr([SANITARY DUES]) & ", " & _
cstr([TUGBOAT DUES IN]) & ", " & _
cstr([TUGBOAT DUES OUT]) & ", " & _
cstr([TOTAL TUGBOAT DUES]) & ", " & _
cstr([MOORING DUES IN]) & ", " & _
cstr([MOORING DUES OUT]) & ", " & _
cstr([TOTAL MOORING DUES]) & ", " & _
cstr([FIRE WATCH]) & ", " & _

DoCmd.RunSQL (cmd)

End Sub
...
Рейтинг: 0 / 0
Запоминание значений строк формы+СЕЙВ+отчет
    #32612523
Dmitrijs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
слухай, а могу ли я сделать ту же самую операцию при том условии, что эта кнопка будет находиться в другой форме? В этой форме будет, допустим, одна кнопка..
...
Рейтинг: 0 / 0
Запоминание значений строк формы+СЕЙВ+отчет
    #32612555
Фотография Daf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А почему и нет? Попробуй....
...
Рейтинг: 0 / 0
Запоминание значений строк формы+СЕЙВ+отчет
    #32612578
Dmitrijs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
DafА почему и нет? Попробуй....
То есть неважно, будет запись со значением находиься в данной форме или нет, да? Акцесс ее найдет автоматически в другой форме по названию....я правильно понимаю?
...
Рейтинг: 0 / 0
25 сообщений из 45, страница 1 из 2
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Запоминание значений строк формы+СЕЙВ+отчет
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]