PDA

Vollständige Version anzeigen : Suchformular mit Radio-Buttons (für Kriterien)


Chillflash
22.10.2001, 13:29
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 :-)

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

Manuela Kulpa
22.10.2001, 20:26
<font face="Verdana" size="2">Hallo Chillflash!

Kleiner Tipp am Rande ;), <a href="http://www.donkarl.com" target="_blank">FAQs von Karl Donaubauer</a> - speziell

<a href="http://www.donkarl.com/FAQ/FAQ7Bugs.htm#7.11" target="_blank">FAQ 7.11 - Dim DB As Database in A00 bringt Fehler</a>

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:

<a href="http://www.donkarl.com/FAQ/FAQ6VBA.htm#6.8" target="_blank">FAQ 6.8 - Datum an SQL-String übergeben</a>

vg</font>