✔ Code richtig ändern (Access Formular Button)

[CanYouHelpMe]

Hallo

ich habe ein kleines Problem

ich habe ein formular dort gibt es einen button der als suche dient klickt man in an erscheint eine inputbox und man kann den rechnernamen eingeben und die suche wird gestartet.
(die daten werden aus einer tabelle oder abfrage geholt)

bisher war es so das die informationen in ein listenfeld geschrieben wurden

doch nun soll es so funktionieren das die such in einer abfrage durchgeführt wird aber auch dann in der abfrage die ergebnisse angezeigt
(also setzt der button ein art kriterium in der abfrage, beim rechnernamen)

jedenfalls habe ich die frage schonmal gestellt und meinen code mitgegeben

---------------------------------
Private Sub Befehl18_Click()


Dim EingabeSQL As String
Dim strEingabe As String

strEingabe = InputBox("Geben Sie den Teil des Suchbegriffs ein ...", _
"Gesamtsuche nach Suchbegriff")
If StrPtr(strEingabe) = 0 Then Exit Sub 'Benutzereingabe wurde abgebrochen
EingabeSQL = "SELECT * " & _
"FROM [CPU] " & _
"WHERE [ID] Like '*" & strEingabe & "*' " & _
" ORDER BY [ID]"
Me!Liste18.RowSourceType = "Table/Query" 'Listenherkunftsart
Me!Liste18.RowSource = EingabeSQL 'Listenherkunft

End Sub
--------------------------

darauf habe ich eine antwort bekommen ich müsste es einfach ersetzen nur weiss ichnicht wie
hier die antwort die ich erhalten habe

------------------------
hallo,

Code:
' statt
Me!liste.RowSource = EingabeSQL 'Listenherkunft
' neu
Me.RecordSource = EingabeSQL 'Neue Datenherkunft Formular
' für Unterformular
Me!DeinUnterformular.Form.RecordSource = EingabeSQL

mfg
-----------------------
nur habe ich von da nicht soviel ahnung von und habe es auch durch selbst probieren nicht geschafft.

kann mir jemand schreiben wo ich das in meinem code einsetzten muss und was ich rausnehmen muss

ich wäre sehr dankbar

 

[CanYouHelpMe]

Hat sich erledigt habs raus.

code:
Private Sub Button1_Click() <----Befehlsschaltfläche
Dim EingabeSQL As String
Dim strEingabe As String

strEingabe = InputBox("Geben Sie den Teil des Suchbegriffs ein ...", _
"Gesamtsuche nach Suchbegriff")
If StrPtr(strEingabe) = 0 Then Exit Sub 'Benutzereingabe wurde abgebrochen
EingabeSQL = "SELECT * " & _
"FROM [a_Hardware] " & _<---Abfrage(wo)
"WHERE [ID] " & _ <-----Feld
"Like '*" & strEingabe & "*' " & _
" ORDER BY [ID]" <-------Feld(siehe oben)
Me!Unterform.Form.RecordSource = EingabeSQL <-----Unterformular(herkunftabfrage)
End Sub

Falls das jemand mal als Problem hat kann er ruhig bei mir nachfragen

danke an alle die sich am problem versucht haben