OnPaint Event for Form

[Adelina_RO]

Hi people
Basically i have one question: why does Access repaint each row by a random number of times and in a random order? (Are those two questions... )
Here is the layout: i have a continuous form where, in the OnPaint event i do some stuff (format some textboxes based on values in the underlying recordset (ADO)). The thing is, every row is painted multiple times whenever i click on an invisible button that's covering the textboxes. When the forms loads, every row is painted 5 times (with the first 3 rows being painted another time), when i click the invisible button, each visible row is painted 4 times.
I've tested this in an unbound form who gets its recordset set in the OnLoad event. So there are no rows to be painted before the last line in the on_load...
I'm stomped, especially since there are no good info on the OnPaint event, safe for a few, but even those are for Reports...
I wouldn't care less about how many times Access decides to paint, but i have a flicker and it may be from this?

P.S. I read that in vb.net there is a double-buffering option to remove screen flicker. Is this also possible for Access?

 

[June7]

Have you tried Conditional Formatting instead?

 

[Pat Hartman]

The Paint event is not appropriate for what you are doing. Use the Format event. It runs once EXCEPT that since Access formats a row before it knows if there is room to print it on the page, If there is no room on the current page, the Retreat event runs, the report footer is formatted, the report header and group headers are formatted, then the detail section is formatted again. You can tell by the FormatCount property whether the event is running for the first time or a subsequent time.

Here's a link with a little more detail.

Ms access VBA - run Detail_Paint() only once on Report_Load()

I've built a report that ranks customers based on certain parameters (like contracting, compliance and communication) and used the built-in conditional formation to compare each field of an entry t...

stackoverflow.com

 

[June7]

OP said this is a form, not report.

 

[Pat Hartman]

OK. The paint event of the FORM is not appropriate for whatever you are trying to do.

As June suggested, Conditional Formatting is used for formatting. It was introduced to get around the problem of trying to format a continuous or DS view form.

The flicker is caused by the code being in the Paint event and running multiple times.

 

[Isaac]

I just had to read this thread, as I've never heard of anyone using the OnPaint event - and didn't even notice it existed until today.
Thanks for teaching me something new

 

[The_Doc_Man]

Interesting... the Form_OnPaint event is not listed in the Microsoft documentation. Nor is a Paint event listed. So I went into Object Browser and looked at the events listed for Access Form objects. Neither .Paint nor .OnPaint is listed.

Form object (Access)

Office VBA reference topic

docs.microsoft.com

Is this a case when an event becomes available if & only if you are doing something specific with the form? Sort of like the fact that OnCurrent does not exist for unbound forms but if you bind it, OnCurrent suddenly shows up?

 

[theDBguy]

The Paint event is listed in the Sections group.

Section.Paint event (Access)

Office VBA reference topic

docs.microsoft.com

 

[The_Doc_Man]

Thanks. I found Section.Paint but the reference I found suggested that it was only a report section event. Sometimes MS has multiple different references online from different year-versions of Office and it is hard to tell what applies when.

I would think that a section will take an OnPaint with each Me.Repaint - which is implied by things like Me.Requery as well as actions that change the status of a control in a way that requires at least a partial repaint. So I guess it WOULD be a busy event.

 

[Adelina_RO]

Well, first of all, i'm super happy i got all of you to answer - Thank you!
The thing is, i used to use Conditional Formatting, but i have quite a few dynamic conditions which I would change on FormLoad. i don't like that approach since i still get the flicker and if the user scrolls fast enough they have quite some lag. Besides, in the Paint event you can change much more than just CF options.
So i take it that there is no right way to do this as to avoid The Flicker (sounds like a horror movie title)...
I read somewhere that the problem might be that Access is painting twice or more times over the same pixel - which is my case, but i have no idea on how to overcome that..

 

[Adelina_RO]

The On_paint event in a form has limited. It can be used in places when you need to format something that CF does not. But even that is problematic. The on paint event fires excessively with any interaction. Almost any movement of the scroll bar will cause it to fire. You can test this by putting a msgbox in the on paint and see how many times you have to click on it. A report has less interaction so this works fine for a lot of things.
Here is an example (no real utility) of using the on paint to change the color of a line randomly on the on_paint event.

i looked at your example and it works, but you only format a line's back color. That works as intended since, first it changes only on property of one control and it's not overlapped with other controls... i need smth more complex.
I've attached a sample to give you an idea

 

[isladogs]

@Adelina_RO
I can't see anything in your Paint event code that can't be done using CF.
Just wondering why you think otherwise

 

[Adelina_RO]

as you've seen, i have both options: OnPaint and CF. For me, OnPaint is slightly easier on the eye, but still...
LE: i found that i can do a combination of both: i use CF for the one time painted controls (like those colored ones) and OnPaint to highlight the current row. Even faster and with less flicker is if i use a rectangle control instead of a textbox for highlighting.
in the end, i was hoping that there was a way with 0 (zero) flicker, but as i'm getting fed up with this (non) issue, i will settle for what i can get.
@MajP : you are right - it is not random, it does the same amount of repainting.
@isladogs : indeed, but CF is way laggier for me

To sum this up: thank you everyone and we can consider this thread closed. I've decided that, when i'll have more time, i'll covert everything to vb.net ))

 

[isladogs]

