Fortschrittsanzeige aus Statusleiste 1 zu 1 in Formular anzeigen

[Björn Benatzky]

Hallo,

ich habe jetzt hier und auch in anderen Foren viele Informationen über die
Fortschrittsanzeige in der Statusleiste gelesen, aber bisher noch nichts
passendes gefunden.

Ich füge über Docmd.RunSQL Datensätze einer Tabelle hinzu. Diese Daten
werden in der gleichen Abfrage über ein SELECT bestimmt. Diese Abfrage kann
aufgrund der hohen Datenmenge sehr viel Zeit in Anspruch nehmen.

Frage 1: Wird der Status dieses Prozesses in der Statusleiste mit
Fortschrittsanzeige angezeigt (Ich habe das Access Hauptfenster ausgeblendet
und kann es nicht beurteilen)?
Frage 2: Wenn ja, kann ich diese Anzeige 1 zu 1 in einem Formular darstellen?

Danke für Antworten und Tipps.

Gruß
Björn

[Jens Schilling]

Hallo, Björn

Post by Björn Benatzky
Hallo,
ich habe jetzt hier und auch in anderen Foren viele Informationen
über die Fortschrittsanzeige in der Statusleiste gelesen, aber bisher
noch nichts passendes gefunden.
Ich füge über Docmd.RunSQL Datensätze einer Tabelle hinzu. Diese Daten
werden in der gleichen Abfrage über ein SELECT bestimmt. Diese
Abfrage kann aufgrund der hohen Datenmenge sehr viel Zeit in Anspruch
nehmen.
Frage 1: Wird der Status dieses Prozesses in der Statusleiste mit
Fortschrittsanzeige angezeigt (Ich habe das Access Hauptfenster
ausgeblendet und kann es nicht beurteilen)?
Frage 2: Wenn ja, kann ich diese Anzeige 1 zu 1 in einem Formular darstellen?

Schau Dir mal diese Beispiele an :

ProgressBar Demo
http://www.resources.intuidev.com/

Eigene Fortschrittsanzeige
http://www.bkwald.de/acc_beisp.htm

http://www.access-paradies.de/download/fortschrittsbalken_darstellen.php

[Björn Benatzky]

Hallo Jens,

Post by Jens Schilling
Hallo, Björn

Post by Björn Benatzky
Hallo,
ich habe jetzt hier und auch in anderen Foren viele Informationen
über die Fortschrittsanzeige in der Statusleiste gelesen, aber bisher
noch nichts passendes gefunden.
Ich füge über Docmd.RunSQL Datensätze einer Tabelle hinzu. Diese Daten
werden in der gleichen Abfrage über ein SELECT bestimmt. Diese
Abfrage kann aufgrund der hohen Datenmenge sehr viel Zeit in Anspruch
nehmen.
Frage 1: Wird der Status dieses Prozesses in der Statusleiste mit
Fortschrittsanzeige angezeigt (Ich habe das Access Hauptfenster
ausgeblendet und kann es nicht beurteilen)?
Frage 2: Wenn ja, kann ich diese Anzeige 1 zu 1 in einem Formular darstellen?

ProgressBar Demo
http://www.resources.intuidev.com/
Eigene Fortschrittsanzeige
http://www.bkwald.de/acc_beisp.htm
http://www.access-paradies.de/download/fortschrittsbalken_darstellen.php
--
Gruss
Jens

Leider sind das alles Eigenproduktionen.
Ich würde gerne den Status von Access übernehmen, weil die SELECT-Abfrage,
die über ein VBA Skript zusammengestellt wird, so kompliziert ist, daß ich
sie nicht auseinandernehmen möchte, um den Code für den Update einer eigenen
Fortschrifttsanzeige zu aktualisieren.

Gruß
Björn

[Jens Schilling]

Hallo, Björn

Post by Björn Benatzky

Post by Jens Schilling

Post by Björn Benatzky
ich habe jetzt hier und auch in anderen Foren viele Informationen
über die Fortschrittsanzeige in der Statusleiste gelesen, aber
bisher noch nichts passendes gefunden.

