Hallo mal wieder :)
Ich habe eine funktion die eigentlich ganz gut funktioniert.
Diese Function filtert eine tabelle nach Strings und das funktioniert auch ganz gut. Nur bräuchte ich noch einen filter für die Id.
Könnte mir bitte jemand helfen?
Function SearchAllFieldsFilter(strTable As String, strSearch As String) As String
Dim rs As Recordset, intCnt As Integer
Dim strFilter As String, i As Integer
intCnt = 0
Set rs = CurrentDb.OpenRecordset(strTable)
rs.MoveFirst
With rs
For i = 0 To .Fields.Count - 1
If .Fields(i).Type = dbText Or .Fields(i).Type = dbMemo Then
intCnt = intCnt + 1
strFilter = strFilter & _
"[" & .Fields(i).Name & "] like '*" & _
strSearch & "*' or "
End If
Next i
End With
rs.Close
If intCnt > 0 Then
'letztes " or " wieder raus
strFilter = Left$(strFilter, Len(strFilter) - 4)
SearchAllFieldsFilter = strFilter
Else
SearchAllFieldsFilter = ""
End If
End Function
Vielen Dank
Albert
Hallo,
wenn Du nach der "ID" (Primäarschlüssel) filtern willst, dann brauchst Du den ganzen Klattererdatsch ;) nicht.
Es wird ein und nur ein Datensatz geliefert.
Me.Filter="Id=" & Me!txtID
Me.Filteron=true
Hallo Franz,
ich würde ja gern auch textfelder filtern und eben zusätzlich auch den Primärschlüssel.
Der andere klatsch sozusagen ist schon ok also er funktioniert :) Nur würde ich zusätzlich gern die möglichkeit haben auch den Primärschlüssel zu filtern.
Bin leider momentan noch beim arbeiten daher leider keine Zeit um zu schaun wo ich Deinen Code anfügen müsste.
Könntest Du mir bitte es noch kurz sagen?
Vielen Dank
Albert
Hallo,
" textfelder filtern und eben zusätzlich auch den Primärschlüssel."
was ergibt das für einen Sinn? Dein Code brächte allenfalls Effekt (und da bräuchte nichs geändert werden) , wenn das Primärschlüsselfeld (auch) vom Datentyp Text und irgendwie "sprechend" wäre
Hallo Franz,
ich glaub ich verstehe was Du meinst.
Vielen Dank
Albert