Office: (Office 2013) Flackern beim Scrollen in Formular verhindern?

Powl · 7. Oktober 2014

Guten Tag,
habe hier eine Access DB mit einem Formular, was für die Bearbeitung und Erstellung von Datensätzen genutzt wird.

Das Formular hat ca 40 Felder, in die Daten eingetragen werden (können), teils Textfelder, teils Dropdown.

Nun habe ich das Problem, dass das Formular beim Scrollen oder Fenstergröße ändern stark flackert. Dabei steht unten in der Access Statusleiste immer "Die Seite wird formatiert".

Wie kann ich das unterbinden?

Habe bei meiner Suche bisher nur haufenweise Topics über Application.Echo bzw DoCmd.Echo on/off gefunden, dabei ging es aber immer nur um flackernde Controls. In meinem Fall flackert das komplette Formular bzw die komplette Seite.

:)

maikek · 9. Oktober 2014

Moin,
Repaint wäre noch eine Möglichkeit. Aber ich frage mich, wieso ein Formular mit 40 Controls derart flackert. Kann es sein, dass da unnötig viele Datensätze geladen sind und man vielleicht eher über eine Filterung nachdenken sollte? Oder werden da zur Laufzeit ständig irgendwelche Berechnungen oder Designänderungen (Farben o.ä.) durchgeführt?
maike

Powl · 9. Oktober 2014

Die Datenbank, auf die Zugegriffen wird, hat derzeit 3565 Datensätze, allerdings wird doch nur der eine geladen.

Da bin ich mir allerdings nicht sicher, mein Projekt setzt auf der Kontaktdatenbank-Vorlage von MS auf, wenn also dort alle Datensätze dauerhaft geladen sind...ich weiß aber nicht, wie ich das einfach herausfinden kann.

Und zur Laufzeit werden eigentlich keine Änderungen am Formular vollzogen. Jeglicher VBA Code ist entweder beim Öffnen/Schließen des Formulars oder bei Änderung bestimmter Controls.

maikek · 9. Oktober 2014

Die Datenbank, auf die Zugegriffen wird, hat derzeit 3565 Datensätze,
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das ist jetzt nicht grad wirklich viel. Was ist denn das für eine Datenbank und wo befindet sie sich? Dauert das Laden über's Netz vielleicht sehr lange?
maike

Powl · 9. Oktober 2014

Datenbank, also das komplette accdb File ist lokal (in einem Ordner auf C:, was dazu noch eine SSD ist), und auch keine 10MB groß.

Die Datenbank selbst ist effektiv eine große Tabelle, in der für fast alle der 40 Controls ein Feld/Spalte angelegt ist.

Es gibt noch ein paar andere kleinere Tabellen, aus denen ich mir per Lookup und Kombinationsfeld Info hole und dann in die Haupttabelle schreibe.

maikek · 9. Oktober 2014

Versuch's mal probehalber mit Komprimieren und Reparieren der Datenbank, vielleicht hilft das schon.
maike

Powl · 9. Oktober 2014

Jetzt ist sie zwar nur noch 2,65 statt 9,37MB klein, aber das Flackern besteht.

maikek · 9. Oktober 2014

Tja, dann bin ich mit meinen Fernwartungsmöglichekeiten hier am Ende.
Falls der Code des Formularmoduls nicht drei Kilometer lang ist, kannst du den ja noch mal posten ... vielleicht kann man daran etwas feststellen.
maike

Powl · 9. Oktober 2014

Code des Formularmoduls heißt aller Code, der als Ereignis zum Formular oder einer der Controls gehört?

Das wäre dann das hier:
Code:

Private Sub Abteilung_AfterUpdate()

'looks up MetaInfo of Abteilung after it is set
metaAbt = DLookup("Meta", "Abteilungen", "[Abteilungsname]= '" & Abteilung & "'")

End Sub

Private Sub Address_AfterUpdate()

'combines the (relevant) parts of the address into the AddressCombined field
'accounts for missing Adresszusatz
If IsEmpty(Adresszusatz) Or IsNull(Adresszusatz) Or Adresszusatz = "" Then
AdressCombined = Address & vbCrLf & [ZIP/Postal Code] & " " & City & vbCrLf & [Country/Region]
Else
AdressCombined = Address & vbCrLf & Adresszusatz & vbCrLf & [ZIP/Postal Code] & " " & City & vbCrLf & [Country/Region]
End If

End Sub

Private Sub Adresszusatz_AfterUpdate()

'combines the (relevant) parts of the address into the AddressCombined field
'accounts for missing Adresszusatz
If IsEmpty(Adresszusatz) Or IsNull(Adresszusatz) Or Adresszusatz = "" Then
AdressCombined = Address & vbCrLf & [ZIP/Postal Code] & " " & City & vbCrLf & [Country/Region]
Else
AdressCombined = Address & vbCrLf & Adresszusatz & vbCrLf & [ZIP/Postal Code] & " " & City & vbCrLf & [Country/Region]
End If