ProgressBar Demo
http://www.resources.intuidev.com/
Eigene Fortschrittsanzeige
http://www.bkwald.de/acc_beisp.htm
http://www.access-paradies.de/download/fortschrittsbalken_darstellen.php

Leider sind das alles Eigenproduktionen.
Ich würde gerne den Status von Access übernehmen, weil die
SELECT-Abfrage, die über ein VBA Skript zusammengestellt wird, so
kompliziert ist, daß ich sie nicht auseinandernehmen möchte, um den
Code für den Update einer eigenen Fortschrifttsanzeige zu
aktualisieren.

Dir ist schon bewusst, dass Du das SQL-Statement mit nur einem Einzeiler
abfragen, und verwenden kannst ?

Simples Beispiel:

Function GetQueryStatement(qryName As String) As String
GetQueryStatement = CurrentDb.QueryDefs(qryName).SQL
End Function

[Björn Benatzky]

Post by Jens Schilling
Dir ist schon bewusst, dass Du das SQL-Statement mit nur einem Einzeiler
abfragen, und verwenden kannst ?
Function GetQueryStatement(qryName As String) As String
GetQueryStatement = CurrentDb.QueryDefs(qryName).SQL
End Function
--
Gruss
Jens

Wenn ich damit abfragen kann, wie weit die besagte Abfrage ist, ist es genau
was ich benötige. Danke.
Aber wie rufe ich GetQueryStatement auf, wenn Access in diesem Moment mit
dem Ausführen der Abfrage beschäftigt ist?

Gruß
Björn

[Jens Schilling]

Hallo, Björn

Post by Björn Benatzky

Post by Jens Schilling
Dir ist schon bewusst, dass Du das SQL-Statement mit nur einem
Einzeiler abfragen, und verwenden kannst ?
Function GetQueryStatement(qryName As String) As String
GetQueryStatement = CurrentDb.QueryDefs(qryName).SQL
End Function

Wenn ich damit abfragen kann, wie weit die besagte Abfrage ist, ist
es genau was ich benötige. Danke.

Nein, dass kannst Du damit nicht - ich beziehe mich damit lediglich auf
Deinen Satz, in dem Du schreibst, dass Deine Abfrage so kompliziert wäre.
Was ich nun aber beim nochmaligen Lesen erst bemerke ist, dass Du die
Abfrage erst in VBA zusammenstellt. Damit setzt mein Hinweis voraus, dass
dieses SQL Statement - zumindest temporär - gespeichert werden würde.

[Björn Benatzky]

Hallo Jens,

Post by Jens Schilling
Hallo, Björn

Post by Björn Benatzky

Post by Jens Schilling
Dir ist schon bewusst, dass Du das SQL-Statement mit nur einem
Einzeiler abfragen, und verwenden kannst ?
Function GetQueryStatement(qryName As String) As String
GetQueryStatement = CurrentDb.QueryDefs(qryName).SQL
End Function

Wenn ich damit abfragen kann, wie weit die besagte Abfrage ist, ist
es genau was ich benötige. Danke.

Nein, dass kannst Du damit nicht - ich beziehe mich damit lediglich auf
Deinen Satz, in dem Du schreibst, dass Deine Abfrage so kompliziert wäre.
Was ich nun aber beim nochmaligen Lesen erst bemerke ist, dass Du die
Abfrage erst in VBA zusammenstellt. Damit setzt mein Hinweis voraus, dass
dieses SQL Statement - zumindest temporär - gespeichert werden würde.
--
Gruss
Jens

