Access / VBA Datensatz nach num Wert suchen

[Thomas S. (Gast)]

Hallo Forengemeinde,
ich habe eine Tabelle / Abfrage worin auch numerische Werte stehen.
Nun muss ich per VBA in dieser Tabelle/Feld einen numerischen Wert 
suchen.
Dies gelingt mir aber mit FindFirst, usw nicht, da FindFirst nach String 
sucht, und nicht numerisch.
Es soll einfach in einer Tabelle, in dem Feld Versuch [Integer] eine 
bestimmte Zahl gesucht werden.

Womit kann ich dies lösen?

Bin auf Reha, und habe keine Bücher hier, und ist auch leider die Hilfe 
von VBA beschädigt, so dass ich auch hier nicht suchen kann.

[Rainer Z. (netzbeschmutzer)]

Du könntest das DAO-Objekt in VBA einbinden, dann versteht VBA auch 
SQL-Befehle. Damit kannst Du außerdem wesentlich präzisere 
Datenbankabfragen erstellen, außerdem funktioniert es mit diversen 
Datentypen wie string, integer, long etc.

Das ist nicht einmal sonderlich kompliziert, aber zu umfangreich, um es 
hier darzustellen. Im Internet wirst Du unter DAO-Objekt und SQL fündig, 
da findest Du auch Code-Beispiele für VBA.

[ge-nka (Gast)]

Irgendwie so:

private sub showQueryData
  dim db as dao.database
  dim rs as dao.recordset
  dim sqlStr as string

  sqlStr = "SELECT * FROM TabelleMitDaten WHERE FeldMitNummer = 122"

  set db = currentDb
  set rs = db.openRecordset(sqlStr)
  ' rs hat jetzt alle Treffer mit Nummer 122
  rs.movefirst

  do while not rs.EOF '(EOF = End Of File)
    ' hier kommt der Code für jeden Treffer
    debug.print("the ID: " & rs!id & " Daten Name: " & rs!name)
    rs.movenext
  loop

  msgbox("End of TabelleMitDaten")
end sub

[Rainer Z. (netzbeschmutzer)]

Und bitte prüfen, ob die Datei DAO360.dll im SYSWOW64-Ordner vorhanden 
ist.

[Thomas S. (Gast)]

Es ging dann doch mit folgendem Code:

    If Versuch_gefunden = False Then
       ' Suchen, wie viele Rettungsversuche dieser Datei bereits erfasst wurden
       Do
         SektDefTb.FindFirst "Datei_ID = " & DateiID & " AND " & "Versuch = " & Int_VersuchCount
         If SektDefTb.NoMatch = True Then
            Versuch_gefunden = True
            Exit Do
         End If
       Loop While ZielTb.NoMatch
       Int_VersuchCount = Int_VersuchCount + 1
     End If

Int_VersuchCount ist hier mein Problemfall gewesen. Dieser ist ein 
Int-Wert, und wird dann auch so in der DB gespeichert.

Ich habe dies auch irgendwo im Netz gefunden. Aber auf die Syntax mit 
doppelten und einfachen Hochzeichen muss man erstmal draufkommen. Da 
fehlt mir zugegeben noch Hintergrundwissen.