VPF::архивация данных - Форум программистов

mari5

Дата 11.4.2007, 09:32 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 31
Регистрация: 26.8.2005

Репутация: нет
Всего: нет

у меня таблица абонентов, хочу сделать архив, таким образом, что бы нажатием на кнопки, запись переходила бы в архив - таблицу.
етот код не работает, где ошибка? прошу....

Код


Private Sub Toggle8_Click()
Dim sql As String
Dim sq As String
Me!ID.Requery

sql = "INSERT INTO archive_abonent ( ID, name, surname, telephone ) " & _
          "SELECT abonent.ID, abonent.name, abonent.surname, abonent.telephone " & _
          "FROM abonent WHERE (((abonent.ID) = [me]![ID]))"

    DoCmd.RunSQL sql
sq = "Delete abonent.ID, abonent.name, abonent.surname, abonent.telephone " & _
          "FROM abonent" & _
          "WHERE (((abonent.ID)=[me]![ID]))"

    DoCmd.RunSQL sq
End Sub

Rodman

Дата 11.4.2007, 09:42 (ссылка)

(нет голосов)

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 1
Всего: 122

Цитата(mari5 @ 11.4.2007, 08:32

)

етот код не работает, где ошибка?

что то выдает или просто проходит в пустую?

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

Akina

Дата 11.4.2007, 11:26 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 30
Всего: 454

Зачем делать отдельную таблицу для архива? Введите просто поле Archived As Iinteger Default 0 Indiced и для вывода записи в архив ставьте там 1.

Соответственно все запросы надставляете дополнительным фильтром "... AND (Archived <> " & str(ViewType) & ")". При этом Вы сможете. не меняя текстов запросов, просто изменяя значение одной переменной ViewType, переключаться с работы с основной БД (ViewType=1) на работу с архивом (ViewType=0) или со всеми записями (ViewType=2).

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

mari5

Дата 11.4.2007, 18:11 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 31
Регистрация: 26.8.2005

Репутация: нет
Всего: нет

Акина,этот подход для меня не понятно, можеш послать пример...

Akina

Дата 11.4.2007, 18:36 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 30
Всего: 454

Пример.

Было:

Структура
ID
Name
xDate

Запрос
"Select * From MyTable Where (xDate < (Now() - 30));"

Стало:
Структура
ID
Name
xDate
Archived

Запрос
"Select * From MyTable Where (xDate < (Now() - 30)) AND (Archived <> " & str(ViewType) & ");"

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| MS Access \| Следующая тема »