Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Sicherheitshinweis ---> für registrierte Mitglieder <-
ProgressBar problem
zurück: Unterformular aktualisieren weiter: Datensatznummer 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
darkreeper
Im Profil kannst Du frei den Rang ändern


Verfasst am:
11. Okt 2006, 17:27
Rufname:

ProgressBar problem - ProgressBar problem

Nach oben
       Version: Office 2003

Hallo Leute.

Habe da mal ne frage zu obigem thema.

der code sieht momentan so aus
Code:
Private Sub suchen_Click()
    Dim felder As Variant
    Dim varreturn As Variant
    Dim i As Integer
    Dim yPosL As Integer
   
    xPos = 9200
    yPos = 3600
    yPosL = 600
    For Each ctl In Me.Detailbereich.Controls
        i = i + 1
    Next i
    varreturn = SysCmd(acSysCmdInitMeter, "Das Formular wird geladen", i)
    Me.Recordset.FindFirst "[Bulknr]=" & Me![Bulk-Nr]
    If Me.Recordset.NoMatch Then
        MsgBox "Diese Bulk-Nr existiert nicht."
        Me![Bulk-Nr].SetFocus
        Me![Bulk-Nr].Locked = False
        Exit Sub
    End If
    'DoCmd.Hourglass True
    sichtbar_mache
    Me![Bem Unterformular]![Bulknr].Visible = True
    Me![Bem Unterformular]![Bulknr].SetFocus
    Me![IST Unterformular]![Interne Chargen Nr].Top = 600
    Me![IST Unterformular]![Herstelldatum].Top = 1200
    Me![IST Unterformular]![Externe Chargen Nr].Top = 1800
    Me![IST Unterformular]![Charge].Top = 2400
    felder = Array("Interne Chargen Nr", "Herstelldatum", "Externe Chargen Nr", "Charge")
    For intI = 0 To UBound(felder)
        Me.Controls(felder(intI)).Visible = True
        Me.Controls(felder(intI)).Left = 200
        Me.Controls(felder(intI)).Top = yPosL
        yPosL = yPosL + 600
    Next intI
    Me![ChargeLast].Visible = True
    Me![Hauptname].Visible = True
    i = 1
    For Each ctl In Me.Detailbereich.Controls
        If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then
            Debug.Print ctl.Name; ctl.Value
            If ctl.Value = "" Or IsNull(ctl) Then
                If Me![SMax Unterformular].Form!(ctl.Name).Value = "" Or _
                   IsNull(Me![SMax Unterformular].Form!(ctl.Name)) Or _
                   Me![SMax Unterformular].Form!(ctl.Name).Value = "Nein" Then
                    invis_mache (1)
                  Else
                    invis_mache (2)
                End If
              Else
                If Me![SMax Unterformular].Form!(ctl.Name).Value = "" Or _
                   IsNull(Me![SMax Unterformular].Form!(ctl.Name)) Then
                    invis_mache (3)
                  Else
                    positionieren (1)
                End If
            End If
        End If
        'vvvv Hier kommt ne Fehlermeldung. (unzulässiger funktionsaufruf)
        varreturn = SysCmd(acSysCmdUpdateMeter, i)
        '^^^^ Hier kommt ne Fehlermeldung. (unzulässiger funktionsaufruf)
        i = i + 1
    Next ctl
    Me![Bem Unterformular]![Bulknr].Width = 0
    Me![Bem Unterformular]![Bulknr].Height = 0
    Me![fokus].SetFocus
    'DoCmd.Hourglass False
    varreturn = SysCmd(acSysCmdClearStatus)
End Sub
wie im code vermerkt, bekomme ich da genannte Fehlermeldung. Wenn ich dann auf beenden clicke und er die sub noch ein weiteres mal ausführen soll, geht es einwandfrei. hat jemand ne ahnung, woran das liegen kann ?

hoffe, dass mir jemand helfen kann.

gruß

darkreeper
Willi Wipp
Moderator


Verfasst am:
11. Okt 2006, 18:32
Rufname:
Wohnort: Raum Wiesbaden


Re: ProgressBar problem - Re: ProgressBar problem

