Реферат Створення бази даних магазину мобільних телефонів

() Error GoTo Архівація_Продажі_арх_Err

DoCmd.OpenQuery "архівація_продажі", acViewNormal, acEdit

DoCmd.OpenQuery "удаленіе_продажі", acViewNormal, acEdit

Архівація_Продажі_арх_Exit:

Exit Function

Архівація_Продажі_арх_Err:

MsgBox Error $

Resume Архивация_Продажи_арх_ExitFunction

Архівація_Поставкі_арх () Error GoTo Архівація_Поставкі_арх_Err

DoCmd.OpenQuery "архівація_поставкі", acViewNormal, acEdit

DoCmd.OpenQuery "удаленіе_поставкі", acViewNormal, acEdit

Архівація_Поставкі_арх_Exit:

Exit Function

Архівація_Поставкі_арх_Err:

MsgBox Error $

Resume Архивация_Поставки_арх_ExitFunction

В.5 Макрос відновлення

Восстановление_Телефоны_вост () Error GoTo Восстановление_Телефоны_вост_Err

DoCmd.OpenQuery "вост_телефони", acViewNormal, acEdit

DoCmd.OpenQuery "арх_удаленіе_телефони", acViewNormal, acEdit

Восстановление_Телефоны_вост_Exit:

Exit Function

Восстановление_Телефоны_вост_Err:

MsgBox Error $

Resume Восстановление_Телефоны_вост_ExitFunction

Восстановление_Клиенты_вост () Error GoTo Восстановление_Клиенты_вост_Err

DoCmd.OpenQuery "вост_кліенти", acViewNormal, acEdit

DoCmd.OpenQuery "арх_удаленіе_кліенти", acViewNormal, acEdit

Восстановление_Клиенты_вост_Exit:

Exit Function

Восстановление_Клиенты_вост_Err:

MsgBox Error $

Resume Восстановление_Клиенты_вост_Exit

Function

Восстановление_Продажи_вост () Error GoTo Восстановление_Продажи_вост_Err

DoCmd.OpenQuery" вост_продажі ", acViewNormal, acEdit

DoCmd.OpenQuery "арх_удаленіе_продажі", acViewNormal, acEdit

Восстановление_Продажи_вост_Exit:

Exit Function

Восстановление_Продажи_вост_Err:

MsgBox Error $

Resume Восстановление_Продажи_вост_ExitFunction

Восстановление_Поставки_вост () Error GoTo Восстановление_Поставки_вост_Err

DoCmd.OpenQuery "вост_поставкі", acViewNormal, acEdit

DoCmd.OpenQuery "арх_удаленіе_поставкі", acViewNormal, acEdit

Восстановление_Поставки_вост_Exit:

...