{"id":2080,"date":"2013-11-11T23:21:37","date_gmt":"2013-11-11T21:21:37","guid":{"rendered":"http:\/\/www.ramses.de\/?p=2080"},"modified":"2013-11-11T23:21:37","modified_gmt":"2013-11-11T21:21:37","slug":"faq-access-fortschrittsbalken-per-vba","status":"publish","type":"post","link":"https:\/\/www.ramses.de\/?p=2080","title":{"rendered":"FAQ Access – Fortschrittsbalken per VBA"},"content":{"rendered":"
\n

Access VBA – Fortschrittsbalken per VBA<\/h1>\n<\/div>\n
\n

Problem <\/strong><\/h2>\n

Bei l\u00e4ngeren VBA Proceduren ist nicht erkennbar, wie weit ein Vorgang abgeschlossen ist.<\/p>\n

L\u00f6sung <\/strong><\/h2>\n

Wir bauen uns ein Formular mit einem „Balken“<\/p>\n

\"605\"<\/a><\/p>\n

In einem neuen Modul erstellen wir folgende kleine Routine<\/p>\n

Public Function ProgrBar(lngCurr As Long, lngMax As Long, vProzess As String) '***************************************************************** <\/em>\r\n '*** Maik Ramftel <\/em>\r\n '*** 2010-06-28<\/em>\r\n '*** Function erstellt einen Fortschritttsbalken<\/em>\r\n '***************************************************************** <\/em>\r\n If DEBUGMODUS = False <\/em>\r\n Then On Error Resume Next <\/em>\r\n End If<\/em>\r\n Dim F As Double, P As Integer <\/em>\r\n If lngCurr = 0 And lngMax = 0 Then <\/em>\r\n 'Anzeigen DoCmd.OpenForm \"FOPROGRESSBAR\"<\/em>\r\n [Forms]![FOPROGRESSBAR]!rctStatus.Top = [Forms]![FOPROGRESSBAR]!lblStatus.Top<\/em>\r\n [Forms]![FOPROGRESSBAR]!rctStatus.Left = [Forms]![FOPROGRESSBAR]!lblStatus.Left <\/em>\r\n [Forms]![FOPROGRESSBAR]!rctStatus.Height = [Forms]![FOPROGRESSBAR]!lblStatus.Height<\/em>\r\n [Forms]![FOPROGRESSBAR]!rctStatus.Width = 0 <\/em>\r\n [Forms]![FOPROGRESSBAR]!lblStatus.Caption = \"\"<\/em>\r\n [Forms]![FOPROGRESSBAR]!lblStatus.Visible = True <\/em>\r\n [Forms]![FOPROGRESSBAR]!rctStatus.Visible = True [Forms]![FOPROGRESSBAR]![Prozess].Visible = True<\/em>\r\n [Forms]![FOPROGRESSBAR]![Prozess].Caption = vProzess<\/em>\r\n \r\n ElseIf lngCurr = -1 And lngMax = -1 Then <\/em>\r\n \r\n 'Ausblenden [Forms]![FOPROGRESSBAR]!lblStatus.Visible = False <\/em>\r\n [Forms]![FOPROGRESSBAR]!rctStatus.Visible = False <\/em>\r\n DoCmd.Close acForm, \"FOPROGRESSBAR\" <\/em>\r\n \r\n Else <\/em>\r\n \r\n 'Aktualisieren <\/em>\r\n F = [Forms]![FOPROGRESSBAR]!lblStatus.Width \/ lngMax <\/em>\r\n [Forms]![FOPROGRESSBAR]!rctStatus.Width = F * lngCurr <\/em>\r\n P = (100 \/ lngMax) * lngCurr <\/em>\r\n [Forms]![FOPROGRESSBAR]![Prozess].Caption = vProzess <\/em>\r\n [Forms]![FOPROGRESSBAR]!lblStatus.Caption = CStr(P) & \"%\" <\/em>\r\n End If <\/em>\r\n DoEvents <\/em>\r\n End Function <\/em><\/i><\/pre>\n
Der Aufruf in der Funktion erfolgt dann<\/pre>\n
Start:<\/pre>\n
'****Statusanzeige ****** <\/em>\r\n Call ProgrBar(0, 0, vProgressTitel)<\/em><\/i><\/pre>\n
Fortschritt:<\/pre>\n
'****Statusanzeige ****** <\/em>\r\n Call ProgrBar(vZ\u00e4hlerP, vAnzahlGesamt, vProgressTitel & \" \" & vZ\u00e4hlerP & \"\/\" & vAnzahlGesamt) <\/em><\/i><\/pre>\n
Ende:<\/pre>\n
'****Statusanzeige ****** <\/em>\r\n Call ProgrBar(-1, -1, vProgressTitel)<\/em><\/i><\/pre>\n<\/div>\n","protected":false},"excerpt":{"rendered":"
Access VBA – Fortschrittsbalken per VBA Problem Bei l\u00e4ngeren VBA Proceduren ist nicht erkennbar, wie weit ein Vorgang abgeschlossen ist. L\u00f6sung Wir bauen uns ein … Weiterlesen …<\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[47,43],"tags":[58,61],"class_list":["post-2080","post","type-post","status-publish","format-standard","hentry","category-access","category-faq","tag-access-2010","tag-vba"],"_links":{"self":[{"href":"https:\/\/www.ramses.de\/index.php?rest_route=\/wp\/v2\/posts\/2080","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.ramses.de\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.ramses.de\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.ramses.de\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.ramses.de\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=2080"}],"version-history":[{"count":1,"href":"https:\/\/www.ramses.de\/index.php?rest_route=\/wp\/v2\/posts\/2080\/revisions"}],"predecessor-version":[{"id":2082,"href":"https:\/\/www.ramses.de\/index.php?rest_route=\/wp\/v2\/posts\/2080\/revisions\/2082"}],"wp:attachment":[{"href":"https:\/\/www.ramses.de\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=2080"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.ramses.de\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=2080"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.ramses.de\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=2080"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}