Um das mal ein wenig zu präzisieren: Es handelt sich bei dem SQL Statement
um die prozentuale Übereinstimmung / Vergleich von Texten aus
unterschiedlichen Datensätzen einer Tabelle von Josef Syrovatkas
(http://access.primary.at/downloads/vortrag_syrovatka.zip).

Diese Abfrage braucht ziemlich viel Zeit, die Abarbeitung des VBA Codes
braucht Zeit. Ich kann aber nicht den Code 100% entschlüsseln bzw. es würde
mich zu viel Zeit kosten, um die Fortschrittsanzeige dort zu integrieren.

Wenn ich aber dieses SQL Statement, wie Sie von Josef Syrovatkas verwendet
wird, als Anfügeabfrage ausführen lasse, sehe ich den Status unten in der
Statusleiste. Diesem will ich gerne zeitgleich im Formular haben.

Gruß
Björn

[Jens Schilling]

Hallo, Björn

Post by Björn Benatzky
Wenn ich aber dieses SQL Statement, wie Sie von Josef Syrovatkas
verwendet wird, als Anfügeabfrage ausführen lasse, sehe ich den
Status unten in der Statusleiste. Diesem will ich gerne zeitgleich im
Formular haben.

OK, dann schau mal in diesen Thread - dort findest Du auch eine Beispiel-DB,
die ich mir jetzt aber nicht genauer angeguckt habe; die Diskussion aber
geht um die Verwendung der internen Statusbar...

[Björn Benatzky]

Post by Jens Schilling
Hallo, Björn
OK, dann schau mal in diesen Thread - dort findest Du auch eine Beispiel-DB,
die ich mir jetzt aber nicht genauer angeguckt habe; die Diskussion aber
geht um die Verwendung der internen Statusbar...
--
Gruss
Jens

Interne Statusbar? Versteh ich gerade nicht. Gibt es auch eine "externe"?
Ja, wie kann ich denn jetzt diese Anzeige in meinem Formular darstellen,
genauso wie sie unten links angezeigt wird?

Gruß
Björn

[Jens Schilling]

Hallo, Björn

Post by Björn Benatzky

Post by Jens Schilling
Hallo, Björn
OK, dann schau mal in diesen Thread - dort findest Du auch eine
Beispiel-DB, die ich mir jetzt aber nicht genauer angeguckt habe;
die Diskussion aber geht um die Verwendung der internen Statusbar...
--
Gruss
Jens

Interne Statusbar? Versteh ich gerade nicht. Gibt es auch eine
"externe"? Ja, wie kann ich denn jetzt diese Anzeige in meinem
Formular darstellen, genauso wie sie unten links angezeigt wird?

Sorry - ohne Link findest Du natürlich weder den Thread noch das Beispiel.
Hier ist er nun : http://www.office-loesung.de/ftopic11667_0_0_asc.php

[Björn Benatzky]

Post by Jens Schilling

Post by Jens Schilling
OK, dann schau mal in diesen Thread - dort findest Du auch eine
Beispiel-DB, die ich mir jetzt aber nicht genauer angeguckt habe;
die Diskussion aber geht um die Verwendung der internen Statusbar...

[...]

Post by Jens Schilling
Sorry - ohne Link findest Du natürlich weder den Thread noch das Beispiel.
Hier ist er nun : http://www.office-loesung.de/ftopic11667_0_0_asc.php
--
Gruss
Jens

Danke soweit für den Link, aber wie erwähnt, ich will die Progressbar nicht
selbst erstellen und updaten, sondern von Access übernehmen.

Gruß
Björn

[Jens Schilling]

Hallo, Björn

Post by Björn Benatzky

Post by Jens Schilling

Post by Jens Schilling
OK, dann schau mal in diesen Thread - dort findest Du auch eine
Beispiel-DB, die ich mir jetzt aber nicht genauer angeguckt habe;
die Diskussion aber geht um die Verwendung der internen
Statusbar...

[...]

Post by Jens Schilling
Sorry - ohne Link findest Du natürlich weder den Thread noch das
http://www.office-loesung.de/ftopic11667_0_0_asc.php

Danke soweit für den Link, aber wie erwähnt, ich will die Progressbar
nicht selbst erstellen und updaten, sondern von Access übernehmen.

Dann mach sie für Deine Anwender sichtbar !

Ehrlich gesagt glaube ich nicht, dass Du Dir die Mühe gemacht hast
(innerhalb der 12 Minuten, die zwischen meiner letzten Antwort und Deiner
Antwort nun vergangenen sind), Dir sowohl den Thread, den Code darin oder
aber auch das Beispiel genauer angeschaut zu haben.

[Björn Benatzky]

Post by Jens Schilling
Ehrlich gesagt glaube ich nicht, dass Du Dir die Mühe gemacht hast
(innerhalb der 12 Minuten, die zwischen meiner letzten Antwort und Deiner
Antwort nun vergangenen sind), Dir sowohl den Thread, den Code darin oder
aber auch das Beispiel genauer angeschaut zu haben.
--
Gruss
Jens

Hey, ich bin an einer Lösung interessiert. Natürlich habe ich mir das
angeschaut!
Aber dieses Zitat aus dem Beitrag sagt es doch:
"Um den Fortschrittsbalken verwenden zu können, muss man eine Berechnung
haben, deren Dauer man kennt (z.B. der wievielte Datensatz von
Gesamtzahl-Datensätze gerade bearbeitet wird). Für unabschätzbare Prozesse
(wie rekursives Durchackern von Verzeichnissen, deren Gesamtzahl unbekannt
ist) ist ein Fortschrittsbalken nicht brauchbar. "

Sorry.
Björn

[Jörg Ackermann]

Hallo,

Post by Björn Benatzky
Hey, ich bin an einer Lösung interessiert.

Schau Dir mal dieses Beispiel an:
http://www.access.vis.pl/naworyta/KnIniMeter.zip

Gruß

[Sascha Trowitzsch]

Hi,

Post by Björn Benatzky
Hallo,

Post by Björn Benatzky
Hey, ich bin an einer Lösung interessiert.

http://www.access.vis.pl/naworyta/KnIniMeter.zip

Ich glaube, ihr redet aneinander vorbei:
Die einzige Möglichkeit, den Verlaufsstatus einer JET-internen Operation, z.B.
die Ausführung einer Abfrage, in Access anzuzeigen, ist die Statusleiste.
Alle anderen Lösungen setzen voraus, dass die Operation in VBA in Teilaufgaben
zerstückelt wird, wie etwa in einer Schleife Currentdb.Executes datensatzweise
ausführen zu lassen.
Und genau das will Björn nicht oder kann es nicht.
Die Frage verstehe ich also so, dass er quasi einen Hook auf den
Statusbar-Fortschritt für *eine* Abfrage setzen möchte, der dann in einer
anderen Form in einem Formular (Label mit %?) anzeigen möchte.
Ich wüsste nicht, wie das gehen sollte, außer über API.
Man könnte den Teil des Statusbar-Windows subclassen, der diese Strichelchen
ausgibt. Mir wäre das aber zuviel Arbeit. ;-)

