MS Access 2007 连续表格交替背景颜色屏幕损坏
MS Access 2007 Continuous Form Alternate Back Colour Screen Corruption
应该有一个简单的解决方案,但我找不到:
我有一个连续的表单,所有控件都已启用并锁定,并且背景和框架都是透明的。 Form:Detail 部分设置了备用背景颜色。
该表单显示通过表单 header 中的组合框选择的银行帐户的交易。更改银行帐户后,将显示新帐户的交易记录。
但是,如果为新帐户显示的第一个 on-screen 行的颜色与以前帐户的颜色不同,则所有控件都会保留以前显示的行的背景颜色。同样的屏幕损坏发生在重新查询或控制转到特定行时。
希望下图能说明问题:
Example of Alternate Back Colour problem
我尝试了各种方法,但似乎都无法解决这个问题。最后的办法是删除备用背景色,但我真的不想那样做。如果您能帮助解决这个问题,我们将不胜感激。
尽管我试图将它从我的脑海中抹去并继续使用功能性的东西,但它一直在不断地琐碎。经过大量搜索并且通常会分心后,我找到了一个非常简单的解决方案(在 https://access-programmers.co.uk/forums/showthread.php?t=268390):
当我更改帐户或转到记录时,只需将记录操作括在 'Echo False'、'Echo True' 对中即可。所以,例如:
If RecordsetClone.RecordCount > 0 Then
Me.RecordsetClone.MoveLast
If Me.RecordsetClone.RecordCount > wRowNum Then
wRecordNo = Me.RecordsetClone.RecordCount - wRowNum
Else
wRecordNo = Me.RecordsetClone.RecordCount
End If
Echo False
DoCmd.GoToRecord , , acGoTo, wRecordNo
Echo True
End If
或:
Set rs = Me.Recordset.Clone
rs.FindFirst "WkACT_ID = " & Nz(wCurrentRecord, 0)
If Not rs.EOF Then
Echo False
Me.Bookmark = rs.Bookmark
Echo True
End If
万岁!希望这对那些被同样的化妆品所困扰的人有所帮助,尽管这很令人恼火。
应该有一个简单的解决方案,但我找不到:
我有一个连续的表单,所有控件都已启用并锁定,并且背景和框架都是透明的。 Form:Detail 部分设置了备用背景颜色。
该表单显示通过表单 header 中的组合框选择的银行帐户的交易。更改银行帐户后,将显示新帐户的交易记录。
但是,如果为新帐户显示的第一个 on-screen 行的颜色与以前帐户的颜色不同,则所有控件都会保留以前显示的行的背景颜色。同样的屏幕损坏发生在重新查询或控制转到特定行时。
希望下图能说明问题:
Example of Alternate Back Colour problem
我尝试了各种方法,但似乎都无法解决这个问题。最后的办法是删除备用背景色,但我真的不想那样做。如果您能帮助解决这个问题,我们将不胜感激。
尽管我试图将它从我的脑海中抹去并继续使用功能性的东西,但它一直在不断地琐碎。经过大量搜索并且通常会分心后,我找到了一个非常简单的解决方案(在 https://access-programmers.co.uk/forums/showthread.php?t=268390):
当我更改帐户或转到记录时,只需将记录操作括在 'Echo False'、'Echo True' 对中即可。所以,例如:
If RecordsetClone.RecordCount > 0 Then
Me.RecordsetClone.MoveLast
If Me.RecordsetClone.RecordCount > wRowNum Then
wRecordNo = Me.RecordsetClone.RecordCount - wRowNum
Else
wRecordNo = Me.RecordsetClone.RecordCount
End If
Echo False
DoCmd.GoToRecord , , acGoTo, wRecordNo
Echo True
End If
或:
Set rs = Me.Recordset.Clone
rs.FindFirst "WkACT_ID = " & Nz(wCurrentRecord, 0)
If Not rs.EOF Then
Echo False
Me.Bookmark = rs.Bookmark
Echo True
End If
万岁!希望这对那些被同样的化妆品所困扰的人有所帮助,尽管这很令人恼火。