My forms jitter and shake on mouseover...

C

Chris76

I created a form that has multiple tab pages..

When I create headings for different areas on the form using the labe
tool... when you go over the headings with the mouse.. the form seem
to jitter and shake..

The jitters and shake do not occur when you mouseover on a labe
associated with a control or textbox..

Has anyone else have this problem
 
K

Ken Snell \(MVP\)

Are you using Windows XP themes? That is a common "issue" with those
Themes....
 
C

Chris76

Thank you for your responses...

I am using windows XP.. I plan on putting the application on svera
differnet computers (some that are not mine) so I would have to use th
VB code option to fix the issue.. I have a question or two about it (i
not too familiar with VB)

When the function string states... "DoCmd.OpenForm strFormName
acDesign, "
Am I putting in my form name after the "str"? am i leaving it as is?
how do i identify my form name to the code? im not really sure how i
works..

I was just using that line as an example..The "strFormName" expressio
is throughout the code... Im not sure what to do...

Thanks in advance.
 
K

Ken Snell \(MVP\)

strFormName is a string variable that holds the name of the form. So you
would need to set the variable to a value before you use the DoCmd.OpenForm
line of code:

strFormName = "ActualNameOfYourForm"
 
C

Chris76

What I was asking i replacing the "str" part of the string or am
putting in the name of my form which is "ECT Case Worksheet"

Here is some of that code....

Function ConvertLabelOnTabPage(strFormName As String, _
Optional bSaveAndClose As Boolean, Optional bHidden A
Boolean)
'Purpose: Change unattached labels on pages of tab control int
text boxes.
' Avoids flicker bug under Windows XP themes.
Dim frm As Form
Dim ctl As Control
Dim strName As String
Dim strCaption As String
Dim bytBackStyle As Byte
Dim bChanged As Boolean
Const strcQuote = """"

'Open the form in design view
DoCmd.OpenForm strFormName, acDesign, _
windowmode:=IIf(bHidden, acHidden, acWindowNormal)
Set frm = Forms(strFormName)

*** At what point am i putting in my form name? ** Like i said I hav
no knowledge of VB so I am lost with this and appreciate any help I ca
get..
 
K

Ken Snell \(MVP\)

I've inserted a code line in the code snippet that you posted so that you
can see how you would set the value of strFormName.

Function ConvertLabelOnTabPage(strFormName As String, _
Optional bSaveAndClose As Boolean, Optional bHidden As
Boolean)
'Purpose: Change unattached labels on pages of tab control into
text boxes.
' Avoids flicker bug under Windows XP themes.
Dim frm As Form
Dim ctl As Control
Dim strName As String
Dim strCaption As String
Dim bytBackStyle As Byte
Dim bChanged As Boolean
Const strcQuote = """"

'Set the form name variable
strFormName = "ECT Case Worksheet"

'Open the form in design view
DoCmd.OpenForm strFormName, acDesign, _
windowmode:=IIf(bHidden, acHidden, acWindowNormal)
Set frm = Forms(strFormName)
 
C

Chris76

I appreciate the help--

However either I am doing something wrong or the fix does not apply t
my problem.. My forms still flicker..

If you have any other suggestions--please let me kno
 
A

Allen Browne

Chris, if you run the FixAllForms() at:
http://allenbrowne.com/ser-46.html
there is no need to change any of the code. It will identify any forms that
have the problem, and make the changes.

If you want to fix just the form named "ECT Case Worksheet", you would open
the Immediate Window (Ctrl+G) and enter:
? ConvertLabelOnTabPage("ECT Case Worksheet")

If you have done that, and the code ran to completion, and the problem
persists, there must be another cause, such as something in the MouseMove
event of a control.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top