Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Problem mit Such-Formular
Gehe zu Seite 1, 2  Weiter
zurück: Mit Listenfeld die Daten von 2tem Listenfeld filtern? weiter: Kombinationsfeld nach Neueingabe aktualisieren Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Bitte Status wählen ! Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Dennis41085
Azubi :)


Verfasst am:
08. Jul 2004, 10:01
Rufname:

Problem mit Such-Formular - Problem mit Such-Formular

Nach oben
       

Hallo zusammen!

Ich habe versucht, mit Hilfe der Beispieldatenbank 'Suchen', von BDWIKI: Access Beispieldatenbanken, ein Suchformular für meine Datenbank zu erstellen.

Ich habe mir alle Einstellungen und Codes genau angeguckt und so übernommen. Dabei habe ich lediglich die Variablen meiner Datenbank angepasst.

Es funktioniert aber leider nicht. Nach Eingabe eines Suchwortes und einem Klick auf die Schaltfläche 'Suchen', bekomme ich den Laufzeitfehler 2465 und der VBA-Editor öffnet sich mit dem Code meines Suchformulars:
Code:
Option Compare Database
Option Explicit

Private Sub Suchen_Click()
    Dim Krit As String
    Dim SQL As String

    Krit = ""
    If Not IsNull(Me!Stadt) Then Krit = Krit & " AND Stadt LIKE '" & Me!Stadt & "*'"
    If Not IsNull(Me!Krankenhaus) Then Krit = Krit & " AND Krankenhaus LIKE '" & Me!Krankenhaus & "*'"
    SQL = "SELECT * FROM Geräte "
    If Krit <> "" Then SQL = SQL & "WHERE " & Mid(Krit, 5)
    Me!suche_detail.Form.RecordSource = SQL
    Me!Nummer.SetFocus
End Sub

Ich vermute, dass der Fehler dabei liegt, dass die Vorlage auf Access 97 basiert, ich jedoch Access XP verwende. Ist das möglich? Wie müsste der Code richtig lauten?

Ich hoffe, ihr könnt mir helfen!

Besten Dank!

Gruß,
Dennis
Willi Wipp
Moderator


Verfasst am:
08. Jul 2004, 10:41
Rufname:
Wohnort: Raum Wiesbaden


Re: Problem mit Such-Formular - Re: Problem mit Such-Formular

Nach oben
       

Hi Dennis,

es waere schoen wenn Du uns sagen wuerdest an welcher Stelle die Fehlermeldung kommt.

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
Dennis41085
Azubi :)


Verfasst am:
08. Jul 2004, 11:11
Rufname:

Re: Problem mit Such-Formular - Re: Problem mit Such-Formular

Nach oben
       

Meinst du
Dennis41085 hat folgendes geschrieben:
Nach Eingabe eines Suchwortes und einem Klick auf die Schaltfläche 'Suchen', bekomme ich den Laufzeitfehler 2465

oder die gelbe Markierung des VBA-Editors? Das wäre die Zeile:
Code:
  If Not IsNull(Me!Stadt) Then Krit = Krit & " AND Stadt LIKE '" & Me!Stadt & "*'"

Ich hoffe, es ist das was du meinst und du kannst mir weiterhelfen.

Gruß,
Dennis
Willi Wipp
Moderator


Verfasst am:
08. Jul 2004, 11:43
Rufname:
Wohnort: Raum Wiesbaden

Re: Problem mit Such-Formular (II) - Re: Problem mit Such-Formular (II)

Nach oben
       

Hi Dennis,

die zweite Variante (die erste hatte ich schon gesehen Wink).
Bist Du sicher, das das Steuerelement Stadt auf dem Formular existiert?
Setz auf die Zeile einen Haltepunkt (oder warte bis der Fehler kommt + waehle Debuggen)
und gib dann im Direktfenster (Strg+G) ein
Code:
?Me!Stadt
Was passiert?
_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)


Zuletzt bearbeitet von Willi Wipp am 08. Jul 2004, 16:47, insgesamt einmal bearbeitet
Dennis41085
Azubi :)


Verfasst am:
08. Jul 2004, 12:02
Rufname:


AW: Problem mit Such-Formular - AW: Problem mit Such-Formular

Nach oben
       

Ach das soll ein Steuerelement sein? Sorry, hab leider überhaupt keinen Plan, was der Code genau ausdrückt.

Durch die Eingabe ins Direkt-Fenster bekomme ich die Fehlermeldung "Laufzeitfehler '2465': Kunden das in Ihrem Ausdruck angesprochene Feld 'Stadt' nicht finden.

Vielleicht könntest du mir den Code mal erläutern? Rolling Eyes
Willi Wipp
Moderator


