Kod:
	Private Sub Report_Load()
Dim FS As Integer
If Me.FS = 1 Then
Me.Kimlik.BackColor = RGB(255, 0, 0)
Else
If Me.FS = 2 Then
Me.Kimlik.BackColor = RGB(128, 255, 0)
End If
End Sub #1
			
				
			
			
			
			
#1
		Private Sub Report_Load()
Dim FS As Integer
If Me.FS = 1 Then
Me.Kimlik.BackColor = RGB(255, 0, 0)
Else
If Me.FS = 2 Then
Me.Kimlik.BackColor = RGB(128, 255, 0)
End If
End Sub