Ciao, Sascha

[Josef Poetzl]

Hallo!

Post by Sascha Trowitzsch
Die einzige Möglichkeit, den Verlaufsstatus einer JET-internen Operation, z.B.
die Ausführung einer Abfrage, in Access anzuzeigen, ist die Statusleiste.
Alle anderen Lösungen setzen voraus, dass die Operation in VBA in Teilaufgaben
zerstückelt wird, wie etwa in einer Schleife Currentdb.Executes datensatzweise
ausführen zu lassen.
Und genau das will Björn nicht oder kann es nicht.
Die Frage verstehe ich also so, dass er quasi einen Hook auf den
Statusbar-Fortschritt für *eine* Abfrage setzen möchte, der dann in einer
anderen Form in einem Formular (Label mit %?) anzeigen möchte.
Ich wüsste nicht, wie das gehen sollte, außer über API.

z.B. mittels einer VBA-Funktion, die im Update-Teil der Abfrage
eingebaut wird und einen Zähler setzt, der regelmäßig vom Form gelesen
wird.
Ich würde so etwas nicht produktiv einsetzten, aber machbar ist es. ;)

Beispiel:

allg. Modul:
Public g_DSZAEHLER As Long

Public Function UpdateZaehler(ByVal V As Variant, _
Optional ByVal clear As Boolean = False _
) As Variant
' V ... Wert, der zurück gegeben wird
' clear ... setzt g_DSZAEHLER auf 0

