Finden und suchen

12/12/2008 - 15:47 von Werner Günther | Report spam
Hallo NG
Ich hab mal wieder eine Frage.
Folgender Code liefert kein Ergebnis:

Private Sub cmdFindeNamen_Click()

Dim DbDat As DAO.Database
Dim RsDat As DAO.Recordset
Dim strSuchName As String
Set DbDat = Application.CurrentDb
Set RsDat = DbDat.OpenRecordset("tbdaten", dbOpenTable)

strSuchName = "[Nname]Like'*" & InputBox("Bitte die ersten Buchstaben
des Namens eingeben") & "*'"

Set RsDat = Me.RecordsetClone

RsDat.FindFirst strSuchName

If RsDat.NoMatch Then
MsgBox "Keinen Eintrag gefunden.", vbInformation
Else
Me.Bookmark = RsDat.Bookmark
End If

Set RsDat = Nothing
DbDat.Close
End Sub

"noMatch" ist immer Wahr
Viele Grüße Werner
 

Lesen sie die antworten

#1 Karl Donaubauer
12/12/2008 - 16:04 | Warnen spam
Werner Günther wrote:
Folgender Code liefert kein Ergebnis:

Private Sub cmdFindeNamen_Click()

Dim DbDat As DAO.Database
Dim RsDat As DAO.Recordset
Dim strSuchName As String
Set DbDat = Application.CurrentDb
Set RsDat = DbDat.OpenRecordset("tbdaten", dbOpenTable)

strSuchName = "[Nname]Like'*" & InputBox("Bitte die ersten
Buchstaben des Namens eingeben") & "*'"

Set RsDat = Me.RecordsetClone

RsDat.FindFirst strSuchName

If RsDat.NoMatch Then
MsgBox "Keinen Eintrag gefunden.", vbInformation
Else
Me.Bookmark = RsDat.Bookmark
End If

Set RsDat = Nothing
DbDat.Close
End Sub

"noMatch" ist immer Wahr



Dein Code ist ein bissel mysteriös.
Warum setzt du das Recordset zuerst auf eine Tabelle, machst
nix damit, und setzt es dann auf den RecordsetClone des Formulares?

Falls du es eigentlich auf die Tabelle setzen wolltest:
Der Typ dbOpenTable vertràgt sich nicht mit den Find-Methoden.
Das müsstest du z.B. gegen dbOpenDynaset tauschen.

Bist du sicher, dass etwas gefunden werden müsste?
Lass dir z.B. mal mit

debug.print strSuchName

deinen Suchstring im Direktfenster ausgeben, kopiere ihn
testweise in die Eigenschaft "Filter" des Formulares, und
klicke dann in der Formular-Symbolleiste auf "Filter anwenden".
Hast du dann noch Datensàtze im Formular?

HTH
Karl
********* Ich beantworte keine Access-Fragen per Email. *********
Access-FAQ: http://www.donkarl.com

Ähnliche fragen