Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Suche in Unterformular funzt nicht
zurück: Hilfe bei Abschreibungsmethoden weiter: Kombinationsfelder sollen den Inhalt eines Textfeldes füllen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Scheibenmitte
Einsteiger


Verfasst am:
25. Apr 2009, 13:37
Rufname:

Suche in Unterformular funzt nicht - Suche in Unterformular funzt nicht

Nach oben
       Version: Office 2003

Hallo !

Ich habe als Anfänger mit Hilfe des Forums eine Suchabfrage mit Meldebox fertig bekommen.
Jetzt wollte ich das Ganze auf ein Unterformular anwenden - leider ohne Erfolg.
Ich komme mit meinen bescheidenen Kenntnissen nicht mehr weiter.
Was funzt ist Folgendes:
Code:
Private Sub suchen_name_Exit(Cancel As Integer)
    If Nz(Me!suchen_name, "") <> "" Then
        With Me.Recordset
            .FindFirst "[name] = '" & Me!suchen_name & "'"
            If .NoMatch Then _
                MsgBox Me!suchen_name & ", nicht gefunden!", vbInformation, ""
        End With
        Me!suchen_name = Null
    End If
    Me!Nachname.SetFocus
End Sub
Jetzt befindet sich das Suchfeld [name] in einem Unterformular. Wie ist dann der Code zu ändern ?
Ich hoffe, ich hab mich verständlich ausgedrückt und es kann mir jemand helfen.

Gruß
Jogi
JörgG
Access-Team


Verfasst am:
25. Apr 2009, 14:25
Rufname:
Wohnort: b. Dresden


AW: Suche in Unterformular funzt nicht - AW: Suche in Unterformular funzt nicht

Nach oben
       Version: Office 2003

Hallo,

  • Du musst für die Suche natürlich auf das Ufo.Recordset verweisen, dieses wird über das Ufosteuerelement angesprochen (das sind 2 Elemente (!) deren Namen identisch sein können, im Hfo steckt das Ufo im Ufosteuerelement drin). Das wirst Du brauchen: DbWiki - Access Bedienungsanleitung: Bezug auf Hfo/Ufo bzw Access Tipps & Tricks: Bezug auf Formular/Unterformular
  • Exclamation wenn Hfo und Ufo verknüpft sind, ist das Ufo.Recordset bereits mit dem Verknüpfungsschlüssel "vorgefiltert"! Eine Suche über alle DS der Ufo-Datenherkunft ist so nicht mehr möglich!
Hfo/Ufo sind nicht verknüpft, das Suchfeld suchen_name befindet sich im Hfo:
Code:
Private Sub suchen_name_Exit(Cancel As Integer)
    If Nz(Me!suchen_name, "") <> "" Then
        With Me!Ufosteuerelementname.Form.Recordset
            .FindFirst "[name] = '" & Me!suchen_name & "'"
            If .NoMatch Then _
                MsgBox Me!suchen_name & ", nicht gefunden!", vbInformation, ""
        End With
        Me!suchen_name = Null
    End If
    'Nachname im Hfo
    'Me!Nachname.SetFocus
    'Nachname im Ufo
    Me!Ufosteuerelementname.SetFocus
    Me!Ufosteuerelementname.Form!Nachname.SetFocus
End Sub

_________________
MfG, Jörg Very Happy

Bitte das Feedback nicht vergessen.
Scheibenmitte
Einsteiger


Verfasst am:
25. Apr 2009, 19:10
Rufname:

AW: Suche in Unterformular funzt nicht - AW: Suche in Unterformular funzt nicht

Nach oben
       Version: Office 2003

Hallo Jörg!

Danke für deine Antwort, aber ich stehe auf dem Schlauch.
Wenn ich dich richtig verstanden habe, soll Hfo nicht mit Ufo verknüpft sein.
Dann habe ich den Code nach deinen Vorgaben geändert:
Code:
Private Sub H_suchen_name_Exit(Cancel As Integer)
    If Nz(Me!H_suchen_name, "") <> "" Then
        With Me!SCHÜTZEN_Unterformular1.Form.Recordset
            .FindFirst "[name] = '" & Me!H_suchen_name & "'"
            If .NoMatch Then _
                MsgBox Me!H_suchen_name & " ist nicht in der Hauptdatei !", _
                       , "  L E I D E R . . . "
        End With
        Me!H_suchen_name = Null
    End If
    Me!SCHÜTZEN_Unterformular1.Form.SetFocus
