VBA: Progess Window

[flooo]

hallo alle zusammen,

kann mir jemand sagen, wie ich unter VBA progress windows machen kann? ich möchte z.b. beim einbinden von tabellen unter access 2000 ein status fenster einblenden, das eine prozentangabe des fortschritts enthält oder den aktuellen tabellennamen.

gruss,

flooo

[alexf10]

du meinst progress bar oder?

wenn ja dann:

http://www.vbdesign.net/cadpages/files/pbar.htm

http://www.mvps.org/word/FAQs/Userforms/CreateAProgressBar.htm

http://abstractvb.com/downloads/progress.asp

http://www.vbland.com/searchcode.asp?langid=1&groupid=54

http://www.active-x.com/listing.asp?categoryid=6

http://home.att.net/~wshvbs/wshUsingMSXLasStaMsgProgBarPage.htm

[KarlBerg]

Hi,

hast du irgendeine Schleife, in der man einen Zähler einbauen kann?

Den Zähler könnte man dann zur Berechnung der Prozente verwenden.

Oder gibt's da ne Status-Funktion, die schon "von Haus aus" dabei ist?

Wenn du die Prozentangaben hast, sollte der Rest kein so großes Problem sein (Glaub ich zumindest jetzt noch )

Kannst ja mal posten, wie der Teil aussieht, bei dem die Tabelle eingebunden wird.

MfG

KarlBerg

[flooo]

huhu...

also prozentangabe habe ich... ich habe mir die links mal angeschaut... danke übrigens...

eine schleife, in der die %-angaben ermittelt werden sieht so aus:

ist nur nen ausschnitt vom gesamten... aber ich denke das dürfte auch so reichen...

---

Do

rsAnzahlAktuell = rsAnzahlAktuell + 1

rsProzent = Round(100 / rsAnzahlSumme * rsAnzahlAktuell)

Forms!Datenbank_Auswahl!txtTabelle.Value = rs![Name].Value

Forms!Datenbank_Auswahl!txtProzent.Value = rsProzent

DoCmd.RepaintObject acForm, "Datenbank_Auswahl"

Set tbldef = db.TableDefs(rs![Name].Value)

tbldef.RefreshLink

rs.MoveNext

If rs.EOF Then

Exit Do

End If

Loop

[KarlBerg]

Hi,

ich nehme mal an, dass rsProzent die AktuelleProzent-Angabe ist.

Sollte die Berechnung dann nicht so aussehen:

rsProzent = Round(rsAnzahlAktuell * 100 / rsAnzahlSumme)

Naja egal, kannste ja gegebenenfalls ändern.

Los geht's:

Auf deiner Form ziehste die ein neues Image auf.

z.B.: 240 Hoch, und 0 Breit (am besten die Werte von Hand eingeben)

Das Image PrgBar nennen.

Do

    rsAnzahlAktuell = rsAnzahlAktuell + 1

    rsProzent = Round(100 / rsAnzahlSumme * rsAnzahlAktuell)

    Forms!Datenbank_Auswahl!txtTabelle.Value = rs![Name].Value

    Forms!Datenbank_Auswahl!txtProzent.Value = rsProzent

    DoCmd.RepaintObject acForm, "Datenbank_Auswahl"

    Set tbldef = db.TableDefs(rs![Name].Value)

    tbldef.RefreshLink

    rs.MoveNext


    Prgbar.Width = 4450 / 100 * rsProzent 


    If rs.EOF Then

        Exit Do

    End If

Loop


PrgBar.Width = 0  'Breie auf Null setzen, wenn fertig in diesem Block

(Das Prograssbar ist in diesem Beispiel bei 100%, 4450 Breit)

Hab jetzt leider keine Zeit mehr, kannst's ja mal testen, wenn's net geht, sag bescheid

MfG

KarlBerg

[flooo]

huhu...

also... danke erstmal für die korrekte %-formel... is ja eigentlich schon nen bissl peinlich, DAS als programmierer nicht zu können.. naja.. aber ich bin ja azubi und lerne noch *g*

die idee von dir is echt gut... habe das so gemacht... ich habe allerdings statt einem bild ein rechteck mit hintergrundfarbe genommen (+ einem rechteck darüber, nur als schwarzen rahmen, was die gesamten 100% symbolisiert... ich hatte mit dem image probleme mit der hintergrundfarbe... generell jetzt... es war immer bis zur hälfte weiss und dann kam die andere farbe...

naja.. auf jeden fall.. so gehts.. eine gute und schnelle lösung...

dank dir...

flooo