Suchfeld markieren

Hallo,

ich habe folgenden VBA Code für eine Suche:

If Not IsNull(Me.Suchfeld) Then
Dim rs As Recordset

Set rs = Me!Manda.Form.RecordsetClone
i = „[ComRef] like '*“ & Me![Suchfeld] & „*’ OR [DocRef]like '*“ & Me![Suchfeld] & „*’ OR [Title]like '*“ & Me![Suchfeld] & „*’“

rs.FindNext i

If Not rs.NoMatch Then
Me!Manda.Form.Bookmark = rs.Bookmark
End If
Set rs = Nothing

Nun möchte ich das das Feld in dem der Wert gefunden wurde markiert wird oder das der ganze Datensatz markiert wird. Wie geht das?

Freundliche Grüße
Waldi

Hallo Waldi,

i = „[ComRef] like '*“ & Me![Suchfeld] & „*’ OR [DocRef]like '*“ & Me![Suchfeld] & „*’ OR [Title]like '*“ & Me![Suchfeld] & „*’“

kürzer:
i = „[ComRef]&[DocRef]&[Title] like '*“ & Me![Suchfeld] & „*’“

Nun möchte ich das das Feld in dem der Wert gefunden wurde
markiert wird oder das der ganze Datensatz markiert wird. Wie
geht das?

Ich gehe mal davon aus, das es sich um ein Formular handelt!?
Im Falle dass es ein Formular ist, wäre die Markierung des Datensatzes nicht sinnvoll! Oder gibt es einen bestimmten Grund dafür?

Je nach Grundeinstellung deines Access wird das ganze Feld markiert, wenn der Cursor drin steht. Also geht es darum den Cursor in das Feld zu bringen:

x_Suche = „*“ & Me.Suchfeld & „*“
Feld_name=""
if Me.ComRef like x_Suche then Feld_name = „ComRef“
if Me.DocRef like x_Suche then Feld_name = „DocRef“
if Me.Title like x_Suche then Feld_name = „Title“

*-----------
oder kürzer:
Feld_name=iif(Me.ComRef like x_Suche,„ComRef“,iif(Me.DocRef like x_Suche,„DocRef“,iif(Me.Title like x_Suche,„Title“,"")
*-----------

if len(Feld_name)> 0 then docmd.GoToControl Feld_name

Nun steht der Cursor im entsprechenden Feld :smile:

Grüße aus Essen
Wolfgang

Danke für die Hilfe, hat zwar nicht auf anhieb mit dem Unterformular hingehauen, aber nun geht es!

Freundliche Grüße Waldi