End Sub
Ich finde keinen Schreibfehler, trotzdem funzt die Sache nicht.
Was habe ich falsch gemacht??

Gruß
Jogi
Willi Wipp
Moderator


Verfasst am:
25. Apr 2009, 19:32
Rufname:
Wohnort: Raum Wiesbaden

Re: Suche in Unterformular funzt nicht - Re: Suche in Unterformular funzt nicht

Nach oben
       Version: Office 2003

Hi Scheibenmitte,

nein die lautete die Empfehlung nicht wirklich Wink. Es war nur der Hinweis, das man dann anders vorgehen muss!
Variante A:
Du verwendest die Datenherkunft (RecordSource) um ein eigenes Recordset zu oeffnen.
Dort suchst Du den passenden DS, merkst Dir den entsprechenden Fremdschluessel
und suchst diesen dann im Recordset des HFo (Primaerschluessel)!
Variante B:
Du suchst/filterst direkt ueber ein Sub-SELECT im HFo
Code:
' Filteransatz
    Me.Filter = "DeineID In (SELECT DeineID " & _
                              "FROM tblUFo " & _
                             "WHERE [name] = '" & Me!H_suchen_name & "')"
    Me.FilterOn = True
    With Me!UFo.Form
        .Filter = "[name] = '" & Me!H_suchen_name & "'"
        .FilterOn = True
    End With

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

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


Verfasst am:
25. Apr 2009, 19:59
Rufname:


AW: Suche in Unterformular funzt nicht - AW: Suche in Unterformular funzt nicht

Nach oben
       Version: Office 2003

Hi Willi Wipp,

ich komme mir selbst etwas nervig vor, aber wo/wie wird der Filteransatz eingesetzt.
Bitte hab Erbarmen mit einem Anfänger!

Gruß
Jogi
Willi Wipp
Moderator


Verfasst am:
25. Apr 2009, 20:01
Rufname:
Wohnort: Raum Wiesbaden

Re: Suche in Unterformular funzt nicht (II) - Re: Suche in Unterformular funzt nicht (II)

Nach oben
       Version: Office 2003

Hi Scheibenmitte,

na im HFo, da dort ja erst einmal die DS eingegrenzt werden muessen.

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

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


Verfasst am:
25. Apr 2009, 20:17
Rufname:

AW: Suche in Unterformular funzt nicht - AW: Suche in Unterformular funzt nicht

Nach oben
       Version: Office 2003

Hi Willi Wipp,

ich verstehe immer weniger und glaube wir reden aneinander vorbei?
Für mein Verständnis gibt es keine DS im HFo die eingegrenzt werden müssten.

Ich habe in einem HFo ein Suchfeld mit dem ich im UFo einen Datensatz suchen möchte.

Warum funzt der Code von Jörg nicht?
JörgG
Access-Team


Verfasst am:
26. Apr 2009, 00:16
Rufname:
Wohnort: b. Dresden

AW: Suche in Unterformular funzt nicht - AW: Suche in Unterformular funzt nicht

Nach oben
       Version: Office 2003

Hallo,

befindet sich denn im Hfo eine Tabelle/Abfrage? Wenn nicht kannst Du den ersten Ansatz benutzen, vorausgesetzt Du hast die Hfo/Ufo-Verknüpfung gelöscht. Wenn doch eine verknüpfte Tabelle im Hfo ist, dann ist der Ansatz von Willi zu verwenden Wink

_________________
MfG, Jörg Very Happy

Bitte das Feedback nicht vergessen.
Scheibenmitte
Einsteiger


Verfasst am:
26. Apr 2009, 15:35
Rufname:

AW: Suche in Unterformular funzt nicht - AW: Suche in Unterformular funzt nicht

Nach oben
       Version: Office 2003

Hi Jörg!

Danke dass Du dich noch einmal meldest.
Ich verzweifele fast, da dein Code nicht funzt - sehe keinen Fehler ?!
Ich habe einen Teilerfolg mit einem Makro erreicht:
Code:
Private Sub H_suchen_name_Exit(Cancel As Integer)
    Dim feld As Control
   
    Set feld = Forms!start_form!H_suchen_name
    If feld.Value <> "" Then
        DoCmd.RunMacro "suchen.suchen3"
        Forms!start_form!H_suchen_name = Null
    End If
