Office: Tabellenerstellungsabfrage automatisch ausführen

fonds · 10. März 2009

Das mit Format(Datum();"ttt")="Mo" in der bedingung klappt leider nicht. Gibt es noch eine andere einfache Möglichkeit?
und wie kann ich die Bestätigungsmeldungen etc verhindern somit das ganze völlig ohne Bestätigung abläuft?

Besten Dank!

J_Eilers · 10. März 2009

Ok, ich mag die Makros überhaupt nicht, deswegen neue Variante: Bennen das AutoExec-Makro um und erstelle ein neues Aktion ist AusführenCode und Funktionsname ist MachEs(). Dann erstellst du ein neues Modul und kopierst folgenden Code:

Code:

Public Function MachEs()
Dim tdf As DAO.TableDef
Dim Alter As Long

Set tdf = DBEngine(0)(0).TableDefs("NeueTabelle")
Alter = DateDiff("d", tdf.DateCreated, Date, vbMonday, vbUseSystem)
Set tdf = Nothing

If Alter > 6 Then
DBEngine(0)(0).Execute "DROP TABLE NeueTabelle", dbFailOnError
DBEngine(0)(0).Execute "SELECT * INTO NeueTabelle FROM AlteTabelle", dbFailOnError
End If
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das Modul nennst du dann mdlAutoExec. Und schon wird die Tabelle gelöscht und neu erstellt, wenn mehr als 6 Tage, also am 7. Tag vergangen sind.

fonds · 10. März 2009

Danke für deine Hilfe.
Habe jetzt ein Makro "AutoExec" mit der Aktion "AusführenCode" und dem Funktionsnamen "MachEs()". Und ein Modul "mdlAutoExec" mit folgendem Code:

Code:

Public Function MachEs()
Dim tdf As DAO.TableDef
Dim Alter As Long

Set tdf = DBEngine(0)(0).TableDefs("T_RANKING_AKTUELL")
Alter = DateDiff("d", tdf.DateCreated, Date, vbMonday, vbUseSystem)
Set tdf = Nothing

If Alter > 6 Then
DBEngine(0)(0).Execute "DROP TABLE Ranking_aktuell", dbFailOnError
DBEngine(0)(0).Execute "SELECT * INTO Ranking_aktuell FROM Ranking_aktuell", dbFailOnError
End If
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dabei ist "T_RANKING_AKTUELL" meine Tabellenerstellungsabfrage und "Ranking_aktuell" meine Tabelle die immer ersetzt werden soll.

Leider bekomme ich beim Ausführen folgende Meldung:

Fehler beim Kompilieren / Benutzerdefinierter Typ nicht definiert

Hierbei wird dann die erste Zeile des Code gelb hinterlegt und die zweite blau!

Wäre super wenn Du dir das nochmal anschauen könntest!

Danke im Voraus!

Atrus2711 · 10. März 2009

In VBA einen Verweis auf DAO 3.6 (MS Data Access Objects setzen).

fonds · 10. März 2009

ok, habe jetzt unter Extras / Verweise / Microsoft DAO aktiviert...

leider bekomme ich jetzt in folgender Zeile

Code:

Set tdf = DBEngine(0)(0).TableDefs("T_RANKING_DWS_AKTUELL")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Laufzeitfehler 3265 / Item not found in this item

Bezeichne ich hier meine Tabellenerstellungsabfrage richtig? Oder kommt hier die Tabellenerstellungsabfrage gar nicht hin....

Atrus2711 · 10. März 2009

TableDefs sind Tabellen. Eine Abfrage ist keine Tabelle. Daher wird deine Abfrage da auch nicht gefunden.

Du willst doch von der Tabelle das Erstelungsdatum prüfen, dann nimm da auch deren Namen.

Und: es hilft unheimlich, wenn man den Code (und die verwedneten Befehle versteht, anstatt sie einfach abzukupfern. *frown.gif*

fonds · 10. März 2009

Alles klar! Vielen Dank für deinen Tipp! Verstehe nun den Code! Nur leider habe ich in folgender Zeile

Code:

DBEngine(0)(0).Execute "SELECT * INTO Ranking_aktuell FROM T_RANKING_AKTUELL", dbFailOnError
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

einen Fehler 3417 / An action query cannpt be used as a row source

"Ranking aktuell" = Tabellenname / "T_RANKING_AKTUELL" = Tabellenerstellungsabfrage

Welche Datenherkunft muss ich angeben?

J_Eilers · 11. März 2009

Dann verstehst du auch den Code nicht *tongue.gif* Schreibe innerhalb der Gänsefüsschen, den Namen deiner Tabellenerstellungsabfrage.

fonds · 11. März 2009

besten Dank dass du bei mir nicht aufgeben hast....es klappt wunderbar!

noch eine letzte frage...ich habe eine zweite tab mit taberstellungsfrage (Rating)?

Code:

Public Function MachEs()
Dim tdf As DAO.TableDef
Dim Alter As Long

Set tdf = DBEngine(0)(0).TableDefs("Ranking_aktuell")
Alter = DateDiff("d", tdf.DateCreated, Date, vbMonday, vbUseSystem)
Set tdf = Nothing

If Alter = 0 Then
DBEngine(0)(0).Execute "DROP TABLE Ranking_aktuell", dbFailOnError
DBEngine(0)(0).Execute "T_RANKING_AKTUELL", dbFailOnError
End If

Set tdf = DBEngine(0)(0).TableDefs("Rating_aktuell")
Alter = DateDiff("d", tdf.DateCreated, Date, vbMonday, vbUseSystem)
Set tdf = Nothing

If Alter = 0 Then
DBEngine(0)(0).Execute "DROP TABLE Rating_aktuell", dbFailOnError
DBEngine(0)(0).Execute "T_RATING_AKTUELL", dbFailOnError
End If

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Leider wir bei diesem Code nur die erste aktualisiert und die zweite nicht. bekomme aber auch keine Fehlermeldung....(Alter = 0 habe ich zum testen eingestellt)

Atrus2711 · 11. März 2009

Die wird noch nicht fällig sein. *wink.gif*
Setz doch mal einen Haltepunkt, geh das mit F8 zeilenweise durch und schau dir die Variableninhalte an .Vermutlich ist die Bedingung If Alter = 0 Then eben nicht erfüllt.

fonds · 11. März 2009

Oh Mann! Tausend Dank für alle Hilfen!

Office: Tabellenerstellungsabfrage automatisch ausführen

Tabellenerstellungsabfrage automatisch ausführen

Tabellenerstellungsabfrage automatisch ausführen

Tabellenerstellungsabfrage automatisch ausführen

Tabellenerstellungsabfrage automatisch ausführen

Tabellenerstellungsabfrage automatisch ausführen - Similar Threads - Tabellenerstellungsabfrage automatisch ausführen

Probleme mit dem automatisches Inhaltsverzeichnis

Performance bei Ausführung Tabellenerstellungsabfrage

Autowert bei Tabellenerstellungsabfrage

Tabellenerstellungsabfrage schneidet Memo Feld ab....

Primärschlüssel erstellen bei Tabellenerstellungsabfrage

Erstellen einer Tabellenerstellungsabfrage

Tabellenerstellungsabfrage unter Access2003