Verfasst am:
08. Jul 2004, 16:49
Rufname:
Wohnort: Raum Wiesbaden

Re: Problem mit Such-Formular (III) - Re: Problem mit Such-Formular (III)

Nach oben
       

Hi Dennis,

Auf Deinem Hauptformular (wo sich auch die Befehlsschaltflaeche Suchen befindet)
solltest Du zwei Steurelemente (z.B. Textfelder) mit dem Namen Stadt und Krankenhaus haben.
Woher soll denn Access sonst wissen wonach Du suchen willst?

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
Dennis41085
Azubi :)


Verfasst am:
08. Jul 2004, 20:14
Rufname:

AW: Problem mit Such-Formular - AW: Problem mit Such-Formular

Nach oben
       

Hi!

Habe tatsächlich vergessen, die Namen der Textfelder einzutragen Embarassed Habe dies nun getan und bekomme jetzt, nach einem Klick auf Suchen, einen Laufzeitfehler 2465: Kunden kann das in Ihrem Ausdruck angesprochene Feld 'suche_detail' nicht finden.

Dann bekomme ich wieder den Code des Suchformulars und markiert ist nun diese Zeile:
Code:
Me!suche_detail.Form.RecordSource = SQL

suche_detail ist mein Formular, das sich öffnen soll, wenn man aus den Suchergebnissen eines anklickt.

Hier der Codes des UFOs, falls er auch eine Rolle spielt:
Code:
Option Compare Database
Option Explicit

Private Sub Form_Click()
    DoCmd.OpenForm "suche_detail", , , "Nummer=" & Me!Nummer
End Sub

Danke für deine Hilfe!
lothi
c#, .Net


Verfasst am:
09. Jul 2004, 08:47
Rufname:
Wohnort: Birgisch

AW: Problem mit Such-Formular - AW: Problem mit Such-Formular

Nach oben
       

Hallo Dennis

Wenn du folgendes eintipst:

Me.s erscheint dann im Listenfeld der Name suchen_Detail?

Erklärung:
Das Unterformular ist ein Steuerelement in dem das Formular angezeigt wird. Dieses Steuerelement muss nicht der gleiche Name haben wie das Formular.
Um das Steuerelement Unterformular ansprechen zu können muss man den Namen des Steuerelemntes nehmen.
Diesen findest du heraus wenn du in der Entwurfsansicht des Hauptformulars auf den Rahmen des Unterformulars klickst. Unter Andere steht dann der Name. Diesen Namen musst du hier (rot) eingeben:

Me!suche_detail.Form.RecordSource = SQL

_________________
Gruss Lothi, der Bastler
Feedback ist die beste Möglichkeit mir zu sagen ob die Antwort geholfen hat!
AC2002, WinXP, Office XP
Dennis41085
Azubi :)


Verfasst am:
09. Jul 2004, 09:47
Rufname:

AW: Problem mit Such-Formular - AW: Problem mit Such-Formular

Nach oben
       

Hey, das klappt ja super! Danke!

Drei Dinge noch:

1) Es funktioniert leider noch nicht, aus den Suchergebnissen einen DS zu öffnen: Laufzeitfehler 2501, die Aktion OpenForm wurde abgebrochen.
Der Code dazu:
Code:
Option Compare Database
Option Explicit

Private Sub Form_Click()
    DoCmd.OpenForm "suche_detail", , , "Nummer=" & Me!Nummer
End Sub
(makiert ist die Zeile mit dem OpenForm)

2) Ich habe zwei Suchfelder (Stadt + Krankenhaus). Ist es möglich, dass die Suche durch Drücken der Enter-Taste gestartet wird, ohne mit der Maus die Schaltfläche 'Suchen' zu klicken?

3) Wie stelle ich es am einfachsten an, dass man das Suchergebnis ausdrucken kann? Über einen Bericht? Hat vielleicht jemand den passenden Code parat?

Danke für eure Hilfe!!
lothi
c#, .Net


Verfasst am:
09. Jul 2004, 12:30
Rufname:
Wohnort: Birgisch

AW: Problem mit Such-Formular - AW: Problem mit Such-Formular

Nach oben
       

Hallo

Den Ausdruck musst du sicher mal in einem Bericht machen.
Als Datenherkunft für den Bericht nimmst du die genau gleiche Abfrage wie für das Unterformular.

Beim Öffnen des Berichts nimmst du den Inhalt der Variablen Krit für das Kriterium zum Öffnen des Berichts.

Poste doch mal den Code den du jetzt zum Filtern des Unterformulars hast dann kann ich diesen anpassen.

