Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Datensatz-Suche mit "weiter"-Button klappt nicht
Gehe zu Seite 1, 2  Weiter
zurück: Access Eingabeformular/Formular erstellen weiter: Vieleicht ein Unterformular? 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:
17. Jul 2009, 17:51
Rufname:

Datensatz-Suche mit "weiter"-Button klappt nicht - Datensatz-Suche mit "weiter"-Button klappt nicht

Nach oben
       Version: Office 2003

Hallo zusammen!
Ich brauche als blutiger Anfänger mal wieder eure Hilfe.
In einem Formular habe ich ein Textfeld mit einer Suchfunktion hinterlegt, die auch funzt:
Code:
Private Sub H_suchen_name_Exit(Cancel As Integer)
    Dim feld As Control
    Dim feld2 As Control
   
    Set feld = Forms!SCHÜTZEN1!H_suchen_name
    Set feld2 = Forms!SCHÜTZEN1!suchen1
    If feld.Value <> "" Then
        feld2.Visible = True
        With Me.Recordset
            .FindFirst "[name] = '" & Me!H_suchen_name & "'"
            If .NoMatch Then
                MsgBox Me!H_suchen_name & " ist nicht in der Liste !", _
                       vbExclamation, " L E I D E R . . . "
            End If
        End With
        feld.Value = ""
        Me!Name.SetFocus
      ElseIf feld.Value = "" Then
        Forms!SCHÜTZEN1!H_suchen_name.SetFocus
    End If
End Sub
Jetzt möchte ich mit dem Button "suchen1" nach weiteren Datensätzen mit dem gleichen Namen suchen, was mir allerdings nicht gelingt.
Welchen Code muss ich "beim Klicken" einfügen ?

Ich hoffe, ich habe mich verständlich ausgedrückt, und jemand kann mir helfen.
MiLie
kein Office- VBA- Programmierer


Verfasst am:
17. Jul 2009, 17:59
Rufname: Micha
Wohnort: Chemnitz


AW: Datensatz-Suche mit "weiter"-Button klappt nic - AW: Datensatz-Suche mit "weiter"-Button klappt nic

Nach oben
       Version: Office 2003

Hallo,

wenn du auf FindFirst den Cursor setzt und mal die Hilfe (F1-Taste) bemühst, wird dir auch der Begriff FindNext gezeigt Wink

_________________
Viele Grüße

Micha

Schreibfehler die Ihr findet, könnt Ihr behalten
Scheibenmitte
Einsteiger


Verfasst am:
17. Jul 2009, 18:37
Rufname:

AW: Datensatz-Suche mit "weiter"-Button klappt nic - AW: Datensatz-Suche mit "weiter"-Button klappt nic

Nach oben
       Version: Office 2003

Danke Micha für die schnelle Antwort,
aber wie sieht dann der Eintrag in der Ereignisprozedur aus ??
Ich habe es auch schon mit einem Makro versucht, aber alles ohne Erfolg.
Kannst Du mir noch einmal weiterhelfen?
MiLie
kein Office- VBA- Programmierer


Verfasst am:
17. Jul 2009, 18:51
Rufname: Micha
Wohnort: Chemnitz

AW: Datensatz-Suche mit "weiter"-Button klappt nic - AW: Datensatz-Suche mit "weiter"-Button klappt nic

Nach oben
       Version: Office 2003

hallo,
na genauso wie oben nur eben mit der FindNext-Methode
nehme das klickereignis des button

_________________
Viele Grüße

Micha

Schreibfehler die Ihr findet, könnt Ihr behalten
Scheibenmitte
Einsteiger


Verfasst am:
17. Jul 2009, 19:03
Rufname:


AW: Datensatz-Suche mit "weiter"-Button klappt nic - AW: Datensatz-Suche mit "weiter"-Button klappt nic

Nach oben
       Version: Office 2003

Entschuldige, aber ich stehe auf dem Schlauch !
Habe es so versucht, klappt aber nicht:
Code:
Private Sub suchen1_Click()
    With Me.Recordset
        . FindNext "[name] = '" & Me!H_suchen_name & "'"
    End With
MiLie
kein Office- VBA- Programmierer


Verfasst am:
17. Jul 2009, 19:15
Rufname: Micha
Wohnort: Chemnitz

AW: Datensatz-Suche mit "weiter"-Button klappt nic - AW: Datensatz-Suche mit "weiter"-Button klappt nic

Nach oben
       Version: Office 2003

Hallo,

was klappt denn nicht?

_________________
Viele Grüße

Micha

Schreibfehler die Ihr findet, könnt Ihr behalten
MissPh!
Office-VBA-Programmiererin


Verfasst am:
17. Jul 2009, 19:38
Rufname:
Wohnort: NRW

