Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
progressbar erstellen
zurück: Eingabeüberwachung weiter: SetFocus-Anweisung Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
leuchtkugel
Gast


Verfasst am:
22. März 2014, 17:46
Rufname:

progressbar erstellen - progressbar erstellen

Nach oben
       Version: Office 2003

hallo,

kann mir jemand sagen, wie ich eine Progressbar erstelle
möchte gerne unten genannte code Progressbar einbinden
Code:
    Dim db As DAO.Database
    Dim rst As DAO.Recordset
   
    Set db = CurrentDb
    Set rst = db.OpenRecordset("tblArtikel", dbOpenDynaset)
    Do While Not rst.EOF
        Debug.Print rst!ArtikelID, rst!Artikelname
        rst.MoveNext
    Loop
    rst.Close
    Set rst = Nothing
    Set db = Nothing

mfg
derArb
getting better


Verfasst am:
22. März 2014, 18:09
Rufname: derArb
Wohnort: Berlin


AW: progressbar erstellen - AW: progressbar erstellen

Nach oben
       Version: Office 2003

Hallo,
schau doch mal in Tips und Tricks nach...wäre mein Vorschlag

_________________
MfG
derArb

Scio me nihil scire...Εν οίδα οτι ουδέν οίδα... Ich weiss, dass ich nichts weiss (Sokrates)
Ich bevorzuge Beiträge mit korrekter deutscher Grammatik.
Willi Wipp
Moderator


Verfasst am:
23. März 2014, 13:03
Rufname:
Wohnort: Raum Wiesbaden

Re: progressbar erstellen - Re: progressbar erstellen

Nach oben
       Version: Office 2003

Hi leuchtkugel,

welche Aktion moechtest Du denn gerne mit einem Progressbar versehen?
Progressbar - Fortschrittsanzeige selbstgemacht koennte eine Hilfestellung sein.
Allerdings musst du selbst die Gesamtzahl ermitteln und den Fortschritt ausloesen.

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
leuchtkugel
Gast


Verfasst am:
23. März 2014, 13:08
Rufname:

AW: progressbar erstellen - AW: progressbar erstellen

Nach oben
       Version: Office 2003

Hi,

also ich möchte gerne den Process aufnehmen
wenn der Process / abfrage gestartet ist

-wenn BOF - EOF erreicht ist soll BOF-EOF an Progress übermitteln.

mfg
Willi Wipp
Moderator


Verfasst am:
23. März 2014, 13:17
Rufname:
Wohnort: Raum Wiesbaden


Re: progressbar erstellen (II) - Re: progressbar erstellen (II)

Nach oben
       Version: Office 2003

Hi leuchtkugel,

na dann sollte das Beispiel ja weiterhelfen.

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
leuchtkugel
Gast


Verfasst am:
23. März 2014, 20:38
Rufname:

AW: progressbar erstellen - AW: progressbar erstellen

Nach oben
       Version: Office 2003

Hallo,

habe mir das durchgelesen so ganz verstehe ich das nicht.
Versuche das noch zu verstehen.

mfg
KlausMz
Moderator Access


Verfasst am:
23. März 2014, 20:44
Rufname:
Wohnort: Irgendwo in der Pfalz

AW: progressbar erstellen - AW: progressbar erstellen

Nach oben
       Version: Office 2003

Hallo,
eine progressbar benötigt auch Zeit, möglicherweise lässt sich der Code so verändern, dass man das gar nicht erst benötigt.
Was dauert denn da so lang, dass man da eine progressbar braucht?
Das Debug.Print ist ja nur eine Ausgabe im Direktfenster, was läuft da wirklich ab, das da so lange dauert?

_________________
Gruß
Klaus . . . . . Feedback wäre wünschenswert.
Ich möchte bitte keine unaufgeforderten PN. Fragen bitte im Forum.
leuchtkugel
Gast


Verfasst am:
23. März 2014, 21:23
Rufname:

AW: progressbar erstellen - AW: progressbar erstellen

Nach oben
       Version: Office 2003

Hi,

also Debug.Print dauert nicht lange ...weiss nicht wo genau ich Progressbar einfügen muss -

Wo genau muss ich denn For next schleife eintragen=?
KlausMz
Moderator Access


Verfasst am:
23. März 2014, 21:38
Rufname:
Wohnort: Irgendwo in der Pfalz

AW: progressbar erstellen - AW: progressbar erstellen

Nach oben
       Version: Office 2003

Hallo,
die Frage ist, wozu benötigst Du eine Progressbar ?
Und was willst Du mit Debug.Print ?
Das gibt doch nur Werte im Direktbereich aus, damit kann man doch nichts anfangen. Debug.Print macht ja nur zur Fehlersuche Sinn.

_________________
Gruß
Klaus . . . . . Feedback wäre wünschenswert.
Ich möchte bitte keine unaufgeforderten PN. Fragen bitte im Forum.
leuchtkugel
Gast


Verfasst am:
23. März 2014, 22:36
Rufname:

AW: progressbar erstellen - AW: progressbar erstellen

Nach oben
       Version: Office 2003

Hi,

also Debug.Print ist überflüssig, dass weiss ich. Hatte beim Posten nur angegeben.
Wofür ich eine Progressbar brauche?
Also ich Versende Mail mittels CDO
Da wollte ich jetzt Progressbar einfügen, damit ich den Process sehe.

mfg
Willi Wipp
Moderator


Verfasst am:
24. März 2014, 08:00
Rufname:
Wohnort: Raum Wiesbaden

Re: progressbar erstellen (III) - Re: progressbar erstellen (III)

Nach oben
       Version: Office 2003