Nach oben
       Version: Office 2003

Hi darkreeper,

ich habe es jetzt nicht ausprobiert, aber versuch es mal mit i = 0,
da die Zaehlung bei 0 beginnt und nicht bei 1. Oder so initialisieren
Code:
    SysCmd acSysCmdInitMeter, "Das Formular wird geladen", _
           Me.Detailbereich.Controls.Count
' Zum testen
    Dim i As Integer, ctl As Control
   
    MsgBox Me.Detailbereich.Controls.Count
    SysCmd acSysCmdInitMeter, "Das Formular wird geladen", _
           Me.Detailbereich.Controls.Count
    i = 0
    For Each ctl In Me.Detailbereich.Controls
        SysCmd acSysCmdUpdateMeter, i
        i = i + 1
    Next ctl
    SysCmd acSysCmdClearStatus

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
darkreeper
Im Profil kannst Du frei den Rang ändern


Verfasst am:
11. Okt 2006, 18:48
Rufname:

AW: ProgressBar problem - AW: ProgressBar problem

Nach oben
       Version: Office 2003

hallo willi. es funktioniert.

jedoch, habe ich gemerkt, dass das nicht passt.
meine mitarbeiter schauen jetzt schon nicht unten links an den rand des fensters, weshalb ich davon ausgehen kann, dass sie den statusbalken dann auch nicht sehen werden.

ich habe gesehen, dass es eine MS ProgressBar gibt.

Wie kann ich die bei mir einbinden, dass genau die gleiche funktion erfüllt wird ?

gruß

darkreeper
Willi Wipp
Moderator


Verfasst am:
11. Okt 2006, 18:53
Rufname:
Wohnort: Raum Wiesbaden

Re: ProgressBar problem (II) - Re: ProgressBar problem (II)

Nach oben
       Version: Office 2003

Hi darkreeper,

schau Dir mal das Thema Progressbar - Fortschrittsanzeige selbstgemacht an.
Vielleicht passt das ja Wink

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
darkreeper
Im Profil kannst Du frei den Rang ändern


Verfasst am:
11. Okt 2006, 18:54
Rufname:


AW: ProgressBar problem - AW: ProgressBar problem

Nach oben
       Version: Office 2003

hallo willi.

kannst du bitte den link noch einmal reinsetzen ? kann den nicht anklicken.

danke
Willi Wipp
Moderator


Verfasst am:
11. Okt 2006, 18:57
Rufname:
Wohnort: Raum Wiesbaden

Re: ProgressBar problem (III) - Re: ProgressBar problem (III)

Nach oben
       Version: Office 2003

Hi darkreeper,

Du warst zu schnell, jetzt sollte er gehen Wink

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
darkreeper
Im Profil kannst Du frei den Rang ändern


Verfasst am:
11. Okt 2006, 19:36
Rufname:

AW: ProgressBar problem - AW: ProgressBar problem

Nach oben
       Version: Office 2003

danke willi.

das funktioniert. nur habe ich jetzt ein anderes problem. es is irgendwie auch kurios.

code wie oben. am anfang nach den xpos, ypos zuweisungen habe ich ein DoCmd.Restore eingefügt,
damit das formular nicht mehr maximiert angezeigt wird. am ende der sub habe ich dann wieder ein DoCmd.Maximize eingefügt.
das ulkige an der sache ist nun, dass wenn ich das erste den knopf auslöse, stellt er das fenster wieder her, aber macht es gleich wieder maximiert. dadurch habe ich den ladebalken oben links in der ecke und nicht in der mitte des fensters. wenn ich nun wieder drauf klicke macht er es richtig. eine idee, woran das liegen kann ?

gruß

darkreeper
Willi Wipp
Moderator


Verfasst am:
12. Okt 2006, 12:24
Rufname:
Wohnort: Raum Wiesbaden

Re: ProgressBar problem (IV) - Re: ProgressBar problem (IV)

Nach oben
       Version: Office 2003

Hi darkreeper,

kannst Du das als Beispiel-DB online stellen? Dann ist es einfacher nachzuvollziehen.

BTW: Deine Umschalttaste scheint defekt zu sein Wink

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
darkreeper
Im Profil kannst Du frei den Rang ändern