End Sub
Gebe ich einen Namen in das Suchfeld ein, und der Name ist im UFo vorhanden, springt der Curser auf den gefundenen Namen im UFo.
Ist der Name nicht im UFo, springt der Curser auf den ersten Datensatz.
Ich möchte aber erreichen, dass in diesem Fall eine Meldung ausgegeben wird.
Dazu habe ich im Makro eine Bedingung eingegeben, die aber nicht funzt:
Code:
[H_suchen_name] <>[Forms]![Schützen_unterformular1]![name]
Wo liegt der Fehler ?

Gruß
Jogi
JörgG
Access-Team


Verfasst am:
26. Apr 2009, 18:23
Rufname:
Wohnort: b. Dresden

AW: Suche in Unterformular funzt nicht - AW: Suche in Unterformular funzt nicht

Nach oben
       Version: Office 2003

Hallo,

Embarassed Du hast einen halb funktionierenden Code und fängst dann mit Makros an Confused

Pack doch das SetFocus in die 2. If-Anweisung:
Code:
Private Sub suchen_name_Exit(Cancel As Integer)
    If Nz(Me!suchen_name, "") <> "" Then
        With Me!SCHÜTZEN_Unterformular1
            .Form.Recordset.FindFirst "[name] = '" & Me!suchen_name & "'"
            If .Form.Recordset.NoMatch Then
                MsgBox Me!suchen_name & ", nicht gefunden!", vbInformation, ""
                Me!suchen_name.SetFocus
              Else
                Me!suchen_name = Null
                .SetFocus
                .Form!Nachname.SetFocus
            End If
        End With
    End If
End Sub

_________________
MfG, Jörg Very Happy

Bitte das Feedback nicht vergessen.
Scheibenmitte
Einsteiger


Verfasst am:
26. Apr 2009, 19:56
Rufname:

AW: Suche in Unterformular funzt nicht - AW: Suche in Unterformular funzt nicht

Nach oben
       Version: Office 2003

Hi Jörg !

SUPER !!!!!!
Die Hartneckigkeit hat sich gelohnt - funzt prima.
Ihr leistet wirklich ganze Arbeit!

Ein kleiner Fehler ist noch drin:
Wenn der Suchbegriff nicht im Formular ist, wird der Eingabewert nicht gelöscht?!

Habe die kleine Änderung vorgenommen - soviel hab ich von euch schon gelernt Very Happy

Gruß
Jogi
Desert-Fox
Neu aber ehrgeizig


Verfasst am:
27. Apr 2009, 09:20
Rufname:

AW: Suche in Unterformular funzt nicht - AW: Suche in Unterformular funzt nicht

Nach oben
       Version: Office 2003

Guten Morgen zusammen.

Ich stehe auch ein wenig auf dem Schlauch. Habe jetzt schon viel zu diesem Thema gelesen aber für mein Vorhaben brachte das immer noch nicht den erhofften Erfolg.

Ich habe 2 Tabellen

Tabelle1: Fertigungshilfsmittel
FHMID as Primärschlüssel (kein Autowert)
...

Tabelle2: Inspektionen
InspektionsID als Primärschlüssel (Autowert)
FHMID
...

In einem Formular schaue ich mir alle Daten aus der TB_Fertigungshilfsmittel an. Mit einem Unterformular kann ich mir auch die dazugehörigen Inspektionen anschauen. Da allerdings nicht alle DS in einer Zeile dargestellt werden können, wollte ich einen Button vor dem Datensatz legen um mir den einzelnen Datensatz in einem neuem Formular anzeigen zu lassen.

Mein Code für den btnInspAnz sieht wiefolgt aus
Code:
Private Sub btnInspAnz_Click()
    Dim inspektion As Integer
   
    inspektion = Me.InspektionsID
    DoCmd.OpenForm "fo_inspektionen"
    With Forms!fo_inspektionen.Recordset
        .FindFirst "InspektionsID='" & inspektion & "'"
        If .NoMatch Then
            MsgBox "Kein passender Datensatz gefunden"
            Exit Sub
        End If
    End With
End Sub
Ich bekomme immer die Meldung "Datentypen im Kriterienausdurck unverträglich". Ich habe die Variable Inspektion schon alle denkbaren Datentypen zugewiesen. Leider ohne Erfolg. Kann mir jemand weiterhelfen?

Gruß
David
KlausMz
Moderator Access


Verfasst am:
27. Apr 2009, 09:43
Rufname:
Wohnort: Irgendwo in der Pfalz

AW: Suche in Unterformular funzt nicht - AW: Suche in Unterformular funzt nicht

