continuous form with a circular blinking

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I have a continuous form with a conditional formatting using to highlight a
row.
On this form I have three fields, which can be edited (updated), other
fields are locked.
For those updatable fields I'm using two events AfterUpdate to enter/check
data and on Click to highlight all number for easier entry as below.

Everything is fine on my computer. But, on the user's computer after the
entering a number the user (sometimes, not always) is getting some
circulations and blinking for several minutes.

I would appreciate if somebody could advise how to fix it.

Thanks

Private Sub FSep_AfterUpdate()
Dim snlOldVal As Single
If FSep.OldValue = 0 Then
MsgBox ("Once it was 0 you should ..." _
& Chr(13) & " before doing any total adjustments.")
FSep.Value = 0
Exit Sub
End If

snlOldVal = Me.FSep.OldValue

snlNewTotal = ([FAug] + [FSep] + [FOct] + [FNov] + [FDec] + [FJan] + [FFeb]
+ [FMar] + [FApr] + [FMay] + [FJun] + [FJul])
If Round(snlNewTotal, 0) > Round([AdjY1F], 0) Then
Msg = MsgBox("Your total ...!" _
& Chr(13) & "Is it Ok?", vbYesNo)
If Msg = 6 Then
MsgBox ("The New Total will be " & Round(snlNewTotal, 0))
Else
Me.FSep.Value = snlOldVal
Exit Sub
End If
End If

If Round(snlNewTotal, 0) < Round([AdjY1F], 0) Then
Msg = MsgBox("Your total ..." _
& Chr(13) & " Is it Ok?", vbYesNo)
If Msg = 6 Then
MsgBox ("The New Total will be " & Round(snlNewTotal, 0))
Else
Me.FSep.Value = snlOldVal
Exit Sub
End If
End If

logFlag = True
Me.Recalc
Me.Refresh
End Sub

Private Sub FSep_Click()
Me.FSep.Requery
Me.FSep.SetFocus
End Sub
 
You don't say which version of Access is involved but your symptoms sound
like a known bug in the initial release of Access 2003. In my experience a
continuous form with conditional formatting and calculated values in one or
more controls would trigger it.

This bug was fixed in the service patch to Access issues last fall and
available

TomU
 
Back
Top