Hi leuchtkugel,

als erstes benoetigst Du die Gesamtanzahl der Datensatze (eMails) um die 100% zu definieren.
Danach musst Du die Fortschrittsanzeige vor der Schleife initialisieren.
Innerhalb der Schleife aenderst Du dann den Wert der Anzeige abhaengig von der
bearbeiteten Datensatzanzahl.

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
leuchtkugel
Gast


Verfasst am:
24. März 2014, 11:31
Rufname:

AW: progressbar erstellen - AW: progressbar erstellen

Nach oben
       Version: Office 2003

hallo,

es tut sich langsam was Smile
Code:
    Me.ProgressBar0.Min = 0
    Me.ProgressBar0.Max = 100
    For i = Me.ProgressBar0.Min To Me.ProgressBar0.Max
        Anzahl = Anzahl + 1
        Me.ProgressBar0.Value = i
    Next i
Aber noch nicht richtig.
Also muss ich RecourdCount auf 100 % bringen?
Willi Wipp
Moderator


Verfasst am:
29. März 2014, 06:43
Rufname:
Wohnort: Raum Wiesbaden


Re: progressbar erstellen (IV) - Re: progressbar erstellen (IV)

Nach oben
       Version: Office 2003

Hi leuchtkugel,

basierend auf Deinen bisherigen Ansaetzen etwa so
Code:
    Dim db              As DAO.Database
    Dim rs              As DAO.Recordset
    Dim lngAnzahl       As Long
    Dim lngAnzahlMax    As Long
   
    Set db = CurrentDb
    Set rs = db.OpenRecordset("tblArtikel", dbOpenDynaset)
    Me.ProgressBar0.Min = 0
    Me.ProgressBar0.Max = 100
    rs.MoveLast
    lngAnzahlMax = rs.RecordCount
    rs.MoveFirst
    lngAnzahl = 0
    Do While Not rs.EOF
        lngAnzahl = lngAnzahl + 1
        Debug.Print rs!ArtikelID, rs!Artikelname
        rs.MoveNext
        Me.ProgressBar0.Value = lngAnzahl / lngAnzahlMax * 100
    Loop
    rst.Close
    Set rst = Nothing
    Set db = Nothing
   
' bzw etwas vereinfacht
    Dim db              As DAO.Database
    Dim rs              As DAO.Recordset
    Dim lngAnzahl       As Long
   
    Set db = CurrentDb
    Set rs = db.OpenRecordset("tblArtikel", dbOpenDynaset)
    Me.ProgressBar0.Min = 0
    rs.MoveLast
    Me.ProgressBar0.Max = rs.RecordCount
    rs.MoveFirst
    lngAnzahl = 0
    Do While Not rs.EOF
        lngAnzahl = lngAnzahl + 1
        Debug.Print rs!ArtikelID, rs!Artikelname
        rs.MoveNext
        Me.ProgressBar0.Value = lngAnzahl
    Loop
    rst.Close
    Set rst = Nothing
    Set db = Nothing

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
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 Tabellen & Abfragen: Anfänger braucht Hilfe um DvD-Archiv zu erstellen. 7 Thomas S. 3061 08. Feb 2006, 23:37
accessmichel Anfänger braucht Hilfe um DvD-Archiv zu erstellen.
Keine neuen Beiträge Access Tabellen & Abfragen: Fremdschlüssel erstellen? 1 chica 11122 05. Feb 2006, 18:28
cablit Fremdschlüssel erstellen?
Keine neuen Beiträge Access Tabellen & Abfragen: Code erstellen 2 Frosch73 578 30. Nov 2005, 14:32
Frosch73 Code erstellen
Keine neuen Beiträge Access Tabellen & Abfragen: Bücherdatenbank erstellen 1 Annabella74_ 5889 12. Nov 2005, 16:08
iso Bücherdatenbank erstellen
Keine neuen Beiträge Access Tabellen & Abfragen: 1:1-Beziehung erstellen / Fehlermeldung 3201 6 Silvercreast 2196 17. Okt 2005, 04:55
Timbo 1:1-Beziehung erstellen / Fehlermeldung 3201
Keine neuen Beiträge Access Tabellen & Abfragen: ahnen-tabelle erstellen 1 superdampfnudel 3759 16. Okt 2005, 20:59
stpimi ahnen-tabelle erstellen
Keine neuen Beiträge Access Tabellen & Abfragen: Sport Statistik erstellen 5 Tep 1928 29. Sep 2005, 16:42
stpimi Sport Statistik erstellen
Keine neuen Beiträge Access Tabellen & Abfragen: unlöschbaren Datensatz erstellen 1 Vincent_Vega 899 15. Aug 2005, 21:45
stpimi unlöschbaren Datensatz erstellen
Keine neuen Beiträge Access Tabellen & Abfragen: Abfragen Alternative zu DOMWERT erstellen 3 Gast 1013 29. Jul 2005, 15:32
Willi Wipp Abfragen Alternative zu DOMWERT erstellen
Keine neuen Beiträge Access Tabellen & Abfragen: In Abfrage einen Standardwert erstellen 6 AchimL 3166 28. Mai 2005, 16:00
AchimL In Abfrage einen Standardwert erstellen
Keine neuen Beiträge Access Tabellen & Abfragen: Rechnung erstellen wenn alle Daten vorhanden 6 Freddy 1909 25. Nov 2004, 11:03
Freddy Rechnung erstellen wenn alle Daten vorhanden
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage aus Suchformular erstellen 3 Thompsen 718 09. Sep 2004, 13:17
Skogafoss Abfrage aus Suchformular erstellen
 

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