Static t As Double
If clear Then
g_DSZAEHLER = 0
t = 0
Else
g_DSZAEHLER = g_DSZAEHLER + 1
If Timer > t Then
t = Timer + 0.1
DoEvents
End If
End If
UpdateZaehler = V

End Function


In einem Formular:
Private Sub cmdStart_Click()
Me.TimerInterval = 100
CurrentDb.Execute "UPDATE Tabelle1 SET T = UpdateZaehler(T) WHERE UpdateZaehler(0,-1)=0"
Me.TimerInterval = 0
Me!txtZaehler = g_DSZAEHLER
End Sub

Private Sub Form_Timer()
Me!txtZaehler = g_DSZAEHLER
End Sub


mfg
Josef

[Sascha Trowitzsch]

Hi Josef,

Post by Josef Poetzl
Hallo!

Post by Sascha Trowitzsch
Die einzige Möglichkeit, den Verlaufsstatus einer JET-internen Operation, z.B.
die Ausführung einer Abfrage, in Access anzuzeigen, ist die Statusleiste.
Alle anderen Lösungen setzen voraus, dass die Operation in VBA in Teilaufgaben
zerstückelt wird, wie etwa in einer Schleife Currentdb.Executes datensatzweise
ausführen zu lassen.
Und genau das will Björn nicht oder kann es nicht.
Die Frage verstehe ich also so, dass er quasi einen Hook auf den
Statusbar-Fortschritt für *eine* Abfrage setzen möchte, der dann in einer
anderen Form in einem Formular (Label mit %?) anzeigen möchte.
Ich wüsste nicht, wie das gehen sollte, außer über API.

z.B. mittels einer VBA-Funktion, die im Update-Teil der Abfrage
eingebaut wird und einen Zähler setzt, der regelmäßig vom Form gelesen
wird.
Ich würde so etwas nicht produktiv einsetzten, aber machbar ist es. ;)
Beispiel: [...]

Ja, sicher, viel Wege führen nach Rom...
Aber ehrlich gesagt finde ich es auch blöd, dass es keine Möglichkeit gibt, um
den Fortschritt etwa einer Aktualisierungs-/Anfügeabfrage anzuzeigen, ohne erst
was modifizieren zu müssen. Hat mich schon öfters gestört - nicht für
Produktiv-DBs, aber etwa beim beim manuellen Konvertieren oder Normalisieren
großer Datenbestände.
Da Access den Fortschritt für den Statusbar aus JET bekommt, kann es diese Infos
prinzipiell ja liefern. Leider gibt es keine Infos drüber und die msjet.dll
wurde wohlweislich nur mit Ordinalzahl-Funktionen ausgestattet. ;-)

Gruß, Sascha

[Björn Benatzky]

Post by Sascha Trowitzsch
Die einzige Möglichkeit, den Verlaufsstatus einer JET-internen Operation, z.B.
die Ausführung einer Abfrage, in Access anzuzeigen, ist die Statusleiste.
Alle anderen Lösungen setzen voraus, dass die Operation in VBA in Teilaufgaben
zerstückelt wird, wie etwa in einer Schleife Currentdb.Executes datensatzweise
ausführen zu lassen.
Und genau das will Björn nicht oder kann es nicht.
Die Frage verstehe ich also so, dass er quasi einen Hook auf den
Statusbar-Fortschritt für *eine* Abfrage setzen möchte, der dann in einer
anderen Form in einem Formular (Label mit %?) anzeigen möchte.
Ich wüsste nicht, wie das gehen sollte, außer über API.
Man könnte den Teil des Statusbar-Windows subclassen, der diese Strichelchen
ausgibt. Mir wäre das aber zuviel Arbeit. ;-)
Ciao, Sascha

