亞紀姐
2025/05/20 (火) 23:38:50
fee7e@6d185
失礼いたしました。
Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
If Me.退職者 = "退職" Then
Me.退職者.BorderColor = RGB(0, 0, 0)
Else
Me.退職者.BorderColor = RGB(255, 0, 0)
End If
End Sub
がエラーが出たコードで、
Private Sub Report_Current()
If Me.退 = True Then
Me.退職者.BorderColor = RGB(0, 0, 0)
Else
Me.退職者.BorderColor = RGB(255, 0, 0)
End If
End Sub
が何も色が変わらなかったコードです。
よろしくお願いいたします。
通報 ...