Переход к заявленной ячейке

[Summer.05]

Есть Adodc1 & Datagrid. Есть колонка Name
Есть такой код, который не работает. А надо бы...

Private Sub Command1_Click()
Dim Fam As String

Fam = InputBox("Ведите фамилию" + vbCrLf, "Поиск", "")
Text1.Text = Fam
'ищем в рекордсете объявленную запись по Fam
While Not Adodc1.Recordset.EOF
If Adodc1.Recordset!Name = Fam Then
DataGrid1.SelBookmarks.Add Adodc1.Recordset.Bookmark
GoTo L_Exit
End If
Adodc1.Recordset.MoveNext
Wend
L_Exit: Exit Sub
L_Err: MsgBox Err.Description & " (" & Err.Number & ")", vbExclamation, App.Title: GoTo L_Exit

End Sub

Признателен за будущий совет!
Спасибо!

[GSerg]

В связи с тем, что данный вопрос сильно напоминает http://bbs.vbstreets.ru/viewtopic.php?t=27285, автору рекомендуется уточнить, в чём именно отличия - или получить строгое замечание за дубль.

[Summer.05]

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

Для меня это совершенно разные вещи.

В общем, пока проблема не решается, приходится биться головой о стенку. Иногда - повторно...

Если и нарушил что-то, то не глупости из-за, а познания ради.
В любом случае - приношу извинения!

[Antonariy]

Код: Выделить всё

While Not Adodc1.Recordset.EOF
    If Adodc1.Recordset!Name = Fam Then
        DataGrid1.SelBookmarks.Add Adodc1.Recordset.Bookmark
        GoTo L_Exit
    End If
    Adodc1.Recordset.MoveNext
Wend

Во-первых лучше так:

Код: Выделить всё

Do While Not Adodc1.Recordset.EOF
    If Adodc1.Recordset!Name = Fam Then
        DataGrid1.SelBookmarks.Add Adodc1.Recordset.Bookmark
        Exit Do
    End If
    Adodc1.Recordset.MoveNext
Loop

Во-вторых лучше так вообще не делать, а делать как я уже писал: http://bbs.vbstreets.ru/viewtopic.php?t=27285 - это ведь полный аналог. Ну и в-третьих между первым и вторым твоим случаем разницы нет. Или ты не смог ее внятно объяснить.
И еще -

найти конкретную ячейку

Не ячейку ты ищешь, а значение поля. А то, что выделяется - ячейка или строка - зависит от свойства грида MarqueeStyle.

[GSerg]

Ну и в-третьих между первым и вторым твоим случаем разницы нет. Или ты не смог ее внятно объяснить.

Даём ещё один шанс объяснить...

[Summer.05]

GSerg

Явно считал, что это разные вещи.
Но, раз так считал, то и запостил.
Как теперь объяснить-то?

[Summer.05]

Antonariy

Спасибо большое!