| |
▼クロ さん：
>http://accessclub.jp/bbs3/0037/superbeg15094.html
>上記のBBSスレッドの谷牙さんのレスが参考になると思います。
ありがとうございます。
早速試してみました。
帳票フォームで表示自体は、うまくいきましたが、そのフォームに編集を加えると、一部点滅を繰り返してしまい、うまくいきませんでした。どうやら、編集した段階で、開くイベントが繰り返されてしまうようです。
ほかのサイトでADOやDAOを使って、現在のレコードのNO.を知る方法が載っていたので、それを試してみました。若干重いように感じるのですが、うまくは、いきました。
Public Function GetColor_FS(frm As Form) As Boolean
'
' ﾚｺｰﾄﾞ番号を計算して偶数なら True 奇数なら False を返します
'
Dim rs As DAO.Recordset
Dim lngRecno As Long
On Error Resume Next
With frm
Set rs = .RecordsetClone
rs.Bookmark = .Bookmark
If rs.EOF Or rs.BOF Then
lngRecno = 0
ElseIf Err.Number = 0 Then
lngRecno = rs.AbsolutePosition + 1 '？？？？？
Else
Err.Clear
rs.MoveLast
lngRecno = rs.AbsolutePosition + 2 '？？？？？
End If
End With
GetColor_FS = IIf(lngRecno Mod 2, False, True)
End Function
いまいち意味が分からないところがあるのですが、もっとよい方法があれば、教えてください。
|
|
GEN
- 04/12/5(日) 22:01 -
