Ist euer Problem gelöst, dann bitte den Knopf "Thema gelöst" drücken!
Public Sub DBOeffnen()
Dim accApp As Object
Set accApp = CreateObject("Access.Application")
accApp.OpenCurrentDatabase "C:\TestDB.accdb"
set accApp as Nothing
End Sub Set rs = CurrentDb.OpenRecordset("SELECT * FROM tbl_Wartungsprotokoll " _
& "WHERE Autor = '" & Environ("Username") & "'")
If Not rs.EOF Then
rs.MoveLast
If DateDiff("s", rs!Zeit, Now) > 300 Then
End If
End IfDie Tabelle hat etwa 130.000 DS, der gesuchte Autor hat knapp 240 DS.DoCmd.RunSQL "CREATE TEMPORARY TABLE tbltest (testfeld INTEGER)"führt zu einem Syntax-Fehler bei der CREATE TABLE-Anweisung, der normale WegDoCmd.RunSQL "CREATE TABLE tbltest (testfeld INTEGER)"funktioniert jedoch einwandfrei.