кнопка выбора записи из ленточной формы

[StrelokCU]

Помогите пожалуйста.
Создать кнопку в ленточной форме, создаваемой на запросе с параметром, напротив каждой записи была кнопка при нажатии на нее открывалось форма для работы с выбранной записью. Где то уже видел так там так показано
Private Sub Кнопка_Click()
On Error GoTo Err_Кнопка_Click
DoCmd.OpenForm "Edit", acNormal, , "[Id] =" &Me.Id, acFormEdit, acDialog
Exit_Кнопка_Click:
MsgBox Err.Description
End Sub
Но не получается пока и не знаю даже что делать

[Teslenko_EA]

Здравствуйте StrelokCU.
"..не получается пока.." - что не получается?
команда:
DoCmd.OpenForm "Edit", acNormal, , "[Id] =" & Me.Id, acFormEdit, acDialog
должна открывать форму ("Edit"), в режиме диалога (acDialog), для редактирования данных (acFormEdit) с установленным фильтром ("[Id] =" & Me.Id)
убедитесь что у источника данных открываемой формы существует поле Id и Ваша форма, из которой Вы открываете, так-же содержит контрол (поле) Id к которому команда обращается (.. & Me.Id..)
Евгений.

[StrelokCU]

Спасибо Евгений, попробовал добавить в таблицу и на форму поле Id, но происходит ошибка "Compile error: Method or data member not found
а если использовать вместо id поля поле "дата" где как раз и храниться дата которую выбирают кнопкой в формате 20.08.2010, но возникает ошибка "Число содержит синтаксическую ошибку в выражении запроса '[Дата]=20.08.201'."

[Teslenko_EA]

Здравствуйте StrelokCU.
"..попробовал добавить ..", ошибка "..Method or data member not found.." - значит все-же не добавил и пытался обратиться к несуществующему объекту.
"..если использовать вместо id поля поле "дата".." - поле ID предназначено для идентификации записи, т.е. его значения уникальны, если в Вашей таблице поле дата содержит только уникальные даты, использовать можно.
"Число содержит синтаксическую ошибку в выражении запроса '[Дата]=20.08.201'." - формат обращения к дате в условии отбора SQL запросов MS Access должен быть таким #m/d/yyyy#, применяется так "...[Дата]=#8/20/2010#....". Можно так же использовать функции VBA возвращающие значение даты:

Function vDate() As Date
    vDate = CDate("20.08.2010") '
    'vDate = CDate(Me.Кнопка0.Caption)
End Function

применяется так : '[Дата]=vDate()'

Для анализа конструкции БД и дополнительных рекомендаций, лучше один раз увидеть архив БД, а не сто раз "услышать" описание "проблем".

Евгений.

[StrelokCU]

Пожалуйста Евгений прикрепил архив своей базы данных. Только сильно не ругайте это мой первый опыт. Форма называется "ГрафикиПоМесяцам-работа"

[Teslenko_EA]

Здравствуйте StrelokCU.
подобный код откроет форму с "фильтром данных":

Private Sub Кнопка11_Click()
On Error GoTo 9
Dim v
v = Me.Дата
If IsDate(v) Then
    v = "[Дата] =#" + (Month(v) & "/" & Day(v) & "/" & Year(v)) + "#"
    DoCmd.OpenForm "Edit", acNormal, , v, acFormEdit, acDialog
End If
Exit Sub
9
MsgBox Err.Description
End Sub

но предварительно проверьте установленные ссылки на библиотеки - в редакторе VBA меню Tools / References... сообщение MISSING указывает на потерю связи проекта с библиотекой, отключите её.
Евгений.

P.S. на будущее выкладывая на странице форума :
код заключайте в теги [соde]...[/соde],
архив с образцом БД (желательно в формате А2003) не должен быть более 200 Кб, избавляйте БД от избыточный данных, "картинок", объектов OLE и сжимайте средствами MS Access перед архивированием

[StrelokCU]

Спасибо Евгений работает!!!!!!!!Понимаю, что для Вас это просто работа, но для меня это чудо)))).
на будущее еще раз спасибо учту...