Office: (Office 2003) Verzögerung einbauen

Guten Morgen liebe Leutz,

ich hoffe ich kann mein Problem richtig darstellen.

In einer "meiner" Datenbanken findet eine Übergabe von einer Tabelle via Makro nach Excel statt. Das heißt, die Werte in der ersten Zeile werden kopiert und nach Excel übergeben. Makro wird via Button in einem Formular ausgeführt. Jetzt würde ich gern das man zwar den Button drückt, aber die Auführung ein wenig Zeitverzögert startet.. hab zwar diverse VBA Befehle gefunden...die aber in Excel angesiedelt sind

Gibt es was vergleichbares in Access?

Grüßerle

Mario

:)

 

Hi,

ja:

Code:

 

Moin MOin Jan,
wow so schnell hab ich nicht gedacht ne Antwort zu bekommen...*grins

Ähm..peinlich ..aber..wo genau setzt ich diesen Code dann ein...Gehe ich dann über Button/ Befhelsschaltfläche/Ereignissprozedur..in den VB Script vom Button und setzt das dann davor ein?

Grüßerle

Mario

 

Hier mal zum besseren Verständnis der Code von dem Button:

Private Sub Befehl165_Click()

End Sub
On Error GoTo Err_Befehl165_Click

Dim stDocName As String

stDocName = "Auftrag_nach_Excel_Dispo_2"
DoCmd.RunMacro stDocName

Exit_Befehl165_Click:
Exit Sub

Err_Befehl165_Click:
MsgBox Err.Description
Resume Exit_Befehl165_Click

End Sub

 

Makros sind wirklich "bäh", vor allem wenn du eh schon mit VBA arbeitest. Wandel mal das Makro in VBA um und poste dann den Quellcode, dann zeige ich dir, wie du dort ein Sleep vorher einbauen kannst.

 

Interessehalber: wozu soll die Pause eigentlich dienen? Soll das eine Problemumgehung werden oder ist die Pause wirklich nur dazu da, damit der User etwas warten muss? .. dann Frage ich mich allerdings wieder *wink.gif*: Warum soll der User warten bzw. warum darf der Export nicht sofort beginnen?

 

Naja ob "bäh"..kann man streiten...ich bin nicht so der VBA Hoschi..muss ich dazu sagen ..sorry..kam wie die Jungfrau zum Kinde...zu Access..und muss nu diese Datenbank bei einem Kunden quasi weiterentwicklen

Hier ist der VBA Script vom Makro:


'------------------------------------------------------------
' Auftrag_nach_Excel
'
'------------------------------------------------------------
Function Auftrag_nach_Excel()
On Error GoTo Auftrag_nach_Excel_Err

DoCmd.OpenQuery "Auftragsliste Abfrage", acViewNormal, acEdit
DoCmd.RunCommand acCmdRecordsGoToFirst
' Makieren
DoCmd.RunCommand acCmdSelectRecord
' Kopieren
DoCmd.RunCommand acCmdCopy
DoCmd.OutputTo acQuery, "Auftragsliste Abfrage", "MicrosoftExcelBiff8(*.xls)", "c:\DatenbankAuftrag\Vorlage.xls", False, "", 0
' Abfrage schließen
DoCmd.Close acQuery, "Auftragsliste Abfrage"


Auftrag_nach_Excel_Exit:
Exit Function

Auftrag_nach_Excel_Err:
MsgBox Error$
Resume Auftrag_nach_Excel_Exit

End Function

Nur hätte ich dazu eine frage? Wie bekomme ich das dann retur..?

Grüßerle

Mario

 

Warum habe ich mir nur so etwas gedacht. Meine Kritik ist positiv und da wirst du mit leben müssen. *tongue.gif* Es mag für ein "bisschen rumspielen" in Access mit Makros gehen, aber ausser einem Autoexec, gibt es keine vernünftige Verwendung für Makros, versuche die mal zu debuggen oder vernünftige Fehlerbehandlungen einzubauen. VBA ist da deutlich besser für geeignet und wenn du die Zeit und Muße hast, solltest du dich damit auseinandersetzen.

Wenn ich dich hier nur "rund" machen wollte, wäre mir wohl kaum etwas an der Lösung deines Problems gelegen *wink.gif* Und nun zurück zur Aufgabe:

1) Erstelle ein neues Modul und kopiere folgenden Code:

Code:

2) Speichern unter mdlTools
3) Bei deinem eigentlichen Codeclick ersetzt du den Code:

Code:

Ob man das OutputTo auch noch überarbeiten möchte, kann man sich überlegen und die Frage von Josef stelle ich mir auch.

 

Ich schua mir das in der Mittagspause mal an...komme grad nciht dazu..aber so ganz steig ich nicht durch...im ersten Ansatz...

Du ich hab deine Kritik...nicht negativ aufgefast*Smilie...Kritik..ist immer positiv *biggrin.gif* *biggrin.gif* wenn man weiß damit umzugehen...*Smilie


Sehe grad du kommst aus Hamburg... Hallo Nachbar^^ ich denne auch...wenn ich nicht weiterkomme...besuch ich dich*grins *grins *grins *grins

 

Wobei die Frage nach dem Sinn des Verzögerns (siehe oben) ja nach wie vor im Raum steht, der Grund würde mich auch interessieren.

 

Hinsichtlich der Frage wegen Verzögerung..mmm nur ein Wort...Kundenwusch*Smilie

 

Der hat also gesagt: "mir ist die Anwendung zu schnell, bitte bauen Sie eine Pause ein" - oder gab es einen anderern Grund? *biggrin.gif*

 

Naja..so ähnlich..bei der Excel Tabelle hängen halt noch andere Vorgänge dran...daher die Pause

 

... also doch Problemumgehung. *wink.gif*
Und was ist, wenn die Pause auf einem langsamen Rechner nicht ausreicht? - Wird dann die Zeit auf mehrere Sekunden gesetzt?

 

\@OT Prozessortakt auslesen und Pausendauer danach berechnen, zwischendurch einen Freeze für Access und Windows einbauen und hoffen, dass der User Kaffee trinken geht *wink.gif*