Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Meldung bei Suchabfrage anzeigen
zurück: Befehlsschaltfläche: verschiedene Schriftgrößen? weiter: neuen Datensatz in der ersten Zeile einfügen 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:
24. Apr 2009, 11:38
Rufname:

Meldung bei Suchabfrage anzeigen - Meldung bei Suchabfrage anzeigen

Nach oben
       Version: Office 2003

Hallo !

Ich habe mir als Anfänger im Formular ein Text-Suchfeld erstellt, das auch so funzt.
Jetzt möcht ich zusätzlich eine Nachricht anzeigen lassen, wenn die Suche erfolglos war. Leider gelingt mir das nicht - wer kann mir helfen ?

Hier der Code:
Code:
Private Sub suchen_name_Exit(Cancel As Integer)
    Dim strFind   As String
   
    strFind = " [name]  =  ' " & Nz(Me![suchen_name], " ") & " ' "
    Debug.Print strFind
    With Me.RecordsetClone
        .FindFirst strFind
        If Not .EOF Then Me.Bookmark = .Bookmark
    End With
    Forms!Start_form!suchen_name = Null
    Forms!Start_form!Nachname.SetFocus
End Sub
derArb
getting better


Verfasst am:
24. Apr 2009, 15:31
Rufname: derArb
Wohnort: Berlin


AW: Meldung bei Suchabfrage anzeigen - AW: Meldung bei Suchabfrage anzeigen

Nach oben
       Version: Office 2003

Hallo,
Code:
    If .NoMatch Then
wäre eine Möglichkeit

mfg
derArb

_________________
MfG
derArb

Scio me nihil scire...Εν οίδα οτι ουδέν οίδα... Ich weiss, dass ich nichts weiss (Sokrates)
Ich bevorzuge Beiträge mit korrekter deutscher Grammatik.
JörgG
Access-Team


Verfasst am:
24. Apr 2009, 15:37
Rufname:
Wohnort: b. Dresden

AW: Meldung bei Suchabfrage anzeigen - AW: Meldung bei Suchabfrage anzeigen

Nach oben
       Version: Office 2003

Hallo,

als Randglosse, seit A2000 musst Du nicht mehr klonen, das vereinfacht den Code:
Code:
Private Sub suchen_name_Exit(Cancel As Integer)
    With Me.Recordset
        .FindFirst "[name] = '" & Nz(Me!suchen_name, "") & "'"
        If .NoMatch Then _
            MsgBox Nz(Me!suchen_name, "") & ", nicht gefunden!", vbInformation, ""
    End With
    Me!suchen_name = Null
    Me!Nachname.SetFocus
End Sub

_________________
MfG, Jörg Very Happy

Bitte das Feedback nicht vergessen.
Gast



Verfasst am:
24. Apr 2009, 16:53
Rufname:

AW: Meldung bei Suchabfrage anzeigen - AW: Meldung bei Suchabfrage anzeigen

Nach oben
       Version: Office 2003

Hallo Jörg !

Vielen Dank für die Hilfe!!
Die Box funzt, wird aber jetzt auch bei vorhandenen Datensätzen angezeigt.
Kannst Du evtl. den Code korrigieren, wäre sehr dankbar.

Gruß
Jogi
Gast



Verfasst am:
24. Apr 2009, 17:09
Rufname:


AW: Meldung bei Suchabfrage anzeigen - AW: Meldung bei Suchabfrage anzeigen

Nach oben
       Version: Office 2003

Hallo Jörg !

Entschuldige, war mein Fehler - falsche Eingabe.
Vielen Dank für die schnelle Hilfe!!

Gruß
Jogi
JörgG
Access-Team


Verfasst am:
24. Apr 2009, 17:12
Rufname:
Wohnort: b. Dresden

AW: Meldung bei Suchabfrage anzeigen - AW: Meldung bei Suchabfrage anzeigen

Nach oben
       Version: Office 2003

Hallo,

probiere es so:
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

_________________
MfG, Jörg Very Happy

Bitte das Feedback nicht vergessen.
Gast



