2017-04-06 11 views
0

レコードが検索されたときに特定のレコードをdatagridにハイライトしたいとします。それはクイック検索のようなもので、ユーザーは名前を書いて、すぐにレコードが見つかります。これまでレコードを指している矢印しかありませんが、完全に強調表示する必要があります。詳細は画像を提供しています。 コード:クイック検索によるDatagridのレコードのハイライト

Private Sub txtQuickSearch_Change() 
Dim varBookmark As Variant 
     With StudentTable 
       varBookmark = .Bookmark 
      If (.SelBookmarks.Count <> 0) Then 
       .SelBookmarks.Remove 0 
      End If 
       Adodc1.Recordset.MoveFirst 

       Adodc1.Recordset.Find "[Last Name] like '" & txtQuickSearch.Text & "'" 

      If frmStudents.Adodc1.Recordset.BOF Then 

       .SelBookmarks.Add Adodc1.Recordset.Bookmark  
      End If 
     End With 
End Sub 

This is how it is now

This is how i would like it

+0

私はあなたが 'ない場合はfrmStudents.Adodc1をしたいと思います.Recordset.BOF Then ' –

+0

私はこのエラーを表示します。 'Run-time error' 3021 ':BOFまたはEOFのいずれかがTrueであるか、現在のレコードが削除されています。 '@JimHewitt –

+0

' If not frmStudents.Adodc1.Recordset.BOF And Not frmStudents.Adodc1.Recordset.EOF Then' –

答えて

0

@Jimヒューイットは、問題を修正し、私はこのステートメントを追加する必要: If Not frmStudents.Adodc1.Recordset.BOF And Not frmStudents.Adodc1.Recordset.EOF Then

関連する問題