Hallo nochmals ein kleine Hilfe benötigt :)
hab nun ein Hauptformular wo ich ein textfeld eingefügt habe. Dieses soll per button ein neues Hauptformular öffnen und zu
den jeweiligen Datensatz im neuen Hauptformular mit Unterformular filtern.
Hier ist der code den ich verwende... Access findet aber das Objekt nicht?
Private Sub cmdKonSuche_Click()
DoCmd.OpenForm "frmKontaktListe"
If Not IsNull(Me.txtKonSuche) Then
Me.Filter = "[KontaktName] LIKE '*" & Me.txtKonSuche & "*'"
Me![frmKontaktListe]![KontaktListe].Form.Filter = Me.Filter
Me![frmKontaktListe]![KontaktListe].Form.FilterOn = True
End If
End Sub
Dachte mir es sollte so funktionieren aber wie gesagt leider nicht :(
Hoffe auf eine Hilfe!
Vielen Dank
Albert
Hallo Albert,
versuch mal so:
Private Sub cmdKonSuche_Click()
DoCmd.OpenForm "frmKontaktListe"
If Not IsNull(Me.txtKonSuche) Then
Me.Filter = "[KontaktName] LIKE '*" & Me.txtKonSuche & "*'"
Forms![frmKontaktListe]![KontaktListe].Form.Filter = Me.Filter
Forms![frmKontaktListe]![KontaktListe].Form.FilterOn = True
End If
End Sub
Hallo Peter,
ma jo so geht es gel!!!
Super Danke!!
Sag was würde ich noch an diesen Code eingeben müssen das nach dem öffnen des formulares
im HF der Filter automatisch also im txtKonSuche gelöscht wird.
Dann wäre der Code perfect ;)
Danke nochmal muss leider weg aber schau später nochmal vorbei!
Albert
Hallo Peter,
habs doch noch hinbekommen nun läuft dieser Code so wie ich mir das vorgestellt habe :)
Vielen Dank!!
Albert