ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Добавление в таблицу
10 сообщений из 10, страница 1 из 1
Добавление в таблицу
    #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, 19:30
| Ответить | Цитировать | Написать  
Добавление в таблицу
    #32476281
Просто Лось
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Просто Лось
Участник
авторNewEnterDate - сюда, на однин рекорд ниже, должна копироваться дата из поля EnterDate
А куда должна деваться NewEnterDate?
...
Рейтинг: 0 / 0
09.04.2004, 23:28
| Ответить | Цитировать | Написать  
Добавление в таблицу
    #32476300
Просто Лось
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Просто Лось
Участник
Если я правильно понял, то:
s_GUID - порядковый номер (типа счетчик, и т. п.);
SUM - сумма (какая-то хрень, ну и хрен с ней);
EnterDate - now() или Date() - вводится автоматов при добавлении записи;
NewEnterDate - значение предыдущей (при сортировке по s_GUID) даты из EnterDate при довавлении новой записи?

Если я не прав поправте меня пожалуйста и уточните, допускается использование VBA или исключительно SQL???
...
Рейтинг: 0 / 0
10.04.2004, 00: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, 07:30
| Ответить | Цитировать | Написать  
Добавление в таблицу
    #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:46
| Ответить | Цитировать | Написать  
Добавление в таблицу
    #32476339
Alkush
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alkush
Гость
2 Просто Лось

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


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