A2002: AllowDeletions and blinking screen & combo-box question

[=?windows-1250?Q?Vladim=EDr_Cvajniga?=]

1) In A2002 I have a multiline subform with 11 combo-boxes and 4 text-boxes
with conditional formatting (plus some text boxes in footer). On
Form_Current I set AllowEdits & AllowDeletions to True or False depending on
some conditions.
I've found out that AllowDeletions make screen blinking. Is there any
workaround to avoid blinking screen?

2) Is there any way how to make form's combo-box's drop-down arrow
invisible? Reports don't display the drop-down arrow but forms always do.

TIA

Vlado

 

[Guest]

Hi

Don't know about the flickering with out more info.

For the arrows - Create a number of unbound text boxes the same colour as
the forms back ground. Select Bring to the front. Place these over the
arrows you want to hide (resize them to the correct size for this).

Open the form and when the combos get the focus they will "move forward" so
you will be able to see the arrows for as long as it has the focus after
which the will not be seen.

Hope this helps

 

[Guest]

TYVM for your respond, Wayne.
Comments inline.

V.

Hi

Don't know about the flickering with out more info.

As I said, there are 14 conditional controls (combos & text-boxes) which
seem to slow down repaints. If I remark AllowDeletions all goes OK, ie. no
flicker. This is my code ("nic" is a text-constant):
Public Const nic = "select kasadrts01.ICO from kasadrts01 where
kasadrts01.ICO='////'"

Private Sub Form_Current()
Dim bOK As Boolean

On Error Resume Next
If Nz(SU.Value) <> "" Then
AU.RowSource = "select AU from qryCis_UcOSN where SU = '" & SU.Value &
"'"
Else
AU.RowSource = nic
End If
If Me.Parent.AllowEdits = True Then
bOK = ([obdobi] >= [obdobiGlobal])
Me.AllowEdits = bOK
Me.AllowDeletions = bOK
Else
Me.AllowEdits = False
Me.AllowDeletions = False
End If

End Sub

I think conditional formatting slows down repaint on AllowDeletions but I
don't understand why AllowDeletions needs to repaint the subform. This may
be just another Access bug... :-/
————————————————

For the arrows - Create a number of unbound text boxes the same colour as
the forms back ground. Select Bring to the front. Place these over the
arrows you want to hide (resize them to the correct size for this).

Open the form and when the combos get the focus they will "move forward"
so
you will be able to see the arrows for as long as it has the focus after
which the will not be seen.

Can't use this trick because my combos' background is conditionally
formatted. I should conditionally format the unbound text-boxes as well and
that should slow down all repaints and the flicker would become more
unpleasant.
————————————————

 

[Guest]

Hi

I think someone else will answer - but if not I will look at it in the
morning in the office.


--
Wayne
Manchester, England.

TYVM for your respond, Wayne.
Comments inline.

V.

Hi

Don't know about the flickering with out more info.

As I said, there are 14 conditional controls (combos & text-boxes) which
seem to slow down repaints. If I remark AllowDeletions all goes OK, ie. no
flicker. This is my code ("nic" is a text-constant):
Public Const nic = "select kasadrts01.ICO from kasadrts01 where
kasadrts01.ICO='////'"

Private Sub Form_Current()
Dim bOK As Boolean

On Error Resume Next
If Nz(SU.Value) <> "" Then
AU.RowSource = "select AU from qryCis_UcOSN where SU = '" & SU.Value &
"'"
Else
AU.RowSource = nic
End If
If Me.Parent.AllowEdits = True Then
bOK = ([obdobi] >= [obdobiGlobal])
Me.AllowEdits = bOK
Me.AllowDeletions = bOK
Else
Me.AllowEdits = False
Me.AllowDeletions = False
End If

End Sub

I think conditional formatting slows down repaint on AllowDeletions but I
don't understand why AllowDeletions needs to repaint the subform. This may
be just another Access bug... :-/
————————————————

For the arrows - Create a number of unbound text boxes the same colour as
the forms back ground. Select Bring to the front. Place these over the
arrows you want to hide (resize them to the correct size for this).

Open the form and when the combos get the focus they will "move forward"
so
you will be able to see the arrows for as long as it has the focus after
which the will not be seen.

Can't use this trick because my combos' background is conditionally
formatted. I should conditionally format the unbound text-boxes as well and
that should slow down all repaints and the flicker would become more
unpleasant.
————————————————

 

[missinglinq via AccessMonster.com]

I suspect it's a combination of all the formatting changes plus the AllowEdit
and AllowDeletion that's causing the flicker. Have you tried remarking out
the AllowEdit and leaving in the AllowDeletion; does the flickering once
again stop? With the changes set to the OnCurrent event Access is constantly
revamping things.

Just another stray thought; do you have the Timer firing for any reason? This
can sometimes cause the same behaviour.

 

[Guest]

AllowDeletion in Form_Current blinks even if there's no conditional
formatting. To make it visible on fast machines you have to create "slow"
multiline form (many fields) and put AllowDeletions into Form_Current.

Vlado