Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Progress-Bar Update-Probleme (gelöst)
zurück: Access AusgabeIn Makro verändern weiter: Code zum Überprüfen von Daten funzt nicht ganz Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
sepsys
Im Profil kannst Du frei den Rang ändern


Verfasst am:
30. Okt 2009, 10:14
Rufname:

Progress-Bar Update-Probleme (gelöst) - Progress-Bar Update-Probleme (gelöst)

Nach oben
       Version: Office 2003

Hi zusammen. Ich habe auf einer Form Namens "loadingF" eine Microsoft Progress-Bar gemacht, die auch wunderbar funktioniert. Das ganze Funktioniert so:

Ich mache eine Berechnung, diese wird in einem Modul mit Namen "Analyser" ausgeführt. Sobald er einen Datensatz analysiert hat, updatet er die Progress bar (siehe Code).

loadingF wird als mit acDialog angezeigt. Nun das Problem: Sobald ich auf die Form klicke, aktualisiert sich nichts mehr auf dieser Form, obwohl der Code "im Hintergrund" weiterläuft. Es heisst dann einfach in der Titelleiste (reagiert nicht). Wenn ich jedoch das ganze ablaufen lasse, ohne zu klicken, funktioniert alles wunderbar und der Balken geht bis zum Ende.

Da ich das Fenster jedoch regelmässig Update und Refreshe, sollte es doch reagieren? Was kann ich da machen?

Gruss sepsys

Code:

Dim totalRecords As Integer
Dim currentRecord As Integer

totalRecords = rsEmp.RecordCount
currentRecord = 0

Do While Not rsEmp.EOF
       
        ' [... Der Code, der ausgeführt wird]
           
        ' Fortschrittsbalken updaten
        currentRecord = currentRecord + 1
        Form_loadingF.pbarProgress.Value = (currentRecord / totalRecords) * 100
        Form_loadingF.Recalc
        Form_loadingF.Requery
        Form_loadingF.Refresh
        Form_loadingF.Repaint

        ' Nächster Eintrag
        rsEmp.MoveNext

Loop


Zuletzt bearbeitet von sepsys am 30. Okt 2009, 10:24, insgesamt einmal bearbeitet
sepsys
Im Profil kannst Du frei den Rang ändern


Verfasst am:
30. Okt 2009, 10:22
Rufname:


AW: Progress-Bar Update-Probleme - AW: Progress-Bar Update-Probleme

Nach oben
       Version: Office 2003

Hm.. hab die Lösung grad per Zufall selbst gefunden Smile

Code:

Dim totalRecords As Integer
Dim currentRecord As Integer

totalRecords = rsEmp.RecordCount
currentRecord = 0

Do While Not rsEmp.EOF
       
        ' [... Der Code, der ausgeführt wird]
           
        ' Fortschrittsbalken updaten
        currentRecord = currentRecord + 1
        Form_loadingF.pbarProgress.Value = (currentRecord / totalRecords) * 100
        DoEvents' <---------

        ' Nächster Eintrag
        rsEmp.MoveNext

Loop


Do Events löst das Problem Smile
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Formulare: Access Ereigniss verknpüfung gelöst 1 Urteil 180 20. Aug 2012, 15:31
JMalberg Access Ereigniss verknpüfung gelöst
Keine neuen Beiträge Access Programmierung / VBA: Progressbar - multithreading in access 4 VBAY 3450 17. Feb 2010, 20:03
Bitsqueezer Progressbar - multithreading in access
Keine neuen Beiträge Access Programmierung / VBA: reporttopdf [gelöst] 5 payne80 894 29. Sep 2009, 08:03
payne80 reporttopdf [gelöst]
Keine neuen Beiträge Access Programmierung / VBA: Variable an Funktion übergeben [gelöst] 2 payne80 684 25. Sep 2009, 13:51
payne80 Variable an Funktion übergeben [gelöst]
Keine neuen Beiträge Access Tabellen & Abfragen: Kriterien aus mehreren Zeilen vergleichen (gelöst) 13 KevinS 2209 08. Jul 2009, 08:42
KevinS Kriterien aus mehreren Zeilen vergleichen (gelöst)
Keine neuen Beiträge Access Hilfe: [gelöst] Entity-Relationship-Modell-Programm 2 plusminus_pi 2614 21. Apr 2009, 04:13
plusminus_pi [gelöst] Entity-Relationship-Modell-Programm
Keine neuen Beiträge Access Tabellen & Abfragen: [gelöst] Frage zum AutoWert 2 plusminus_pi 273 19. Apr 2009, 10:29
plusminus_pi [gelöst] Frage zum AutoWert
Keine neuen Beiträge Access Formulare: [gelöst ?!] Raster im Registersteuerelement 2 Blek 502 19. Apr 2009, 09:40
Blek [gelöst ?!] Raster im Registersteuerelement
Keine neuen Beiträge Access Tabellen & Abfragen: [gelöst] abfrage: wenn bedingung falsch, dann alle DS anz. 2 toaol 576 28. Mai 2008, 09:09
toaol [gelöst] abfrage: wenn bedingung falsch, dann alle DS anz.
Keine neuen Beiträge Access Programmierung / VBA: Feldinhalt speichern per VBA (gelöst) 3 diesunddas 888 02. Okt 2007, 09:58
diesunddas Feldinhalt speichern per VBA (gelöst)
Keine neuen Beiträge Access Programmierung / VBA: [Gelöst] Memofeld-Abfrage in VB 2 chaosgenie 585 03. Jul 2007, 11:07
chaosgenie [Gelöst] Memofeld-Abfrage in VB
Keine neuen Beiträge Access Programmierung / VBA: Access Progressbar anzapfen 4 access0815 4855 01. Jun 2007, 13:37
Gast Access Progressbar anzapfen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Access Tabellen