AW: Datensatz-Suche mit "weiter"-Button klappt nic - AW: Datensatz-Suche mit "weiter"-Button klappt nic

Nach oben
       Version: Office 2003

Hallo,

das Problem ist, dass du mit feld.Value = "" dein Suchfeld löschst, darum klappt's natürlich nicht mit dem Weitersuchen.

_________________
Gruß MissPh!
Scheibenmitte
Einsteiger


Verfasst am:
18. Jul 2009, 01:34
Rufname:

AW: Datensatz-Suche mit "weiter"-Button klappt nic - AW: Datensatz-Suche mit "weiter"-Button klappt nic

Nach oben
       Version: Office 2003

Hallo !
Natürlich, vielen Dank für den Hinweis.
Der "Weiter"-Button funzt jetzt mit einem kleinen Schönheitsfehler. Ich bekomme das Textfeld nicht mehr geleert:
Code:
Private Sub suchen1_Click()
    With Me.Recordset
        .FindNext "[name] = '" & Me!H_suchen_name & "'"
        If .NoMatch Then _
            MsgBox "Mehr Schützen mit diesem Namen sind nicht in der Liste", _
                   , " Das war´s "
    End With
End Sub
Wie muss der Code ergänzt werden, damit nach Anzeige des letzten gefundenen Datensatzes das Eingabefeld gelöscht wird ?
MissPh!
Office-VBA-Programmiererin


Verfasst am:
18. Jul 2009, 09:39
Rufname:
Wohnort: NRW

AW: Datensatz-Suche mit "weiter"-Button klappt nic - AW: Datensatz-Suche mit "weiter"-Button klappt nic

Nach oben
       Version: Office 2003

Das wäre dann wohl die geeignete Stelle zum Löschen des Suchfeldes:
Code:
        If .NoMatch Then _
            MsgBox "Mehr Schützen mit diesem Namen sind nicht in der Liste", _
                   , " Das war´s "
            Me!!H_suchen_name = ""
        End If

_________________
Gruß MissPh!
Gast



Verfasst am:
18. Jul 2009, 10:37
Rufname:

AW: Datensatz-Suche mit "weiter"-Button klappt nic - AW: Datensatz-Suche mit "weiter"-Button klappt nic

Nach oben
       Version: Office 2003

So habe ich auch gedacht - leider falsch.
In diesem Fall wird der dritte Eintrag nicht mehr gefunden, weil das Textfeld vorher geleert wird.
Ich habe immer noch keine Lösung gefunden, bin für Hinweise dankbar.
MissPh!
Office-VBA-Programmiererin


Verfasst am:
18. Jul 2009, 10:50
Rufname:
Wohnort: NRW

AW: Datensatz-Suche mit "weiter"-Button klappt nic - AW: Datensatz-Suche mit "weiter"-Button klappt nic

Nach oben
       Version: Office 2003

Das verstehe ich nicht. Confused
Wenn du bei NoMatch das Suchfeld löschst, sollte zu dem Zeitpunkt doch alles gefunden sein, was zu dem Suchbegriff passt.

Ich vermute, du hast den Code nicht 1:1 übernommen...

_________________
Gruß MissPh!


Zuletzt bearbeitet von MissPh! am 18. Jul 2009, 10:51, insgesamt einmal bearbeitet
MiLie
kein Office- VBA- Programmierer


Verfasst am:
18. Jul 2009, 10:51
Rufname: Micha
Wohnort: Chemnitz

AW: Datensatz-Suche mit "weiter"-Button klappt nic - AW: Datensatz-Suche mit "weiter"-Button klappt nic

Nach oben
       Version: Office 2003

Hallo,

zeige mal deinen completten Code, .
Warum filterst u mit der Suche nicht, dann siehst du sofort alle gesuchten Datensätze, somit ersparst du dir das Weitersuchen Wink

_________________
Viele Grüße

Micha

Schreibfehler die Ihr findet, könnt Ihr behalten
Gast



Verfasst am:
18. Jul 2009, 11:48
Rufname:

AW: Datensatz-Suche mit "weiter"-Button klappt nic - AW: Datensatz-Suche mit "weiter"-Button klappt nic

Nach oben
       Version: Office 2003

Hier der Code:
Code:
' Textfeld Suche:
Private Sub H_suchen_name_Exit(Cancel As Integer)
    If Nz(Me!H_suchen_name, "") <> "" Then
        Me!suchen1.Visible = True
        With Me.Recordset
            .FindFirst "[name] = '" & Me!H_suchen_name & "'"
            If .NoMatch Then _
                MsgBox Me!H_suchen_name & " ist nicht in der Liste !", _
                       vbExclamation, "  L E I D E R . . . "
            End With
            Me!Name.SetFocus
      ElseIf Me!H_suchen_name.Value = "" Then
        Forms!SCHÜTZEN1!H_suchen_name.SetFocus
    End If