Verfasst am:
12. Okt 2006, 12:38
Rufname:

AW: ProgressBar problem - AW: ProgressBar problem

Nach oben
       Version: Office 2003

hallo willi.

ääähhhh, jetzt steh ich aber auf dem schlauch. warum soll meine umschalttaste defekt sein ??? Question

Naja, egal. Muss mal schauen, dass ich das mal wieder runterreduziert bekomme. dann stell ich es online.

gruß

darkreeper
Willi Wipp
Moderator


Verfasst am:
12. Okt 2006, 15:47
Rufname:
Wohnort: Raum Wiesbaden

Re: ProgressBar problem (V) - Re: ProgressBar problem (V)

Nach oben
       Version: Office 2003

Hi darkreeper,

na weil Du scheinbar nur klein schreiben kannst ... Laughing
Im Ernst, es ist halt leichter zu lesen, wenn der eine oder andere Grossbuchstabe,
an der Stelle wo er sein sollte auch auftaucht.
Mir ist schon klar das es einfacher ist Alles klein zu schreiben,
aber es ist ja auch einfacher nicht zu antworten Wink

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
darkreeper
Im Profil kannst Du frei den Rang ändern


Verfasst am:
12. Okt 2006, 22:25
Rufname:


AW: ProgressBar problem - AW: ProgressBar problem

Nach oben
       Version: Office 2003

HALLO WILLI.

ALSO SCHÖN, DANN WERDE ICH AUCH GROßBUCHSTABEN VERWENDEN Very Happy

Spass bei Seite. Ich habe den Fehler mittlerweile gefunden. Hatte bei Form_Current() und bei Form_GotFocus() ein DoCmd.Maximize drin.
Das war des Übels Wurzel oder so ähnlich.

Mit einem lesbareren Text verabschiede ich mich nun.

Guts Nächtle

Gruß

Darkreeper
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 Programmierung / VBA: progressbar erstellen 12 leuchtkugel 157 29. März 2014, 06:43
Willi Wipp progressbar erstellen
Keine neuen Beiträge Access Formulare: Progressbar führt zu flackernden Formularen 1 StNeu 55 03. März 2014, 13:44
Bitsqueezer Progressbar führt zu flackernden Formularen
Keine neuen Beiträge Access Programmierung / VBA: Progressbar Status anzeigen 6 Boti 155 13. Jan 2014, 11:56
TommyK Progressbar Status anzeigen
Keine neuen Beiträge Access Formulare: Progressbar anzeigen, während Abfrage läuft(Aufruf Formular) 1 AntonBC 376 05. Okt 2012, 15:33
steffen0815 Progressbar anzeigen, während Abfrage läuft(Aufruf Formular)
Keine neuen Beiträge Access Formulare: Problem bei Progressbar in Statusbar 4 Babak 367 24. Sep 2012, 09:25
Babak Problem bei Progressbar in Statusbar
Keine neuen Beiträge Access Formulare: Progressbar ansprechen 3 Matze980237462345 485 20. Sep 2012, 12:10
Bitsqueezer Progressbar ansprechen
Keine neuen Beiträge Access Programmierung / VBA: Progressbar bei Aufruf eines Excel Moduls 7 Charlybraun 855 24. Mai 2012, 07:22
Bitsqueezer Progressbar bei Aufruf eines Excel Moduls
Keine neuen Beiträge Access Programmierung / VBA: ProgressBar 1 Trixihund 559 10. Apr 2010, 14:22
derArb ProgressBar
Keine neuen Beiträge Access Programmierung / VBA: Progressbar bei Erstellung Bericht unterdrücken 0 VBAY 345 23. Feb 2010, 10:01
VBAY Progressbar bei Erstellung Bericht unterdrücken
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: Progress-Bar Update-Probleme (gelöst) 1 sepsys 2471 30. Okt 2009, 10:22
sepsys Progress-Bar Update-Probleme (gelöst)
Keine neuen Beiträge Access Formulare: Fake Progressbar 1 dermarcusd 1464 23. Okt 2008, 20:00
jens05 Fake Progressbar
 

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