mike9000

Hi VBler Habe ich gerade eingefügt, jedoch erscheint eine neue Fehlermeldung: Dieser Fehler tritt auf, wenn ein Ereignis nicht ausgeführt werden konnte, weil der Speicherort der Logik für das Ereignis von Microsoft Office Access nicht ausgewertet werden kann. Falls z. B. die OnOpen-Eigenschaft eines Formulars auf =[Field] festgelegt ist, tritt dieser Fehler auf, weil Access die Ausführung eines Makros oder Ereignisnamens erwartet, wenn das Ereignis ausgelöst wird. VB ist doch zum verzweifeln Gruss Mike 9000

Besten Dank für die Antwort, jedoch erhalte ich jetzt die Meldung, ein Objekt ist erforderlich.. Hier der Komplette Code: Option Compare Database Private Sub Befehl143_Click() Form!suchfeld.SetFocus na = Me.suchfeld.Text rs.Open "SELECT * FROM Kunden WHERE Name LIKE '" & na & "%'", getConnection End Sub Hoffe es klappt irgendwann. Falls hilfreich, könnte ich auch die Access Datei Hochladen Beste Grüsse Mike9000

Hallo Hans-Jörg Besten Dank für deine Antwort. Leider funktioniert dies nicht, bekomme die Fehlermeldung "3075" --> Syntaxfehler. Habe mir noch einmal gedanken über die Suche gemacht. Es wäre von Vorteil wenn man suchvorschläge bekommen würde.. Bsp: Suche nach Firm ergebniss: Firma 1 Firma 2 Firma 3 usw. Muss ich dies mit einer SQL Klausel machen? Danke. u. Freundliche Grüsse

Hallo Zusammen Da ich mich erst gerade im Forum registriert habe, könnte es sein, dass mein Beitrag an der Falschen stelle gepostet ist. (Falls nötig, bitte korrigieren) Zuerst die Erklärung: Ich habe in Access eine Kunden Datenbank erstellt, in welcher via Formular Kunden Daten inkl. Adresse eingegeben werden kann. Zudem habe ich im selben Formular ein Textfeld eingebaut, mit welchem man auch Datensätze aus der Kundentabelle finden kann. Jedoch muss dies genau so eingetragen werden wie auch in der Tabelle. Es wäre von Vorteil, wenn man z.b Sch* eingeben könnte und dann via Auswahlmöglichkeit z.b Schweiz, Schriften, Schrank auswählen könnte. Im Moment habe ich nur folgende Code Zeile: Private Sub Befehl143_Click() Form!suchfeld.SetFocus DoCmd.OpenForm "Kunde", , , "Name = " & "'" & suchfeld.Text & "*'" End Sub Ich hoffe, dass mir jemand helfen kann und bedanke mich schon im Voraus. Grüsse