Verfasst am:
24. Apr 2009, 19:11
Rufname:

AW: Meldung bei Suchabfrage anzeigen - AW: Meldung bei Suchabfrage anzeigen

Nach oben
       Version: Office 2003

Gast am 24. Apr 2009 um 18:04 hat folgendes geschrieben:
Hallo Jörg !

Hat geklappt, Danke für die promte Hilfe!

Gruß
Jogi

Jetz hab ich doch noch eine Nachfrage:
Ist der Code für ein numerisches Suchfeld gleich ?
Wollte es dort anwenden, aber funzt nicht.
Kannst Du mir noch einmal helfen?

Gruß
Jogi
KlausMz
Moderator Access


Verfasst am:
24. Apr 2009, 19:34
Rufname:
Wohnort: Irgendwo in der Pfalz

AW: Meldung bei Suchabfrage anzeigen - AW: Meldung bei Suchabfrage anzeigen

Nach oben
       Version: Office 2003

Hallo,
nein, gerinfügig anders, ohne die Hochkomma.
Code:
        .FindFirst "[NumFeld] = " & Me!suchen_NumFeld

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



Verfasst am:
25. Apr 2009, 00:49
Rufname:


AW: Meldung bei Suchabfrage anzeigen - AW: Meldung bei Suchabfrage anzeigen

Nach oben
       Version: Office 2003

Hallo Klaus !

Vielen Dank !!!!

Gruß
Jogi
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: nur einmal anzeigen 4 bohne 674 21. Okt 2005, 16:22
bohne nur einmal anzeigen
Keine neuen Beiträge Access Tabellen & Abfragen: Berechnung im Listenfeld anzeigen? 3 Schnoop 804 20. Okt 2005, 08:24
Timbo Berechnung im Listenfeld anzeigen?
Keine neuen Beiträge Access Tabellen & Abfragen: Abos die ablaufen Anzeigen lassen ? 1 reneschaub 477 04. Okt 2005, 18:56
jens05 Abos die ablaufen Anzeigen lassen ?
Keine neuen Beiträge Access Tabellen & Abfragen: Suchabfrage 4 Heinz-Erich 695 30. Aug 2005, 14:18
FiFo Suchabfrage
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage in Formular anzeigen, und dann sortieren 1 christian_10 597 22. Aug 2005, 13:28
lothi Abfrage in Formular anzeigen, und dann sortieren
Keine neuen Beiträge Access Tabellen & Abfragen: Bei "Eingabe erforderlich" Meldung geben 5 renott 3756 15. Jun 2005, 11:35
Willi Wipp Bei "Eingabe erforderlich" Meldung geben
Keine neuen Beiträge Access Tabellen & Abfragen: gruppieren-beide texteintraege anzeigen 7 paty 1196 14. Jun 2005, 02:54
tobes gruppieren-beide texteintraege anzeigen
Keine neuen Beiträge Access Tabellen & Abfragen: Access 2002 - Primärschlüssel mit Gültgkeitsregel/Meldung ? 6 Icelight 1004 06. Jun 2005, 10:35
Willi Wipp Access 2002 - Primärschlüssel mit Gültgkeitsregel/Meldung ?
Keine neuen Beiträge Access Tabellen & Abfragen: Reservierter Fehler (-1517); es gibt keine Meldung für ... 1 Matthiasmms 2719 27. Apr 2005, 19:08
romu Reservierter Fehler (-1517); es gibt keine Meldung für ...
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrageergebnis als neues Formular anzeigen 2 mila 3034 12. Apr 2005, 12:38
mila Abfrageergebnis als neues Formular anzeigen
Keine neuen Beiträge Access Tabellen & Abfragen: alle Kunden mit letzter Rechnung anzeigen 2 Dalmatinchen 1109 08. März 2005, 20:58
Dalmatinchen alle Kunden mit letzter Rechnung anzeigen
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage mit sum, max Wert und verhätnis summe/max anzeigen? 1 IV 2531 04. Nov 2004, 18:14
Skogafoss Abfrage mit sum, max Wert und verhätnis summe/max anzeigen?
 

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