を使用してrecordset.find。全体のコードはここに次のようになります。は、私が動作するように、この些細な検索を取得しようとかなり必死取得しています変数VBA ADODB
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を持っていて、キーでそれを検索している切り抜いた検索文字列:(
テーブル内の完全なクエリ?ID、それはアクセステーブルの右側のフィールドですか? – jsanchezs
これは次のような意味です:rst2.source = "tablenameからIDを選択してください" ID: '"&messID&"' " – jsanchezs
私はアクセスに慣れていないと私のアクセスバージョンはドイツ語で助けになりません。私は一意のID( "Stammdaten")を含む1つのテーブルを持っています。私は、各ID( "Verwendung")の複数のエントリを含む別のテーブルを持っています。私は一度に1つのIDのすべてのエントリを取得しようとしていますこれらのエントリを並べ替えて、もう一度別のテーブルに(コードではない)ビットを助けることを願って.... クエリを使用して以来動作しません各IDには複数のエントリがあります:( –