Hey, danke Sascha. Du bist der erste, der mir definitiv eine direkte Antwort
auf meine Frage gegeben hat. An den Antworten zuvor konnte ich nur indirekt
entnehmen, daß es wohl nicht möglich ist, was ich gerne hätte. Also werde ich
wohl oder übel mir den VBA Code zur Bruste nehmen und schauen, wo ich die
Implementierung einer eigenen Fortschrittsanzeige vornehmen kann.

Gruß
Björn

[Jörg Ackermann]

Hallo,
Hast Du Dir das Beispiel mal angeschaut?

Gruß

[Björn Benatzky]

Post by Björn Benatzky
Hallo,
Hast Du Dir das Beispiel mal angeschaut?
Gruß

Ja, aber ich bin gerade dabei, das folgende Beispiel
(http://www.resources.intuidev.com/) für meine Zwecke anzupassen. Ich brauche
z. B. nur eine Fortschrittsanzeige...

Gruß

[Sascha Trowitzsch]

Hi Jörg,

Post by Björn Benatzky
Hallo,
Hast Du Dir das Beispiel mal angeschaut?

Ja, außer, dass ich kein Polnisch kann. ;-)
Sollte ich da in der Demo was falsch verstanden haben?
Es wird IMHO eine Schleife durchlaufen, oder?

Gruß, Sascha

[Jörg Ackermann]

Hallo,

Post by Sascha Trowitzsch

Post by Jörg Ackermann
Hast Du Dir das Beispiel mal angeschaut?

Ja, außer, dass ich kein Polnisch kann. ;-)

Sind wir schon zwei. ;-)

Post by Sascha Trowitzsch
Sollte ich da in der Demo was falsch verstanden haben?
Es wird IMHO eine Schleife durchlaufen, oder?

Also doch nicht angeguckt.

Er nimmt das OStatbar und legt es auf das Pogressform.

Gruß

[Sascha Trowitzsch]

Hi Jörg,

Post by Björn Benatzky
Hallo,

Post by Sascha Trowitzsch

Post by Jörg Ackermann
Hast Du Dir das Beispiel mal angeschaut?

Ja, außer, dass ich kein Polnisch kann. ;-)

Sind wir schon zwei. ;-)

Post by Sascha Trowitzsch
Sollte ich da in der Demo was falsch verstanden haben?
Es wird IMHO eine Schleife durchlaufen, oder?

Also doch nicht angeguckt.

Doch - alles, bis auf dem Code zu Form_Progress. ;-)

Post by Björn Benatzky
Er nimmt das OStatbar und legt es auf das Progressform.

Ja cool!
Scheint auch die einzige Möglichkeit zu sein. Hatte schon die Messages von
OStatbar, der leider nichts mit den Windows Commctl-Statusbars gemein hat,
gehookt. Ist nicht Verwertbares zum Subclassen dabei - nur WM_PAINTs.

Gruß, Sascha

[unknown]

Hallo,

Post by Sascha Trowitzsch

Post by Björn Benatzky
Er nimmt das OStatbar und legt es auf das Progressform.

Ja cool!

Funktioniert allerdings nicht mehr, wenn ein Nutzer mit Access 2007
arbeiten möchte, dort gibt's kein OStatBar mehr.

[Sascha Trowitzsch]

Hi,

"Jörg Ostendorp" <"Ostendorp(punkt)mpda(at)ecodatadesign(punkt)de"> schrieb im

Post by Björn Benatzky
Hallo,

Post by Sascha Trowitzsch

Post by Björn Benatzky
Er nimmt das OStatbar und legt es auf das Progressform.

Ja cool!

Funktioniert allerdings nicht mehr, wenn ein Nutzer mit Access 2007
arbeiten möchte, dort gibt's kein OStatBar mehr.

Ja, stattdessen was anderes.
Hab deshalb mal die Demo als ACCDB abgewandelt:
http://www.moss-soft.de/public/KnIniMeter2007.zip

Ciao, Sascha