は、私が動作するように、この些細な検索を取得しようとかなり必死取得しています変数VBA ADODB

Question

を使用してrecordset.find。全体のコードはここに次のようになります。

Option Compare Database 
Option Explicit 

'Modul zum Updaten des Status eines Messmittels in der Stammdatenbank (Entnommen/Verfügbar)3 

Public Function updateStatus() 

Dim rst2 As ADODB.Recordset 
Dim rst As ADODB.Recordset 
Dim messID As String 

Set rst = New ADODB.Recordset 'Stammdaten zur Bearbeitung öffnen 
      rst.ActiveConnection = CurrentProject.AccessConnection 
      rst.CursorType = adOpenKeyset 
      rst.LockType = adLockOptimistic 
      rst.Open "Stammdaten" 
      rst.MoveFirst 

Set rst2 = New ADODB.Recordset 'zur Bearbeitung öffnen 
      rst2.ActiveConnection = CurrentProject.AccessConnection 
      rst2.CursorType = adOpenKeyset 
      rst2.LockType = adLockOptimistic 
      rst2.Open "Verwendung" 

Do While Not rst.EOF 
      messID = rst!ID 
      Debug.Print messID 
      rst2.Find "ID = '" & messID & "'" 
      If rst2.EOF = True Then 'Falls nicht vorhanden 
       Debug.Print "Keine Verwendung gefunden!" 
      Else 
       rst2.Sort = "Nr DESC" 
       rst2.MoveFirst 
       Debug.Print rst2!Status 
      End If 
      rst.MoveNext 
Loop 
rst.Close 
rst2.Close 

End Function 

私は何をしないのですか？私は文字通りあなたがテーブル型recorsetを持っていて、キーでそれを検索している切り抜いた検索文字列:(

Answer 1

のhunderdsを試してみました。これは、代わりにFind方法のSeek方法の典型的なユースケースである。

これによれば

：https://support.microsoft.com/en-us/kb/108149

検索メソッド（関数は、FindFirst、FindLast、FindNextメソッドとのFindPrevious）は、ダイナセットとスナップショットに適用されるが、表オブジェクトではないとは逆に、この方法は、専用表オブジェクトで提供されてシーク。

このページはADO以上にDAOに焦点を当てているようですが、同じロジックが両方のケースに当てはまるはずです。

は、私はあなたがhttps://msdn.microsoft.com/en-us/library/ms675109(v=vs.85).aspx

rst2.Seek "=", messID 
If rst2.NoMatch Then ' not found ... 

Answer 2

は、私は非常に頻繁にADOを使用していないSeek方法を試してみるべきだと思いますが、2つのアイデアは私が持っていたどちらも非常にgraceful-

1）Application.WorksheetFunction.Transpose(rst2.GetRows)（使用してください最初に.MoveLastと.MoveFirstを入力して、レコードセットの配列を取得し、次に探しているIDを見つけることができます。

2）同じアイデアですが、このことができますレコードセット...また

、他の人が以前に新しいクエリは確かにあなたにyoureのを探していた値になるだろう述べてきたように...

希望、 TheSilkCodeあなたは検索しないのはなぜ