AccessTr.neT

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

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, 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.

notrino

ozanakkaya

notrino