Fehler: Typen unverträglich

19/02/2009 - 17:21 von Volker Schmitt | Report spam
Hallo zusammen,

ich stehe irgendwie auf dem Schlauch und weiß nicht weiter.
Ich möchte eine Abfrage mehrfach mit unterschiedlichen Werten laufen
lassen und deren Ergebnisse dann als csv exportieren.
Leider bekomme ich schon relativ früh folgende Fehlermeldung:
Fehler13: Typen unvertràglich

Sub Schleife()
Dim dbs As Database, qdf As QueryDef, strSQL As String
Dim Nummer, Dateiname As String
Dim rst As Recordset

Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("Nummern", dbOpenTable)
DoCmd.SetWarnings False
rst.MoveFirst
Do Until rst.EOF = True
Zàhlen = rst![Schlüssel]
If Zàhlen <> "" Then
hier steht die Abfrage
rst.MoveNext
Loop
DoCmd.SetWarnings True
rst.Close
Set rst = Nothing
dbs.Close
Set db = Nothing
End Sub

Der Fehler entsteht schon in der Zeile
Set rst = dbs.OpenRecordset("Nummern", dbOpenTable)

Woran liegt das?
Nummern ist eine Tabelle in der Datenbank.

Gruß
Volker
 

Lesen sie die antworten

#1 Mark Doerbandt
19/02/2009 - 17:23 | Warnen spam
Hallo, Volker,

Volker Schmitt:

Leider bekomme ich schon relativ früh folgende Fehlermeldung:
Fehler13: Typen unvertràglich

Dim dbs As Database, qdf As QueryDef, strSQL As String
Dim Nummer, Dateiname As String
Dim rst As Recordset

Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("Nummern", dbOpenTable)
DoCmd.SetWarnings False
rst.MoveFirst
Do Until rst.EOF = True
Zàhlen = rst![Schlüssel]
If Zàhlen <> "" Then
hier steht die Abfrage
rst.MoveNext
Loop
DoCmd.SetWarnings True
rst.Close
Set rst = Nothing
dbs.Close
Set db = Nothing
End Sub

Der Fehler entsteht schon in der Zeile
Set rst = dbs.OpenRecordset("Nummern", dbOpenTable)



vielleicht FAQ Punkt 7.11 (http://www.donkarl.com).

Gruss - Mark

Informationen fuer Neulinge in den Access-Newsgroups unter
http://www.doerbandt.de/Access/Newbie.htm

Bitte keine eMails auf Newsgroup-Beitràge senden.

Ähnliche fragen