Private Sub btnIDSuchen_Click()
Dim Eingabe As String  'Entweder as String or Integer
Dim db As Database
Dim rs As Recordset
Dim SQL As String
 
Eingabe = txtIDSuchen
 
 
SQL = "SELECT ID " _
    & "FROM tabFehlerFeature " _
    & "WHERE ((tabFehlerFeature.ID) = """ & Eingabe & """);"
 
Set rs = CurrentDb.OpenRecordset(SQL)
 
If rs.RecordCount = 1 Then
 
End If