@isladogs : indeed, but CF is way laggier for me

To sum this up: thank you everyone and we can consider this thread closed. I've decided that, when i'll have more time, i'll covert everything to vb.net ))

Well I disagree ... but have you tried the standard method of reducing flicker?
Try modifying your Paint event to

Private Sub Detail_Paint()
If Not Parent!DP Then Exit Sub

Application.Echo False

'the rest of your code here

Application.Echo True

End Sub

Does that help at all?

 

[MajP]

I have almost no flicker on my machine. It is more like a very quick flash. Is that what you are talking about?
If you have to get rid of this, I guess I would do an unbound form.
You have 8 columns. Lets say you have 20 rows then 160 controls not to painful. You can write some code to give them all a consistent naming convention to be used in coding. Then you have your own controls to load 20 records at a time. (next 20, previous 20). Then you color the controls. This is less work then porting it to .net but not trivial. I have some code to simplify an unbound form, but still some work. I gave up trying to put a complete wrapper on an unbound form

Advanced Class Concepts

Advanced Class Concepts I have posted several threads on using custom classes to extend the capabilities of controls and make pseudo "user controls". https://www.access-programmers.co.uk/forums/threads/developing-custom-classes-to-simulate-user-controls.309080/ This thread has additional concepts.

www.access-programmers.co.uk

Have you played with ADO.NET? This is a steep learning curve. But yes, using a vb.net datagridview you can control each cell.

Up to yeah, but with that said that is a lot of work for what I did not even notice.

 

[Adelina_RO]

Well I disagree ... but have you tried the standard method of reducing flicker?
Try modifying your Paint event to

Private Sub Detail_Paint()
If Not Parent!DP Then Exit Sub

Application.Echo False

'the rest of your code here

Application.Echo False

End Sub

Does that help at all?

This was one of the first things i tried . Unfortunately (or, by design) the moment the Echo becomes True, access repaints everything on the screen, which in turn makes the annoying flicker.
What do you disagree on? On my machine, the semi-flicker is more obvious with CF than with onpaint.

 

[Adelina_RO]

I have almost no flicker on my machine. It is more like a very quick flash. Is that what you are talking about?
If you have to get rid of this, I guess I would do an unbound form.
You have 8 columns. Lets say you have 20 rows then 160 controls not to painful. You can write some code to give them all a consistent naming convention to be used in coding. Then you have your own controls to load 20 records at a time. (next 20, previous 20). Then you color the controls. This is less work then porting it to .net but not trivial. I have some code to simplify an unbound form, but still some work. I gave up trying to put a complete wrapper on an unbound form

Advanced Class Concepts

Advanced Class Concepts I have posted several threads on using custom classes to extend the capabilities of controls and make pseudo "user controls". https://www.access-programmers.co.uk/forums/threads/developing-custom-classes-to-simulate-user-controls.309080/ This thread has additional concepts.

www.access-programmers.co.uk

Have you played with ADO.NET? This is a steep learning curve. But yes, using a vb.net datagridview you can control each cell.

Up to yeah, but with that said that is a lot of work for what I did not even notice.

Call it as you will, but it's annoying as hell. Flash, flicker, the sensation the whole form is blinking... doesn't look very pro ))
I have played with .net and i do know about the steep curve... it got me off it a couple of times already, but each time with more knowledge - luckily i'm moving to vienna for a few months and, as winter is coming indeed, vienna is rather boring, so i'll have a lot of time on my hands.
About your other ideea, that sounds interesting, but i have a huge db with more than 30 fields to be displayed, so it would be more work than it's worth. But for the future, i bookmarked the page already
Thank you

 

[MajP]

Call it as you will, but it's annoying as hell. Flash, flicker, the sensation the whole form is blinking... doesn't look very pro ))

I think you are at the limitation of what you can get in Access. Maybe others have some more ideas to make it better.
As you state, I do not think that would be very doable unbound, The work would be too great IMO for not a lot of benefit. Not that other have not done things this complicated unbound.
If you are going the .Net route PM me and I will help were I can. For fun I took the NorthWind 2010 and recreated it completely with a VB.net front end and access backend. I will tell you it is FAR from trivial. Even if you are already and expert in ADO.NET building this is a lot of work. If you need a book find a used version of ADO.NET by David SCEPPA you will need it. The binding and maintaining the data is the hard part. The .net forms are so robust that the UI you only wish could be done in Access is trivial in .net. Something like this would be trivial in .net, but it is the binding of the data that is not.

 

[isladogs]

This was one of the first things i tried . Unfortunately (or, by design) the moment the Echo becomes True, access repaints everything on the screen, which in turn makes the annoying flicker.
What do you disagree on? On my machine, the semi-flicker is more obvious with CF than with onpaint.

I have several forms (& reports) which appear to have formatting which is at least as complex as yours - possibly more so. For example, this form

... and this report

Of course some flicker is inevitable ... perhaps unless you have a super fast PC like @MajP

I find CF both faster & it causes less flicker ... particularly if I switch off screen repainting whilst CF is being done. I have tried the Paint event in my own apps but abandoned it long ago

Good luck with your project

 

[MajP]

but have you tried the standard method of reducing flicker?

What exactly is that? Just turning off the echo? Which events and where do you turn it on and off? Do you use it in that form you are showing? Can you show the code?