AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

Compile Error

11/09/2018, 11:23

notrino

Aşağıdaki kodu yazdığımda "Block if without End if" hatası alıyorum. Bu nedir ve nasıl düzelir? Tşk.

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
11/09/2018, 16:15

ozanakkaya

2 defa if kodu yazılmış ancak end if 1 defa yazılmış.
end if kodunun altına bir tane daha end if kodu yazmalısınız.
11/09/2018, 22:47

notrino

(11/09/2018, 16:15)ozanakkaya yazdı: 2 defa if kodu yazılmış ancak end if 1 defa yazılmış.
end if kodunun altına bir tane daha end if kodu yazmalısınız.

Merhabalar,

Evet problem çözüldü. Tşk.