End Sub

' Weiter Button:
Private Sub suchen1_Click()
    With Me.Recordset
        .FindNext "[name] = '" & Me!H_suchen_name & "'"
        If .NoMatch Then _
            MsgBox "Mehr Schützen mit diesem Namen sind nicht in der Liste", _
                   , " Das war´s "
        Me!H_suchen_name = ""
    End With
End Sub
Der Vorschlag von Micha wär zwar eine gute Lösung, aber für mich als Anfänger zu schwierig.
MissPh!
Office-VBA-Programmiererin


Verfasst am:
18. Jul 2009, 12:20
Rufname:
Wohnort: NRW

AW: Datensatz-Suche mit "weiter"-Button klappt nic - AW: Datensatz-Suche mit "weiter"-Button klappt nic

Nach oben
       Version: Office 2003

Ich sagte es bereits: Nimm den Code aus meinem Vorschlag und erkenne den Unterschied.
Auf das Mitdenken sollte nicht verzichtet werden!

_________________
Gruß MissPh!
MiLie
kein Office- VBA- Programmierer


Verfasst am:
18. Jul 2009, 12:32
Rufname: Micha
Wohnort: Chemnitz


AW: Datensatz-Suche mit "weiter"-Button klappt nic - AW: Datensatz-Suche mit "weiter"-Button klappt nic

Nach oben
       Version: Office 2003

Hallo,
@missPH, na du stellst ja schwierige Aufgaben Wink

@Gast

hier handelt es sich um einen reinen Formfehler,als tipp

if sollte end if folgen, wenn nicht wird alles nach der IF -Befehlszeile immer ausgeführt, schaue dir deine IF-Zeile genau an

das "_" zeichen verlängert nur eine befehlszeile in die nächste Zeile

_________________
Viele Grüße

Micha

Schreibfehler die Ihr findet, könnt Ihr behalten
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: in Access den - Preis mit einem Button prozentual ändern 5 Gast 186 08. Mai 2013, 20:02
manfred72 in Access den - Preis mit einem Button prozentual ändern
Keine neuen Beiträge Access Tabellen & Abfragen: Eingaben per Button berechnen lassen 14 ChrissX 291 24. März 2013, 13:29
ChrissX Eingaben per Button berechnen lassen
Keine neuen Beiträge Access Tabellen & Abfragen: Excel Tabellen per Button miteinander verknüpfen 0 Sebastian23 1097 18. Feb 2010, 16:08
Sebastian23 Excel Tabellen per Button miteinander verknüpfen
Keine neuen Beiträge Access Tabellen & Abfragen: Hyperlink bearbeiten per Button 11 Speedy2114 5110 02. Dez 2009, 01:14
Gast11 Hyperlink bearbeiten per Button
Keine neuen Beiträge Access Tabellen & Abfragen: Button mit variabler Monatsberschriftung 2 gildemeister 311 27. Jan 2009, 00:50
gildemeister Button mit variabler Monatsberschriftung
Keine neuen Beiträge Access Tabellen & Abfragen: Kriterium per Button im Formular zur Laufzeit ändern 8 ghostX 702 28. Nov 2008, 16:47
ghostX Kriterium per Button im Formular zur Laufzeit ändern
Keine neuen Beiträge Access Tabellen & Abfragen: Button VBA Code zum Verknüpfen aller ODBC -Tabellen 3 adamth 3953 08. Sep 2008, 13:10
rita2008 Button VBA Code zum Verknüpfen aller ODBC -Tabellen
Keine neuen Beiträge Access Tabellen & Abfragen: Mehrere unique Pin-codes per Button erstellen lassen 0 Musi 900 21. Mai 2008, 12:26
Musi Mehrere unique Pin-codes per Button erstellen lassen
Keine neuen Beiträge Access Tabellen & Abfragen: Parameterübergabe klappt nicht bei Kriterium Between.. And.. 2 Knuffi 701 23. Apr 2008, 17:53
Knuffi Parameterübergabe klappt nicht bei Kriterium Between.. And..
Keine neuen Beiträge Access Tabellen & Abfragen: Nach klick auf Button Wav Abspielen 1 roboterbert 3016 19. Feb 2008, 21:06
jens05 Nach klick auf Button Wav Abspielen
Keine neuen Beiträge Access Tabellen & Abfragen: Anzahl(Wenn....... klappt nicht so wie ich will 2 Mirage 588 18. Jun 2007, 10:45
Mirage Anzahl(Wenn....... klappt nicht so wie ich will
Keine neuen Beiträge Access Tabellen & Abfragen: DSum klappt nicht wie gewünscht 2 MeinerEiner06 594 22. Jun 2006, 16:40
MeinerEiner06 DSum klappt nicht wie gewünscht
 

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