End Sub

Private Sub Anrede_DblClick(Cancel As Integer)

'for each part of the formal address
'checks whether it has a value
'then adds the part to the combined formal address
Anrede = ""

If Geschlecht = "M" Then
Anrede = "Herr "
ElseIf Geschlecht = "F" Then
Anrede = "Frau "
End If

If IsEmpty(Titel) Or IsNull(Titel) Or Titel = "" Then
Anrede = Anrede
Else
Anrede = Anrede + Titel + " "
End If

If IsEmpty([First Name]) Or IsNull([First Name]) Or [First Name] = "" Then
Anrede = Anrede
Else
Anrede = Anrede + [First Name] + " "
End If

If IsEmpty([Last Name]) Or IsNull([Last Name]) Or [Last Name] = "" Then
Anrede = Anrede
Else
Anrede = Anrede + [Last Name]
End If

End Sub

Private Sub check_reason_AfterUpdate()

'enables/disables visibility of Rücklauf options
If check_reason = "Rückläufer" Then
ruecklauf_label.Visible = True
ruecklauf.Visible = True
ruecklauf_date_label.Visible = True
ruecklauf_date.Visible = True
Else
ruecklauf_label.Visible = False
ruecklauf.Visible = False
ruecklauf_date_label.Visible = False
ruecklauf_date.Visible = False
End If

End Sub

Private Sub check_req_checkbox_Click()

'enables/disables visibility of Check and Rücklauf options
'as well as resets their values if "Zu prüfen" is unchecked
If check_req_checkbox = True Then
check_reason_label.Visible = True
check_reason.Visible = True
Else
check_reason_label.Visible = False
check_reason.Visible = False
ruecklauf_label.Visible = False
ruecklauf.Visible = False
ruecklauf_date_label.Visible = False
ruecklauf_date.Visible = False

check_reason = ""
ruecklauf = ""
ruecklauf_date = ""
End If

End Sub

Private Sub Checked_Button_Click()

'disables visibility and resets values of Check/Rücklauf options once the "Checked!" button is hit
check_req_checkbox = False

check_reason_label.Visible = False
check_reason.Visible = False
ruecklauf_label.Visible = False
ruecklauf.Visible = False
ruecklauf_date_label.Visible = False
ruecklauf_date.Visible = False

check_reason = ""
ruecklauf = ""
ruecklauf_date = ""

End Sub

Private Sub City_AfterUpdate()

'combines the (relevant) parts of the address into the AddressCombined field
'accounts for missing Adresszusatz
If IsEmpty(Adresszusatz) Or IsNull(Adresszusatz) Or Adresszusatz = "" Then
AdressCombined = Address & vbCrLf & [ZIP/Postal Code] & " " & City & vbCrLf & [Country/Region]
Else
AdressCombined = Address & vbCrLf & Adresszusatz & vbCrLf & [ZIP/Postal Code] & " " & City & vbCrLf & [Country/Region]
End If

End Sub

Private Sub cmdSaveandNew_Exit(Cancel As Integer)

'resets Gender selection for a new contact (within the form)
Gender_F = False
Gender_M = False

End Sub

Private Sub Country_Region_AfterUpdate()

'combines the (relevant) parts of the address into the AddressCombined field
'accounts for missing Adresszusatz
If IsEmpty(Adresszusatz) Or IsNull(Adresszusatz) Or Adresszusatz = "" Then
AdressCombined = Address & vbCrLf & [ZIP/Postal Code] & " " & City & vbCrLf & [Country/Region]
Else
AdressCombined = Address & vbCrLf & Adresszusatz & vbCrLf & [ZIP/Postal Code] & " " & City & vbCrLf & [Country/Region]
End If

End Sub

Private Sub Firma_AfterUpdate()

'looks up and enters into the respective fields all additional info associated with the selected company,
'such as Branche, MetaInfo and flags
Branche = DLookup("Branche", "Companies", "[Company Name]= '" & Firma & "'")
metaFir = DLookup("Meta", "Companies", "[Company Name]= '" & Firma & "'")
metaBra = DLookup("Meta", "Branchen", "[Branchenname]= '" & Branche & "'")
Koop_checkbox = DLookup("Kooperationspartner", "Companies", "[Company Name]= '" & Firma & "'")
Zuzahler_Checkbox = DLookup("Zuzahler", "Companies", "[Company Name]= '" & Firma & "'")

End Sub

Private Sub Form_BeforeUpdate(Cancel As Integer)

'sets the current date as the "last modified" stamp once the dataset is closed after being edited
'also sets the current user as the lastModified_user (WIP)
lastmodified_field = Format(Date, "dd.mm.yyyy")
lastModified_user_field = ""

End Sub

Private Sub Form_Load()

'looks up the contact's gender to display the radio selectors correctly
If Gender_Aux = "F" Then
Gender_F = True
Gender_M = False
ElseIf Gender_Aux = "M" Then
Gender_F = False
Gender_M = True
End If