Nach oben
       Version: Office 2003

Hallo,
wenn eine Zahl übergeben wird, was ich bei ID annehme, sind die Hochkomma falsch und führen zum Fehler.
Code:
Private Sub btnInspAnz_Click()
    DoCmd.OpenForm "fo_inspektionen"
    With Forms!fo_inspektionen.Recordset
        .FindFirst "InspektionsID = " & Me!InspektionsID
        If .NoMatch Then
            MsgBox "Kein passender Datensatz gefunden"
            Exit Sub
        End If
    End With
End Sub
Die Variable wird nicht gebraucht. Beachte auch, nach Me ein Rufzeichen, kein Punkt.
Siehe hierzu:
FAQ 6.3 Punkt und Rufzeichen

_________________
Gruß
Klaus . . . . . Feedback wäre wünschenswert.
Ich möchte bitte keine unaufgeforderten PN. Fragen bitte im Forum.


Zuletzt bearbeitet von KlausMz am 27. Apr 2009, 10:09, insgesamt einmal bearbeitet
Desert-Fox
Neu aber ehrgeizig


Verfasst am:
27. Apr 2009, 10:01
Rufname:


AW: Suche in Unterformular funzt nicht - AW: Suche in Unterformular funzt nicht

Nach oben
       Version: Office 2003

Hallo KlausMZ,

danke! Das war es gewesen. Manchmal sieht man einfach vor lauter Bäumen den Wald nicht mehr.

Gruß
David
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
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: Abfrage-Kriterium aus Register Unterformular 2 Bullett 2113 05. Sep 2007, 21:44
Bullett Abfrage-Kriterium aus Register Unterformular
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage: Suche nach DS, die keine Verkn. in a. Tab haben 2 Wolfgang 1958 468 04. Sep 2007, 19:20
Wolfgang 1958 Abfrage: Suche nach DS, die keine Verkn. in a. Tab haben
Keine neuen Beiträge Access Tabellen & Abfragen: Befehlsschaltläche bezieht sich auf Unterformular! 12 seppel27 808 15. Aug 2007, 13:07
seppel27 Befehlsschaltläche bezieht sich auf Unterformular!
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Access Tabellen & Abfragen: Verknüpfen von Tabellen für eine Suche über Formular 1 Hunchback 579 04. Apr 2007, 15:54
Willi Wipp Verknüpfen von Tabellen für eine Suche über Formular
Keine neuen Beiträge Access Tabellen & Abfragen: Textfeld an Unterformular binden 1 RobiMaverick 2392 13. März 2007, 17:20
Thomas2007 Textfeld an Unterformular binden
Keine neuen Beiträge Access Tabellen & Abfragen: kombinierte Suche für access, excel UND powerpoint? 1 mariechen80 699 05. Jan 2007, 20:08
Nouba kombinierte Suche für access, excel UND powerpoint?
Keine neuen Beiträge Access Tabellen & Abfragen: Datensätze mit zig Variationen (Suche Denkanstoß!) 4 ee547 788 01. Nov 2006, 21:13
Nouba Datensätze mit zig Variationen (Suche Denkanstoß!)
Keine neuen Beiträge Access Tabellen & Abfragen: Suchfeld nach Suche leeren 2 fips1985 1391 08. Sep 2006, 10:05
fips1985 Suchfeld nach Suche leeren
Keine neuen Beiträge Access Tabellen & Abfragen: Listenfeld als Parameterquelle für Abfrage funzt nicht 6 dornsat23 980 07. Sep 2006, 14:18
Highlander Listenfeld als Parameterquelle für Abfrage funzt nicht
Keine neuen Beiträge Access Tabellen & Abfragen: Problem: Parameter-Abfrage aus einem Unterformular ausführen 3 bettina_vt 3427 12. Mai 2006, 15:44
bettina_vt Problem: Parameter-Abfrage aus einem Unterformular ausführen
Keine neuen Beiträge Access Tabellen & Abfragen: Suche nach einer Eingabevariablen in der Select-Zeile 1 neuer Gast 496 21. Feb 2006, 16:17
rita2008 Suche nach einer Eingabevariablen in der Select-Zeile
Keine neuen Beiträge Access Tabellen & Abfragen: Suche Makroaktion um Tabellenerstellungsabfrage auszuführen 0 Steph@n 582 20. Jul 2005, 16:05
Steph@n Suche Makroaktion um Tabellenerstellungsabfrage auszuführen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Word Serienbriefe