MS-Office-Forum

Zurück   MS-Office-Forum > Archive > Microsoft Access - Archiv > Microsoft Access - Archiv (2001)
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 22.10.2001, 13:29   #1
Chillflash
Standard Suchformular mit Radio-Buttons (für Kriterien)

Hallo Leute,

ich hoffe, es kann mir hier jemand helfen. Hab folgenden VBA-Code für mein Suchfeld erstellt, aber leider krieg ich beim Ausführen immer wieder die Fehlermeldung:
"Fehler beim Kompilieren: Methode oder Datenbankobjekt nicht gefunden"
und dann öffnet sich der VBA-Editor und springt zu der Zeile, wo steht: "rs.FindFirst..."
Was mach ich denn da falsch?

Hoffe, es ist jemand so nett und hilft mir da weiter :-)

Code:

Private Sub cmd_Suchen_Click()
On Error GoTo EH:
Dim dummy As Variant
Dim s As String
dummy = Rahmen66.Value

Select Case dummy
    Case 1: s = "Datum"
            Search s
    Case 2: s = "Name"
            Search s
    Case 3: s = "Vorname"
            Search s
    Case 4: s = "GebDat"
            Search s
    Case 5: s = "Verletzungsart"
            Search s
    Case 6: s = "Werk"
            Search s
    Case 7: s = "T_Positionen.Position"
            Search s
    Case 8: s = "Unfallort"
            Search s
    Case 9: s = "Bezeichnung"
            Search s
End Select
Exit Sub
EH:
    MsgBox Err.Description
    Exit Sub
End Sub

Private Sub Search(feld As String)
Dim rs As Recordset
    Set rs = Me.RecordsetClone
    rs.Bookmark = Me.Bookmark
    Select Case cmd_Suchen.Caption
      Case "Suche starten":
            rs.FindFirst feld & " like '" & Suchfeld.Value & "*'"
            
      Case "weitersuchen":
            rs.FindNext feld & " like '" & Suchfeld.Value & "*'"
    End Select
    
    If Not rs.NoMatch Then
        Me.Bookmark = rs.Bookmark
        cmd_Suchen.Caption = "weitersuchen"
        lbl_Ergebnis.Caption = "entsprechende Datensätze gefunden!"
        lbl_Ergebnis.ForeColor = 32768
    Else
        cmd_Suchen.Caption = "Suche starten"
        lbl_Ergebnis.Caption = "keine Datensätze gefunden!"
        lbl_Ergebnis.ForeColor = 255
    End If
End Sub
 
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 22.10.2001, 20:26   #2
Manuela Kulpa
MOF Meister
MOF Meister
Standard

Hallo Chillflash!

Kleiner Tipp am Rande , FAQs von Karl Donaubauer - speziell

FAQ 7.11 - Dim DB As Database in A00 bringt Fehler

Zudem bezweifle ich, dass du alles mit LIKE abfragen kannst! Könnte da nicht auch ein Datumsfeld bzw. ein numerisches Feld mit reinrutschen !

Zum Datumsfeld noch einen Verweis auf:

FAQ 6.8 - Datum an SQL-String übergeben

vg

__________________

====================================
<a title="Kulpa-Online.com Access und VBA Tipps und Tricks" *****"http://www.kulpa-online.com" target="_blank"><img src="http://www.kulpa-online.de/newsgroup/mof1.png" width="104" height="36" alt="" border="0"/></a> <a title="Kitathek.com - Die erfolgreiche Software f&uuml;r den Kindergarten" *****"http://www.kitathek.com" target="_blank"><img src="http://www.kulpa-online.de/newsgroup/mof2.png" width="104" height="36" alt="" border="0"/></a> <a title="Erblicken.com - Eine Fotosafarie durch NRW" *****"http://www.erblicken.com" target="_blank"><img src="http://www.kulpa-online.de/newsgroup/mof3.png" width="104" height="36" alt="" border="0"/></a>
Manuela Kulpa ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 17:19 Uhr.



Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.