'looks up the Check values so as to display them correctly
If check_req_checkbox = True Then
check_reason_label.Visible = True
check_reason.Visible = True

If check_reason = "Rückläufer" Then
ruecklauf_label.Visible = True
ruecklauf.Visible = True
ruecklauf_date_label.Visible = True
ruecklauf_date.Visible = True
End If
End If

End Sub

Private Sub Gender_F_Click()

'sets Gender to F/female and also puts the value in the auxiliary field
'(short info: the aux field is a half-assed approach to get the Gender selection to work with little effort)
Gender_Aux = "F"
Gender_M = False

End Sub

Private Sub Gender_M_Click()

'sets Gender to M/male and puts the value in the aux field (see Gender_F_Click code)
Gender_Aux = "M"
Gender_F = False

End Sub

Private Sub Position_AfterUpdate()

'looks up MetaInfo after the Position has been set
metaPos = DLookup("Meta", "Positions", "[Position Name]= '" & Position & "'")

End Sub

Private Sub ZIP_Postal_Code_AfterUpdate()

'combines the (relevant) parts of the address into the AddressCombined field
'accounts for missing Adresszusatz
If IsEmpty(Adresszusatz) Or IsNull(Adresszusatz) Or Adresszusatz = "" Then
AdressCombined = Address & vbCrLf & [ZIP/Postal Code] & " " & City & vbCrLf & [Country/Region]
Else
AdressCombined = Address & vbCrLf & Adresszusatz & vbCrLf & [ZIP/Postal Code] & " " & City & vbCrLf & [Country/Region]
End If

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Lanz Rudolf · 9. Oktober 2014

Halo
schon versucht ? :
Application.Echo (Wiederherstellen Bildschirm)
Zum Ausschalten des Automatischen wiederherstellen des Bildschirms (was manchmal zum Flackern führen
kann) wird folgender Befehl eingegeben:
Application.Echo FALSE
Und zum einschalten (Normal) nach einer reihe von Bildschirm- / Darstellung- beeinflussenden Befehlen z.B.
Requery etc.
Application.Echo True (Achtung nicht Vergessen!!!)
Syntax: Ausdruck.Echo(Echo, bstrStatusleistentext)

Powl · 7. Januar 2021

von Lanz Rudolf

Halo
schon versucht ? :
Application.Echo (Wiederherstellen Bildschirm)
Zum Ausschalten des Automatischen wiederherstellen des Bildschirms (was manchmal zum Flackern führen
kann) wird folgender Befehl eingegeben:
Application.Echo FALSE
Und zum einschalten (Normal) nach einer reihe von Bildschirm- / Darstellung- beeinflussenden Befehlen z.B.
Requery etc.
Application.Echo True (Achtung nicht Vergessen!!!)
Syntax: Ausdruck.Echo(Echo, bstrStatusleistentext)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Davon habe ich schon gelesen, aber wo sollte der Code in meinem Fall hin?

Das Flackern passiert nur beim Scrollen oder Fenstergröße ändern, was beides nicht als Ereignis mit Code verknüpft werden kann.

maikek · 9. Oktober 2014

Mir fällt nur der Code aus dem Form_Load auf, wo Controls geändert werden.
Wenn du den mal auskommentierst, ändert sich etwas an der Flackerei?
Ein Ereignis für den von Ruedi geposteten Vorschlag wäre möglicherweise Form_Resize, hab ich aber noch nie verwendet.
maike

Powl · 9. Oktober 2014

Auskommentieren in Form_Load ändert nichts, werde mal Resize probieren.

An der Stelle fällt mir ein, wie sollte ich das denn in Form_Resize machen (bzw auch in Form_MouseWheel, was ich grade doch noch gefunden habe)? Wenn ich einfach zwei Zeilen Application.Echo False und dann wieder True reinschreibe, wird sich ja kaum was ändern. Irgendwie muss ich ja spezifisch festlegen, dass Echo False am Anfang und Echo True nach Abschluss der Aktion erfolgen soll.

Lanz Rudolf · 9. Oktober 2014

Hallo
wen Du Schon Komprimieren und Reparieren hast
versuche auch noch
Decompile dazu
Lies bei Donkarl
donkarls Access-Seiten

Office: (Office 2013) Flackern beim Scrollen in Formular verhindern?

Flackern beim Scrollen in Formular verhindern?

Flackern beim Scrollen in Formular verhindern?

Flackern beim Scrollen in Formular verhindern?

Flackern beim Scrollen in Formular verhindern?

Flackern beim Scrollen in Formular verhindern?

Flackern beim Scrollen in Formular verhindern? - Similar Threads - Flackern Scrollen Formular

Flackern trotz Application.ScreenUpdating = False

Formular-Flackern

Starkes Flackern bei Navigieren von Datensätzen

Flackern bei Mausbewegung auf Bezeichnungsfeld

Flackern bei Makro abstellen und Abfrage evtl ändern

Visio Grafiken flackern in Word Dokumenten

command button flackern