Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Запоминание значений строк формы+СЕЙВ+отчет / 25 сообщений из 45, страница 1 из 2
20.07.2004, 10:41:27
    #32611892
Dmitrijs
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запоминание значений строк формы+СЕЙВ+отчет
Есть форма.
В ней строки, которые не связанны с таблицами.
Нужно сделать так, чтобы эти значения записывались в отдельную таблицу, а из таблицы делался бы отчет.
Знаю, что на форме нужно сделать кнопку.
Подскажите подробнее, как замутить все это.
Задавайте вопросы, если я непонятно описал проблему.
...
Рейтинг: 0 / 0
20.07.2004, 11:13:01
    #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
20.07.2004, 11:13:47
    #32611989
Geo
Geo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запоминание значений строк формы+СЕЙВ+отчет
авторЗнаю, что на форме нужно сделать кнопку.

Правильный подход!
Ну ладно, сорри :)
авторВ ней строки, которые не связанны с таблицами.
В смысле? Строки - это поля? Или все-таки записи? Если записи, то с кем же они связаны? Если поля, то почему бы не связать их с полями соответствующей таблицы?
...
Рейтинг: 0 / 0
20.07.2004, 11:16:42
    #32612000
Daf
Daf
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запоминание значений строк формы+СЕЙВ+отчет
Geo, это продолжение вот этого топика Вот
...
Рейтинг: 0 / 0
20.07.2004, 11:23:33
    #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
20.07.2004, 11:26:03
    #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
20.07.2004, 11:35:31
    #32612059
Dmitrijs
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запоминание значений строк формы+СЕЙВ+отчет
Пусть имя таблицы, куда будут записываться значения полей будет называться MAIN
Список полей в форме:
Light dues
Pilot dues
Tonnage dues
Canal dues
Berthing charges Sanitary dues
Tugboat dues
Mooring dues
Fire watch
...
Рейтинг: 0 / 0
20.07.2004, 12:01:30
    #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
20.07.2004, 12:06:47
    #32612164
Daf
Daf
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запоминание значений строк формы+СЕЙВ+отчет
2 Dmitrijs.
Ты можешь построить при помощи мастера запрос на добавление?
...
Рейтинг: 0 / 0
20.07.2004, 12:07:11
    #32612167
Geo
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
20.07.2004, 12:07:39
    #32612169
Dmitrijs
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запоминание значений строк формы+СЕЙВ+отчет
Честно?....нет.....
...
Рейтинг: 0 / 0
20.07.2004, 12:17:28
    #32612212
Daf
Daf
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запоминание значений строк формы+СЕЙВ+отчет
Тогда ну уж очень тяжело тебе объяснить, как это сделать... Понимаешь, нужна хоть какая-нибудь база знаний...
...
Рейтинг: 0 / 0
20.07.2004, 12:43:35
    #32612303
Dmitrijs
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запоминание значений строк формы+СЕЙВ+отчет
DafТогда ну уж очень тяжело тебе объяснить, как это сделать... Понимаешь, нужна хоть какая-нибудь база знаний...

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

ПС. А зачем запрос на добавление? Я ведь без него обойдусь по-ходу...ответь плиз
...
Рейтинг: 0 / 0
20.07.2004, 12:45:53
    #32612315
Dmitrijs
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запоминание значений строк формы+СЕЙВ+отчет
Напиши стоку с тремя-четырмя значениями, ок?
Точки - это так надо, или спонтом это для меня значить должно "и т.д."?
...
Рейтинг: 0 / 0
20.07.2004, 12:48:48
    #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
20.07.2004, 12:49:26
    #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
20.07.2004, 12:54:14
    #32612354
Dmitrijs
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запоминание значений строк формы+СЕЙВ+отчет
Там везде числа!
...
Рейтинг: 0 / 0
20.07.2004, 12:55:25
    #32612362
Dmitrijs
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запоминание значений строк формы+СЕЙВ+отчет
То бишь, пишем cstr([Tonnage dues]) & ", " & _
да?
...
Рейтинг: 0 / 0
20.07.2004, 12:56:01
    #32612365
Geo
Geo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запоминание значений строк формы+СЕЙВ+отчет
значит везде пиши, как в варианте с числом. Загляни в FAQ. Там написано, как составляется запрос. Загляни в F1. Там все написано.
...
Рейтинг: 0 / 0
20.07.2004, 13:10:09
    #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
20.07.2004, 13:11:25
    #32612432
Dmitrijs
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запоминание значений строк формы+СЕЙВ+отчет
Пишет при нажатии кнопки типа конекшен лост........
...
Рейтинг: 0 / 0
20.07.2004, 13:28:04
    #32612486
Daf
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
20.07.2004, 13:39:42
    #32612523
Dmitrijs
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запоминание значений строк формы+СЕЙВ+отчет
слухай, а могу ли я сделать ту же самую операцию при том условии, что эта кнопка будет находиться в другой форме? В этой форме будет, допустим, одна кнопка..
...
Рейтинг: 0 / 0
20.07.2004, 13:49:23
    #32612555
Daf
Daf
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запоминание значений строк формы+СЕЙВ+отчет
А почему и нет? Попробуй....
...
Рейтинг: 0 / 0
20.07.2004, 13:52:39
    #32612578
Dmitrijs
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запоминание значений строк формы+СЕЙВ+отчет
DafА почему и нет? Попробуй....
То есть неважно, будет запись со значением находиься в данной форме или нет, да? Акцесс ее найдет автоматически в другой форме по названию....я правильно понимаю?
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Запоминание значений строк формы+СЕЙВ+отчет / 25 сообщений из 45, страница 1 из 2
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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