Office: "Ben.-def. Typ nicht gefunden"

Hallo!

Ich habe ein kleines Problem beim Suchen nach Daten in einer Tabelle, und zwar erscheint die Meldung "Benutzerdefinierter Typ nicht gefunden", wenn ich auf einen Button klick, der folgendes bewirkt:

In Feld "Eingabe" wird ein Wert "A" eingetragen, zu diesem Wert ist in Tabelle "Tab" ein bestimmer Wert "B" zugeordnet. Drückt man den Knopf wird "B" in einem Feld "Ausgabe" ausgegeben.

Wo liegt denn da das Problem?
Habe den Quelltext aus einem Beispielprogramm, dort geht es.

Quelltext:
Private Sub Befehltpos_Click()
On Error GoTo fehler

Dim db As Database
Dim rs As Recordset
Dim Krit As String

If IsNull(Eingabe) Then
MsgBox "Bitte Such-Wert eingeben."
Eingabe.SetFocus
Else
Set db = CurrentDb()
Set rs = db.OpenRecordset("Tab, dbOpenSnapshot)
Krit = "SpalteA='" & Eingabe & "'"
rs.FindFirst Krit
If rs.NoMatch Then
MsgBox "Wert nicht gefunden."
Else
Ausgabe = rs!SpalteB
End If
End If

ende:
Exit Sub
End Sub

 

Vermutlich verwendest du Access ab Version 2000 (oder höher!).
Hierbei wird von MS lustigerweise ADO vorausgesetzt. Die von dir verwendete Syntax gehört jedoch zur ObjectLibrary von DAO. Ergo musst du zunächst in einem Modul auf den Menüpunkt Extras - Verweise gehen und dort in der Liste den Verweis auf MS DAO 3.x aktivieren.

auch solltest du dir für diese Access-Versionen eine neue (sauberere) Schreibweise merken:
Dim DB as DAO.Database
Dim RS as DAO.Recordset
(um explizit auf DAO zu verweisen!)

BTW: Exit Sub unmittelbar vor End Sub kannst du dir sparen....