Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Добавление в таблицу / 10 сообщений из 10, страница 1 из 1
09.04.2004, 19:30
    #32476160
Alkush
Alkush
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавление в таблицу
Я тут наваял, смеяться не нужно, признаюсь не пробовал, думаю не работает.
Код: plaintext
1.
2.
IF [SUM] >  0  Then
DoCom. Copy  "EnterDate"  to  "NewEnterDate" 
Where  "s_GUID"  -  1
Но нужно что то в этом роде; чтобы копировала новую дату в поле предыдущего рекорда
Таблица состоит из следующих полей:
s_GUID - порядковый номер
SUM - сумма (Цифры)
EnterDate - день ввода суммы ( Авто )
NewEnterDate - сюда, на однин рекорд ниже, должна копироваться дата из поля EnterDate
Все тоже самое есть и в форме, только доступ для внесения данных имеет поле "SUM" все остальное вписывается автоматически. :-)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.04.2004, 23:28
    #32476281
Просто Лось
Просто Лось
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавление в таблицу
авторNewEnterDate - сюда, на однин рекорд ниже, должна копироваться дата из поля EnterDate
А куда должна деваться NewEnterDate?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.04.2004, 00:30
    #32476300
Просто Лось
Просто Лось
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавление в таблицу
Если я правильно понял, то:
s_GUID - порядковый номер (типа счетчик, и т. п.);
SUM - сумма (какая-то хрень, ну и хрен с ней);
EnterDate - now() или Date() - вводится автоматов при добавлении записи;
NewEnterDate - значение предыдущей (при сортировке по s_GUID) даты из EnterDate при довавлении новой записи?

Если я не прав поправте меня пожалуйста и уточните, допускается использование VBA или исключительно SQL???
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.04.2004, 07:30
    #32476328
Deminik
Deminik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавление в таблицу
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Private Sub Кнопка16_Click()
   Dim cnn As New ADODB.Connection
   Dim rst As New ADODB.Recordset
   Dim dtMem As Date
   Set cnn = CurrentProject.Connection
   rst.Open Me.RecordSource, cnn, adOpenKeyset, adLockPessimistic
   dtMem = Me!EnterDate
   With rst
   .AbsolutePosition = Me.CurrentRecord +  1 
   !NewEnterDate = dtMem
   .Update
   .close
   End With
   Me.Requery
End Sub


Допиши обработку ошибок (EOF...)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.04.2004, 08:46
    #32476337
Alkush
Alkush
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавление в таблицу
2 Deminik
Спасибо за скрипт, попробую его в работе.
2 Просто Лось
Отвечаю на Ваш вопрос
"NewEnterDate" это поле, в которое должна копироваться дата из поля "EnterDate" при введении новой "SUM" (но в предыдущий рекорд чем вышестоящий "EnterDate")
"NewEnterDate" я заполняю самостоятельно, открываю таблицу и вписываю дату
Чтобы избежать ручного введения даты в таблицу другими пользователями, которые не имеют доступа к таблицам, я хотел автоматизировать это.
Картина такая: при внесении новой "SUM" также заполняется поле "EnterDate", а поле "NewEnterDate" как в настоящем, так и в предыдущем рекорде, остается пустым. Мне нужно чтобы в предыдущий рекорд "NewEnterDate" копировалась дата из текущего "EnterDate" пример:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
s_GUID	SUM	EntryDate                NewEntryDate
 21 	 41 . 65 	 01 -Jun- 03   09 : 04 : 45             01 -Jul- 03   09 : 04 : 45 
 22 	 41 . 78 	 01 -Jul- 03   09 : 04 : 45              01 -Aug- 03   09 : 04 : 45 
 23 	 41 . 67 	 01 -Aug- 03   09 : 04 : 45             01 -Sep- 03   09 : 04 : 45 
 24 	 40 . 5 	 01 -Sep- 03   09 : 04 : 45             01 -Oct- 03   09 : 04 : 45 
 25 	 39 . 73 	 01 -Oct- 03   09 : 04 : 45             01 -Nov- 03   09 : 04 : 45 
 26 	 39 . 9 	 01 -Nov- 03   09 : 04 : 45             01 -Dec- 03   09 : 04 : 45 
 27 	 39 . 71 	 01 -Dec- 03   09 : 04 : 45             01 -Jan- 04   09 : 04 : 45 
 28 	 39 . 09 	 01 -Jan- 04   09 : 04 : 45              01 -Feb- 04   09 : 04 : 45 
 29 	 38 . 8 	 01 -Feb- 04   09 : 04 : 45             01 -Mar- 04   09 : 04 : 45 
 30 	 39 . 4 	 01 -Mar- 04   09 : 04 : 45             01 -Apr- 04   08 : 18 : 13 
 31 	 38 . 91 	 01 -Apr- 04   08 : 18 : 13

Получается как бы вилка для поля "SUM" это значит что сумма действительна с EnterDate = 01-Mar-04 09:04:45 по NewEnterDate = 01-Apr-04 08:18:13 и т.д.
Я пытался объяснить, что мне нужно, буду надеяться, что это мне удалось. Заранее спасибо за помощь.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.04.2004, 08:49
    #32476339
Alkush
Alkush
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавление в таблицу
2 Просто Лось

Да, забыл уточнить. Исключительно VBA
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.04.2004, 17:06
    #32476511
Alkush
Alkush
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавление в таблицу
Пожалуйста, ответьте можно ли решить выше описанную задачу, или этим даже не стоит заниматься?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.04.2004, 17:15
    #32476516
Владимир Саныч
Владимир СанычПривилегированный пользователь
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавление в таблицу
/topic/57710#408220\r
\r
Только вместо ActiveControl надо поставить настоящие имена полей.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.04.2004, 17:26
    #32476522
Deminik
Deminik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавление в таблицу
Мой вариант не пошел ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.04.2004, 19:08
    #32476559
Alkush
Alkush
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавление в таблицу
2 Deminik
DeminikМой вариант не пошел ?
Выдает ошибку
Но буду эксперементировать, спасибо за идею
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Добавление в таблицу / 10 сообщений из 10, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 552ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1675422]:
 0ms
get settings:
 8ms
get forum list:
 18ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 186ms
get topic data:
 12ms
get forum data:
 8ms
get page messages:
 63ms
get tp. blocked users:
 2ms
others: 247ms
total:  552ms
x
x
Закрыть


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