| |
アクセスVBA初心者です。レポートを作成しています。
左上に取引先の名前が縦に３列（テキストボックス）あり、その隣にラベルが同様に３段、設置してあります。
最上段のみにデータがあるときはその隣のラベルを表示
最上段と２段目にデータがあるときは２段目のラベルのみ表示で他は非表示
最上段、２段目、３段目にデータがあるときは３段目のラベルのみを表示
という具合に考えています。自分なりにコードを作成してみましたが、デバックは出ないものの全く何の変化もしません。コードに不備があれば教えてください。
お願いします。もしかしたら 『Private Sub』とか書いているあたりで間違えてたりしませんでしょうか？なにぶん初心者名ものですいません。
Private Sub txttorihikisaki1_afterupdete()
Call change
End Sub
Private Sub txttorihikisaki2_afterupdete()
Call change
End Sub
Private Sub txttorihikisaki3_afterupdete()
Call change
End Sub
Private Sub change()
If IsNull(Me.txttorihikisaki1.Value) = False And _
IsNull(Me.txttorihikisaki2.Value) = True And _
IsNull(Me.txttorihikisaki3.Value) = True Then
labelontyu1.ForeColor = RGB(0, 0, 0)
labelontyu2.ForeColor = RGB(255, 255, 255)
labelontyu3.ForeColor = RGB(255, 255, 255)
ElseIf IsNull(Me.txttorihikisaki1.Value) = False And _
IsNull(Me.txttorihikisaki2.Value) = False And _
IsNull(Me.txttorihikisaki3.Value) = True Then
labelontyu1.ForeColor = RGB(255, 255, 255)
labelontyu2.ForeColor = RGB(0, 0, 0)
labelontyu3.ForeColor = RGB(255, 255, 255)
ElseIf IsNull(Me.txttorihikisaki1.Value) = False And _
IsNull(Me.txttorihikisaki2.Value) = False And _
IsNull(Me.txttorihikisaki3.Value) = False Then
labelontyu1.ForeColor = RGB(255, 255, 255)
labelontyu2.ForeColor = RGB(255, 255, 255)
labelontyu3.ForeColor = RGB(0, 0, 0)
End If
End Sub
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
