Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Suchfunktion basteln
zurück: Textfeld von einem Formular in ein Bericht übernehmen. weiter: Formular lässt sich nicht erstellen 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
Arno
Gast


Verfasst am:
07. Feb 2005, 22:03
Rufname:

Suchfunktion basteln - Suchfunktion basteln

Nach oben
       

Hallo,

ich bin ein Datenbank Newbie und nutze Access 2000. Ich hätte gerne von euch gewusst, wie ich eine Suchanfrage innerhalb eines Formulars per Button so gestalten kann, dass ich:
1.) die entsprechenden Daten aufgrund meines Parameters (z.B. Lieferanten-Nr.) bekomme und
2. nicht nur ein Ergebnis gefiltert wird, also Datensatz 1 von 1, sondern das der Cursor z.B. auf Datensatz 8 von 15 springt.
Die Funktion soll sich immer wieder ausführen lassen können.

Lässt sich sowas mit einem Makro umsetzen??


Vielen Dank im voraus

Arno
Fitim
Access2000


Verfasst am:
08. Feb 2005, 16:02
Rufname:

AW: Suchfunktion basteln - AW: Suchfunktion basteln

Nach oben
       

Hi
Hilft dir die Interne Suchfunktion nicht weiter erstell doch mit dem Assistenten einen Button Datensatznavigation Datensatz suchen auswählen
Dadurch wird das Suchfenster von Microsoft geöffnet wie Strg+F.
Oder muss es etwas spezieller sein dann probier mal das:
Code:
'Bewirkt dass auf Knopfdruck der Datensatz mit der Rechnungsnummer
'im Textfeld hier Text129 gesucht wird.
'Verglichen wird die Spalte Rechnungsnummer.
Private Sub BefehlSuchen_Click()
On Error GoTo Err_BefehlSuchen_Click
    Dim rsRechnung As DAO.Recordset
   
    Set rsRechnung = Me.RecordsetClone
    'Wenn der Wert im Textfeld Null ist erfolgt diese Fehlermeldung in "XXX".
    If IsNull(Me!Text89) Then
        MsgBox "Bitte geben Sie eine Rechnungsnummer ein.", _
               vbInformation + vbOKOnly, "Eingabe"
        Me!Text89.SetFocus
        Exit Sub
      Else
        If IsNumeric(Me!Text89) Then
          Else
            MsgBox "Die Rechnungsnummer darf nur Zahlen enthalten.", _
            vbInformation + vbOKOnly, "Eingabe"
            Me!Text89.SetFocus
            Exit Sub
        End If
        rsRechnung.FindFirst "Rechnungsnummer = " & Me!Text89
        If rsRechnung.NoMatch Then
            MsgBox "Es gibt keinen Datensatz mit dieser Rechnungsnummer!", _
                   vbInformation + vbOKOnly, "Datensatz"
            Me!Text89.SetFocus
            Exit Sub
        End If
        Me.Bookmark = rsRechnung.Bookmark
    End If
 
Exit_BefehlSuchen_Click:
    Exit Sub
Err_BefehlSuchen_Click:
    MsgBox Err.Description & " Datensatzsuche nicht erfolgreich. ", _
           vbOKOnly + vbInformation, "BefehlSuchen klick"
    Resume Exit_BefehlSuchen_Click
End Sub

Text89 ist ein Textfeld in dass du die zu suchende Nummer eingeben musst halt noch auf dein Feld LieferantenNr anpassen.
das legst du hinter einen Button Name "BefehlSuchen"

bei mir funktionierts mit der Rechnungsnummer.


Gruß Fitim
Gast



Verfasst am:
08. Feb 2005, 20:44
Rufname:


AW: Suchfunktion basteln - AW: Suchfunktion basteln

Nach oben
       

Hallo!

Vielen Dank für deine Tips. Dein erster Vorschlag reicht mir eigentlich schon. Smile
Klappt ganz gut.

Gruß

Arno
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 Formulare: Suchfunktion mit mehreren Suchbegriffen (dringend) 1 SuZ 185 27. Okt 2009, 22:32
ebs17 Suchfunktion mit mehreren Suchbegriffen (dringend)
Keine neuen Beiträge Access Formulare: Suchfunktion im Unterformular 15 Tom_hh 593 22. Jul 2009, 04:59
Willi Wipp Suchfunktion im Unterformular
Keine neuen Beiträge Access Formulare: suchfunktion 6 idefux 385 17. Jul 2008, 11:12
idefux suchfunktion
Keine neuen Beiträge Access Tabellen & Abfragen: Suchfunktion mit VBA Access 1 Subara 1319 31. Okt 2007, 23:32
rita2008 Suchfunktion mit VBA Access
Keine neuen Beiträge Access Formulare: Suchfunktion innerhalb eines Formulars 12 *kitty*rosa 907 29. Okt 2007, 17:46
Köbi Suchfunktion innerhalb eines Formulars
Keine neuen Beiträge Access Formulare: Datenfilter/Suchfunktion 2 Numele 497 17. Sep 2007, 12:36
Gast Datenfilter/Suchfunktion
Keine neuen Beiträge Access Formulare: Suchfunktion 5 djme2k 385 15. Aug 2007, 22:32
Willi Wipp Suchfunktion
Keine neuen Beiträge Access Formulare: suchfunktion 3 asak 502 29. Nov 2006, 11:44
Willi Wipp suchfunktion
Keine neuen Beiträge Access Formulare: Suchfunktion drucken 1 Gast 482 08. Aug 2006, 11:33
james35 Suchfunktion  drucken
Keine neuen Beiträge Access Formulare: Suchfunktion Problem 6 Gast 601 04. Jul 2006, 10:50
Gast Suchfunktion Problem
Keine neuen Beiträge Access Tabellen & Abfragen: Suchfunktion mit anzeige des datensatzes 0 hannibal160383 590 28. März 2006, 23:42
hannibal160383 Suchfunktion mit anzeige des datensatzes
Keine neuen Beiträge Access Formulare: Suchfunktion innerhalb eines Formulars!!!!! 4 Accessomat 604 25. März 2006, 20:20
jens05 Suchfunktion innerhalb eines Formulars!!!!!
 

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