Code stimmt noch nicht ganz :(

[silentwolf]

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?

Code [Auswählen] Erweitern


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

[DF6GL]

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

[silentwolf]

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

[DF6GL]

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

[silentwolf]

Hallo Franz,
ich glaub ich verstehe was Du meinst.

Vielen Dank

Albert