Поиск по списку (не поле со списком)

@андрей 01 · Регистрация: 10.08.2011

Author24 — интернет-сервис помощи студентам

Привет народ. У меня простой для access знающего человека вопрос.Е сть Форма отабражающая запись таблицы, на форме есть список который отображает все записи той же таблицы, как при клике на запись в списке найти эту запись для формы или другими словами сделать эту запись текущей для формы?

@andrey_ba · 17.12.2012, 01:42

Visual Basic

Private Sub Ваш_Список_AfterUpdate()
 
    Dim rs As Object
 
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[id] = " & Str(Nz(Me![Ваш_Список], 0))
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

iifat · 17.12.2012, 02:33

Сообщение от andrey_ba

Visual Basic

1 2	Dim rs As Object Set rs = Me.Recordset.Clone

Лучше

Visual Basic

1 2	Dim rs As Recordset Set rs = Me.RecordsetClone

по крайней мере, в 2002

@Михайло · 18.12.2012, 00:34

Используйте DoCmd.FindRecord

mobile · 18.12.2012, 04:32

Сообщение от Михайло

Используйте DoCmd.FindRecord

Не самый лучший совет. Макрокоманды в форме это лишний слой между данными (рекордсет формы) и их визуальным отображением. Макрокоманды не учитывают всех свойств данных, в частности индексов. И лучше их не использовать вообще. Фактически нет серьезных аргументов за использование макрокоманд вместо свойств и методов рекордсета.

@андрей 01 · 18.12.2012, 10:41 **[ТС]**

Ладно сейчас по смотрю чё к чему

@андрей 01 · 18.12.2012, 12:00 **[ТС]**

ругается мол ядро бд не распознаёт id если применить выше описаный код. вообщем там надо на форме товарыР сделать так что бы данные в полях формы менялись при клике по сторке списка простите если повторяюсь вот бд

iifat · 18.12.2012, 13:48

Ты, часом, не вставил код как есть? Это примерный прототип (а что ещё могло быть без конкретной базы?), условие в FindFirst записывается по правилам where! (Базу твою не смотрел, 2010 офиса не имею)

Добавлено через 3 минуты

Сообщение от andrey_ba

Visual Basic

1	If Not rs.EOF Then Me.Bookmark = rs.Bookmark

И, кстати говоря, правильнее, наверное, не .eof, а .nomatch

@andrey_ba · 18.12.2012, 14:28

Visual Basic

Private Sub Список21_Click()
Dim rs As Recordset
 
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[Код_товара] = " & Str(Nz(Me!Список21, 0))
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

@minob · 18.12.2012, 14:46

Сообщение от iifat

И, кстати говоря, правильнее, наверное, не .eof, а .nomatch

+1

Сообщение от Справка

Методы FindFirst, FindLast, FindNext, FindPrevious
...
Если запись, удовлетворяющая заданным условиям, не обнаружена, то состояние указателя текущей записи становится неопределенным, и свойству NoMatch присваивается значение True.

Я в последнее время предпочитаю такой поиск (весь код в одной строке)

Visual Basic

1	Me.Recordset.FindFirst "Код_товара=" & Nz(Me!Список21, 0)

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

@андрей 01 · 18.12.2012, 21:01 **[ТС]**

minob спасибо именно то, что надо. Вариацию кода от andrey_ba не проверял. Всем спасибо

@андрей 01 0 / 0 / 0 Регистрация: 10.08.2011 Сообщений: 31
		1
	Поиск по списку (не поле со списком) 17.12.2012, 00:07. Показов 1863. Ответов 10 Метки нет (Все метки) Привет народ. У меня простой для access знающего человека вопрос.Е сть Форма отабражающая запись таблицы, на форме есть список который отображает все записи той же таблицы, как при клике на запись в списке найти эту запись для формы или другими словами сделать эту запись текущей для формы? 0

@Михайло 118 / 118 / 10 Регистрация: 12.05.2010 Сообщений: 1,207
	18.12.2012, 00:34	4
	Используйте DoCmd.FindRecord 1

mobile 26806 / 14485 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	18.12.2012, 04:32	5
	Сообщение от Михайло Используйте DoCmd.FindRecord Не самый лучший совет. Макрокоманды в форме это лишний слой между данными (рекордсет формы) и их визуальным отображением. Макрокоманды не учитывают всех свойств данных, в частности индексов. И лучше их не использовать вообще. Фактически нет серьезных аргументов за использование макрокоманд вместо свойств и методов рекордсета. 1

@андрей 01 0 / 0 / 0 Регистрация: 10.08.2011 Сообщений: 31
	18.12.2012, 10:41 [ТС]	6
	Ладно сейчас по смотрю чё к чему 0

@андрей 01 0 / 0 / 0 Регистрация: 10.08.2011 Сообщений: 31
	18.12.2012, 21:01 [ТС]	11
	minob спасибо именно то, что надо. Вариацию кода от andrey_ba не проверял. Всем спасибо 0