Was ist hier nicht korrekt ?

31/01/2008 - 16:50 von Wilfried Pernak | Report spam
Hallo NG'ler
ich bin in Accsess ein Neuling und ich versuche meine Tabellen aus der
Datenbank auszulesen und in Recordset abzulegen. Bei der Ausführung des
Programmes bekomme ich die Fehlermeldung 13 Typen unvertràglich.

Option Compare Database
Option Explicit

Public Sub CreatePDF()
Dim sSQL As String
Dim mrs As Recordset
sSQL = "SELECT MSysObjects.Name FROM MSysObjects
WHERE(((MSysObjects.Name) Like '03*'))"
Debug.Print sSQL
Set mrs = CurrentDb.OpenRecordset(sSQL)
End Sub

Hat jemand eine Idee woran das liegen könnte ?

Viele Dank schon einmal im vorraus

Wilfried Pernak
 

Lesen sie die antworten

#1 Thomas Winkler
31/01/2008 - 16:58 | Warnen spam
Hi,

Public Sub CreatePDF()
Dim sSQL As String
Dim mrs As Recordset



DAO.Recordset?

sSQL = "SELECT MSysObjects.Name FROM MSysObjects
WHERE(((MSysObjects.Name) Like '03*'))"
Debug.Print sSQL
Set mrs = CurrentDb.OpenRecordset(sSQL)
End Sub



HTH

Thomas

"Access? Damit arbeite ich nicht. Das ist doch nur ein abgespecktes Excel."

Ähnliche fragen