Das Unterformular kannst Du nicht mit DoCmd.OpenForm öffnen, wenn es als UFo im Hauptformular offen ist. (Willi Wipp)

_________________
Gruss Lothi, der Bastler
Feedback ist die beste Möglichkeit mir zu sagen ob die Antwort geholfen hat!
AC2002, WinXP, Office XP
Dennis41085
Azubi :)


Verfasst am:
09. Jul 2004, 13:07
Rufname:

AW: Problem mit Such-Formular - AW: Problem mit Such-Formular

Nach oben
       

Hallo!

Ich habe drei Formulare:

- suche_start (das Haupt-Suchformular)
- suche_ufo (das Unterformular für die Suchergebnisse)
- suche_detail (ein Formular, das sich mit einem DS aus den Suchergebnissen öffnen soll, wenn man diesen anklickt)

Es soll also nicht das Formular geöffnet werden, welches als Unterformular für die Suchergebnisse dient, sondern ein anderes, das alle meine Formular-Felder zum Bearbeiten des DS enthält.

Ich denke, ich habe bereits alle Codes geposted, aber hier nochmal:
suche_start:
Code:
Option Compare Database
Option Explicit

Private Sub Suchen_Click()
    Dim Krit As String, SQL As String

    Krit = ""
    If Not IsNull(Me!Stadt) Then Krit = Krit & " AND Stadt LIKE '" & Me!Stadt & "*'"
    If Not IsNull(Me!Krankenhaus) Then Krit = Krit & " AND Krankenhaus LIKE '" & Me!Krankenhaus & "*'"
    SQL = "SELECT * FROM Geräte "
    If Krit <> "" Then SQL = SQL & "WHERE " & Mid(Krit, 5)
    Me!suche_ufo.Form.RecordSource = SQL
    Me!Stadt.SetFocus
End Sub


suche_ufo:
Code:
Option Compare Database
Option Explicit

Private Sub Form_Click()
    DoCmd.OpenForm "suche_detail", , , "Nummer=" & Me!Nummer
End Sub

Deine Erklärung zum erstellen des Berichts habe ich leider auch nicht verstanden. Ich hoffe du kannst mir helfen!

Danke!
lothi
c#, .Net


Verfasst am:
09. Jul 2004, 13:52
Rufname:
Wohnort: Birgisch

AW: Problem mit Such-Formular - AW: Problem mit Such-Formular

Nach oben
       

Also zum öffnen des Formulars:

a)Du kannst einen Button in dein Formular einbauen. Am besten im Detail bereich neben den Steuerelementen. Und dann deinen Code beim Klicken des Buttons eingeben.

b)Oder du nimmst das Feld Nummer und trägst deinen Code bei Doppelklick vom Feld Nummer ein.

Beim Ereignis Form_click funktioniert das nicht weil so kein Datensatz markiert ist und somit auch keine Nummer.


Der Bericht
  1. Einen Button im Hauptformular anlegen cmdPrint
  2. Einen Bericht erstellen mit der gleichen Abfrage als Datenherkunft wie das ufo also:
    Code:
    SELECT * FROM Geräte

  3. Im Formular den Aufbau des Codes folgender massen ändern:
Code:

Option Compare Database
Option Explicit
'Bei dieser Deklaration sind die Variablen im ganzen Modul abrufbar.
    Dim Krit As String
    Dim SQL As String

Sub sbSuchen()   
    Krit = ""
    If Not IsNull(Me!Stadt) Then Krit = Krit & " AND Stadt LIKE '" & Me!Stadt & "*'"
    If Not IsNull(Me!Krankenhaus) Then Krit = Krit & " AND Krankenhaus LIKE '" & Me!Krankenhaus & "*'"
    SQL = "SELECT * FROM Geräte "
    If Krit <> "" Then
       Krit = Mid(Krit,5)
        SQL = SQL & "WHERE " & Krit
    End If
End Sub

Private Sub Suchen_Click()
    Call sbSuchen 'Aufruf der Prozedur suchen
    Me!suche_ufo.Form.RecordSource = SQL
    Me!Stadt.SetFocus
End Sub

Der Code wird einfach in 2 Prozeduren aufgeteilt. Der Grund: dann brauchst du ihn nicht nochmals zu schreiben wenn du die Kriterien für den Bericht gebrauchen willst.
Code:
Private Sub cmdPrint_Click
    Call sbSuchen 'Die Filterprozedur wird ausgeführt
 'Öffenet den Bericht mit den gleichen Kriterien die das Unterformular enthält
    DoCmd.OpenReport "Berichtname", acViewPreview, , Krit
End Sub

So ich hoffe diesmal war es etwas verständlicher. Very Happy

