Laufzeitfehler 2484

25/08/2008 - 09:52 von pewi | Report spam
Hallo

Ich habe den folgenden Code in mein Programm eingebaut.

Code:

'Evtl. offene Tabellen oder Abfragen schließen


Do
sTmp = vbNullString

sTmp = Screen.ActiveDatasheet.Name ' <<< Fehler

DoCmd.Close acTable, sTmp
DoCmd.Close acQuery, sTmp
DoEvents
Loop Until Len(sTmp) = 0


Beim Aufruf wird immer die Fehlermeldung "Laufzeitfehler 2484 Kein
aktives Datenblatt" angezeigt.

On Error Resume oder On Error Goto zeigen keine Wirkung.

Die Datenbank ist in Front und Backend aufgeteilt.

Was ist denn Falsch?



Besten Dank


Hans-Peter Wilker
 

Lesen sie die antworten

#1 Gunter Avenius
25/08/2008 - 10:17 | Warnen spam
Hallo pewi,
Realname wàre nett, Danke.

pewi schrieb folgendes:
Ich habe den folgenden Code in mein Programm eingebaut.

Code:

'Evtl. offene Tabellen oder Abfragen schließen

Do
sTmp = vbNullString

sTmp = Screen.ActiveDatasheet.Name ' <<< Fehler

DoCmd.Close acTable, sTmp
DoCmd.Close acQuery, sTmp
DoEvents
Loop Until Len(sTmp) = 0

Beim Aufruf wird immer die Fehlermeldung "Laufzeitfehler 2484 Kein
aktives Datenblatt" angezeigt.



Du willst ja

On Error Resume oder On Error Goto zeigen keine Wirkung.

Die Datenbank ist in Front und Backend aufgeteilt.

Was ist denn Falsch?



Das sollte Dir weiterhelfen.
Aus der OH zu AllTables und AllQueries:

Sub AllTables()
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentData
' Search for open AccessObject objects in AllTables collection.
For Each obj In dbs.AllTables
If obj.IsLoaded = True Then
' Print name of obj.
Debug.Print obj.Name
End If
Next obj
End Sub

Sub AllQueries()
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentData
' Search for open AccessObject objects in AllQueries collection.
For Each obj In dbs.AllQueries
If obj.IsLoaded = True Then
' Print name of obj.
Debug.Print obj.Name
End If
Next obj
End Sub

Gruß
Gunter
__________________________________________________________
Access FAQ: http://www.donkarl.com
home: http://www.avenius.com - http://www.AccessRibbon.de
http://www.ribboncreator.de

Ähnliche fragen