Всем кто сюда заглянет желаю хорошего настроения и доброго времени суток!
Есть такой кусок кода :

Private Sub НазваниеКомпании_AfterUpdate() Dim rs As DAO.Recordset Dim db As DAO.Database DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70 ' обновление формы Set db = CurrentDb() Set rs = db.OpenRecordset("Клиенты") Set rs = Me.RecordsetClone rs.FindFirst "[id] = " & Me![НазваниеКомпании]   ругается на id, что нет такого поля... ((, а оно точно есть в таблице "клиенты" Me.Bookmark = Me.RecordsetClone.Bookmark End Sub

что может быть не так ?

что может быть не так ?

Всё не так!

Set rs = db.OpenRecordset("Клиенты")
Здесь вы открываете rs = на таблице "Клиенты"

Set rs = Me.RecordsetClone
И тут же заменяете данные записями из источника формы, хотя по фразе "а оно точно
есть в таблице клиенты" - всё-таки в "клиенты". Видимо эта строчка лишняя.

rs.FindFirst "[id] = " & Me![НазваниеКомпании] ругается на id, что нет такого поля...
Если предыдущую строчку отмените, то, видимо, поле [id] будет, но какой тип поля Me![НазваниеКомпании]? Если текстовый, то строка критерия - неправильная, особенно, если [id] - числовое.

Me.Bookmark = Me.RecordsetClone.Bookmark
Какой смысл в этой строчке? Вы ищете запись в другом наборе, не имеющем отношения к источнику формы.

Объясните смысл вашей задачи.
Me![НазваниеКомпании] - поле или поле со списком?

И еще:
1. Если таблица "Клиенты" - родная (не прилинкованная), то Set rs = db.OpenRecordset("Клиенты") откроет Recordset, не поддерживающий методы Find. Нужно явно указывать его тип.
2. После выполнения поиска всегда проверяйте св-во NoMatch.
3. Вместо DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70 можно с успехом применить Me.Refresh или Me.Dirty = False.

Нет я все равно не понимаю почему запись не становится текущей... Опять та же ошибка в строчке с id ( ругается на id)

Private Sub НазваниеКомпании_AfterUpdate()     Dim rs As Object     Dim strSearchName As String   '  On Error Resume Next     DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70 ' îáíîâëåíèå ôîðìû     Set rs = Me.RecordsetClone     strSearchName = Me!НазваниеКомпании     rs.FindFirst "[id] = " & strSearchName     If rs.NoMatch Then             MsgBox "Record not found"         Else             Me.Bookmark = rs.Bookmark                     End If     rs.Close End Sub

Скажите опять что все неправильно....

Me!НазваниеКомпании - текст или число?
[id] - текст или число?
Как ругается?

Вопрос, как поле id (число) может быть равно НазваниеКомпании (текст)
что собираетесь найти?
поле ID присутствует в источнике данных формы?

все зависит от того что и по каким данным вы хотите найти
Me.НазваниеКомпании - это что? это поле связанное с источником данных формы ил свободное поле для поиска?

Так не делается, чтобы один элемент управления, привязанный к данным, был и для ввода данных и для поиска. Для поиска используйте не привязанный элемент управления. По поиску на этом сайте и форуме найдутся примеры. Воспользуйтесь поиском :-)

у меня кстати так и было сделано до того момента как я выложил этот кусок кода , только при вводе в поле символов помимо перескока на текущую запись происходило дублирование записи ... поэтому этот способ не устривает

Private Sub Название компании_AfterUpdate()     Dim rs As Object     Dim strSearchName As String   ' On Error Resume Next     DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70 '      Set rs = Me.RecordsetClone     strSearchName = Me!НазваниеКомпании     rs.FindFirst = "[НазваниеКомпании] = " " " & strSearchName & " " " "     If rs.NoMatch Then             MsgBox "Record not found"         Else             Me.Bookmark = rs.Bookmark         End If     rs.Close End Sub

Допустим пишу в поле "слон", становится текущей записью, запись "Слон", но тот же "слон" создается как новая запись в таблице и из за этого получается куча слонов! Вот в чем проблема

Собственно тут масса примеров, когда через поле со списком для поиска добавляют инфу. И фильтрация и чего тут только нет. Используй готовые примеры.

DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

Это что значит? Сто лет таким не пользовался и забыл уже :-)
Случайно, не переход на новую запись?
Если да, тогда не понятно, почему Вам не понятно, откуда взялся новый слон. Без перехода на новую запись, сначала бы изменялось название в текущей записи! Понял, почему это добавили! Да, уж, смешно :-)
Или я не прав?

Спасибо, вы долго мучались ? щас попытаюсь адаптировать к своему случаю

Всем большое спасибо за ответы, мне было очень приятно Ваше внимание к своей скромной темке, буду дальше разбирать в чем у мя проблема ! Грациес !