_________________
Gruss Lothi, der Bastler
Feedback ist die beste Möglichkeit mir zu sagen ob die Antwort geholfen hat!
AC2002, WinXP, Office XP
Dennis41085
Azubi :)


Verfasst am:
09. Jul 2004, 14:28
Rufname:

AW: Problem mit Such-Formular - AW: Problem mit Such-Formular

Nach oben
       

Der Bericht läuft super, prima Erklärung! Wink

Nur beim Öffnen des Formulars harperts noch. Habe beide Möglichkeiten probiert, bekomme aber in beiden Fällen Fehlermeldungen. Ist es nicht so möglich, wie in der Beispieldatei, dass sich das Formular beim Klick auf das kleine Pfeilchen am Anfang der Zeile öffnet?

Danke dir für deine Mühe!
Willi Wipp
Moderator


Verfasst am:
09. Jul 2004, 14:34
Rufname:
Wohnort: Raum Wiesbaden

Re: Problem mit Such-Formular (IV) - Re: Problem mit Such-Formular (IV)

Nach oben
       

Hi Dennis,

hast Du denn sowohl in dem Formular suche_ufo als auch in den Formular suche_detail
ein Steuerelement mit dem Namen Nummer?
Sonst hast Du das gleiche Problem wie Oben.

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
Dennis41085
Azubi :)


Verfasst am:
09. Jul 2004, 14:44
Rufname:


AW: Problem mit Such-Formular - AW: Problem mit Such-Formular

Nach oben
       

Ja, auf beiden Formularen gibt es ein Textfeld Nummer. Ist das dann richtig oder falsch? (Blöde Frage, aber egal *g*) Und wieso lautet die Fehlermeldung dazu "openForm wurde abgebrochen"?
Wenn das noch funzen würde, wäre ich wunschlos Glücklich Wink
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Gehe zu Seite 1, 2  Weiter
Diese Seite Freunden empfehlen

Seite 1 von 2
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Im Suchformular mit 1 Feld in 2 Spalten der DB Suchen. 2 Xia0 189 20. Nov 2009, 12:29
Xia0 Im Suchformular mit 1 Feld in 2 Spalten der DB Suchen.
Keine neuen Beiträge Access Tabellen & Abfragen: Suche in 2 ähnlichen Tabellen über 1 Suchformular 4 Caym 492 30. Jun 2009, 13:34
Caym Suche in 2 ähnlichen Tabellen über 1 Suchformular
Keine neuen Beiträge Access Formulare: Suchformular:datensatz mit dem naechstgelegenen Datum anzeig 0 Tobsel1 388 12. Sep 2007, 22:14
Tobsel1 Suchformular:datensatz mit dem naechstgelegenen Datum anzeig
Keine neuen Beiträge Access Formulare: Einfaches Suchformular für eine kleine DB 0 Dave28 695 09. Sep 2007, 20:54
Dave28 Einfaches Suchformular für eine kleine DB
Keine neuen Beiträge Access Formulare: Datensatz aus Suchformular auswählen --> neues Formular 9 Gast 793 21. März 2007, 11:27
Gast Datensatz aus Suchformular auswählen --> neues Formular
Keine neuen Beiträge Access Formulare: In Suchformular DS auswählen 3 Stefan1982 807 25. Feb 2007, 04:18
Willi Wipp In Suchformular DS auswählen
Keine neuen Beiträge Access Formulare: Aus Suchformular heraus Bearbeitungsformular öffnen 3 chrisi1002 1404 22. Feb 2007, 20:54
jens05 Aus Suchformular heraus Bearbeitungsformular öffnen
Keine neuen Beiträge Access Formulare: Suchformular mit Mehrfachwerten in einer Spalte 0 barzep 799 13. Feb 2007, 16:57
barzep Suchformular mit Mehrfachwerten in einer Spalte
Keine neuen Beiträge Access Formulare: Hilfe bei Suchformular (Suche Textfeld über ein 2. Formular) 0 fxsavini 487 13. Feb 2007, 10:38
fxsavini Hilfe bei Suchformular (Suche Textfeld über ein 2. Formular)
Keine neuen Beiträge Access Formulare: Suchformular 1 nathy84 591 08. Okt 2006, 10:53
Smilla Suchformular
Keine neuen Beiträge Access Formulare: suchformular mit bearbeiten 1 miquel 906 20. Jul 2006, 10:25
Gast suchformular mit bearbeiten
Keine neuen Beiträge Access Formulare: "Suchformular in 10 Minuten" - Erweiterung für Lis 2 biggybean 1211 21. Jun 2006, 11:18
biggybean "Suchformular in 10 Minuten" - Erweiterung für Lis
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Web Editor Forum