Всем доброго дня!
Можете подсказать чайнику, в чем причина.

Установил Microsoft Office Access 2007, открываю форму базы которая создавалась в Access 2000,
и ничего не ищет.
Ввожу номер в окно "Поиска", нажимаю "Enter" и ничего не происходит.

База простая, форма с поиском по номеру телефону из 6 таблиц.
Раньше, если вводимый номер совпадал с номером из любой таблицы, он появлялся в окне, на форме поиска.
Макрос VBA не менял.

Потом стала выскакивать "Оповещение системы безопасности" "включить это содержимое".
Когда поставил галочку, в закладке "Оповещение системы безопасности" "включить это содержимое"
Выскакивает ошибка Run-time error 2137 - в данный момент поиск и замена невозможны.

А теперь, после загрузки формы поиска, и "Оповещение системы безопасности" не "выскакивает".
Только одна форма поиска

===


Код Visual Basic

199
100
101


Private Sub Form_GotFocus()
Me![Поле0].SetFocus
End Sub

Private Sub Кнопка20_Click()
On Error GoTo Err_Кнопка20_Click

Dim stDocName As String
stDocName = "Сотрудники"

DoCmd.OpenForm stDocName
Forms![Сотрудники]![Телефон].SetFocus
DoCmd.FindRecord (Поле8), acAnywhere

Exit_Кнопка20_Click:
Exit Sub

Err_Кнопка20_Click:
MsgBox Err.Description
Resume Exit_Кнопка20_Click

End Sub

Private Sub Кнопка21_Click()
On Error GoTo Err_Кнопка21_Click

Dim stDocName As String
stDocName = "Заказчики"

DoCmd.OpenForm stDocName
Forms![Заказчики]![Телефон].SetFocus
DoCmd.FindRecord (Поле8), acAnywhere

Exit_Кнопка21_Click:
Exit Sub

Err_Кнопка21_Click:
MsgBox Err.Description
Resume Exit_Кнопка21_Click

End Sub

Private Sub Кнопка22_Click()
On Error GoTo Err_Кнопка22_Click

Dim stDocName As String
stDocName = "Поставщики"

DoCmd.OpenForm stDocName
Forms![Поставщики]![Телефон].SetFocus
DoCmd.FindRecord (Поле8), acAnywhere

Exit_Кнопка22_Click:
Exit Sub

Err_Кнопка22_Click:
MsgBox Err.Description
Resume Exit_Кнопка22_Click


End Sub


End Sub
Private Sub Поле8_AfterUpdate()
Dim i, j, k As Integer
k = 0

DoCmd.OpenForm "Сотрудники"
Forms![Сотрудники]![Телефон].SetFocus
DoCmd.FindRecord (Поле8), acAnywhere
If InStr(Forms![Сотрудники]![Телефон], Me![Поле8]) > 0 Then k = k + 1
Me![Поле0] = Mid(Forms![Сотрудники]![Телефон], 1, 4) + "-" + Mid(Forms![Сотрудники]![Телефон], 5, 2) + "-" + Mid(Forms![Сотрудники]![Телефон], 7, 2)
DoCmd.Close acForm, "Сотрудники"

DoCmd.OpenForm "Заказчики"
Forms![Заказчики]![Телефон].SetFocus
DoCmd.FindRecord (Поле8), acAnywhere
Me![Поле2] = Mid(Forms![Заказчики]![Телефон], 1, 3) + "-" + Mid(Forms![Заказчики]![Телефон], 4, 2) + "-" + Mid(Forms![Заказчики]![Телефон], 6, 2)
If InStr(Forms![Заказчики]![Телефон], Me![Поле8]) > 0 Then k = k + 1
DoCmd.Close acForm, "Заказчики"
If Me![Поле2] = Me![Поле8] Then
End If

DoCmd.OpenForm "Поставщики"
Forms![Поставщики]![Телефон].SetFocus
DoCmd.FindRecord (Поле8), acAnywhere
Me![Поле4] = Mid(Forms![Поставщики]![Телефон], 1, 3) + "-" + Mid(Forms![Поставщики]![Телефон], 4, 2) + "-" + Mid(Forms![Поставщики]![Телефон], 6, 2)
If InStr(Forms![Поставщики]![Телефон], Me![Поле8]) > 0 Then k = k + 1
DoCmd.Close acForm, "Поставщики"
If Me![Поле4] = Me![Поле8] Then
End If


For j = 1 To k
For i = 1 To 350
DoCmd.Beep
Next
Next

End Sub

http://www.sql.ru/forum/1104816/ne-rabotaet-forma-poiska-v-access-2007-sozdavalas-v-access-2000