else hatası

[zulfuernek]

Private Sub TextBox505_Change()
TextBox505 = Format(TextBox505, "###,###")
If Label192 = TextBox505 Then
For i = 40 To 55 'DÖVİZ TEXTBOXLARI KİLİTLEME
Me.Controls("TextBox" & i).Locked = True
Me.Controls("TextBox" & i).BackColor = &H80000003
ComboBox1.Locked = True
ComboBox1.BackColor = &H80000003
Else
For i = 40 To 55 'DÖVİZ TEXTBOXLARI KİLİTLEME
Me.Controls("TextBox" & i).Locked = False
Me.Controls("TextBox" & i).BackColor = &H80000005
ComboBox1.Locked = False
ComboBox1.BackColor = &H80000005
Next i
End If
End Sub

yukarıdaki formülde else hatası veriyor. (Else Vithout ıf). işyerindeki bilgisayarda sorunsuz çaşışıyordu ancak evdeki bilgisayarımda hata veriyor. bilmedene bir şeyi yanlış yaptım acaba

 

[Orion1]

Private Sub TextBox505_Change()
TextBox505 = Format(TextBox505, "###,###")
If Label192 = TextBox505 Then
For i = 40 To 55 'DÖVİZ TEXTBOXLARI KİLİTLEME
Me.Controls("TextBox" & i).Locked = True
Me.Controls("TextBox" & i).BackColor = &H80000003
ComboBox1.Locked = True
ComboBox1.BackColor = &H80000003
[B][COLOR="Red"]Next[/COLOR][/B]
Else
For i = 40 To 55 'DÖVİZ TEXTBOXLARI KİLİTLEME
Me.Controls("TextBox" & i).Locked = False
Me.Controls("TextBox" & i).BackColor = &H80000005
ComboBox1.Locked = False
ComboBox1.BackColor = &H80000005
Next i
End If
End Sub

 

[zulfuernek]

Orion hıcam neden sadece elsa döngüsü yeterli değil?

 

[Orion1]

Orion hıcam neden sadece elsa döngüsü yeterli değil?

else for döngüsüne ait değildir. if şartında değilse yerine kullanılır.yani if ile ilişkilidir.zaten çıkan hata mesajındada açıklamış.

 

[zulfuernek]

bunuda yapa yapa öğreneceğiz artık Orion hocam. aylardrı uğraştığım programın sonuna bugün geliyorum inşallah. sizlerin sayesinde Orion hocam. ))

 

[Ömer BARAN]

Merhaba Sayın ERNEK, size bir özel mesaj yazmıştım sanırım görmediniz.
Siteye çevrimçi olurken şifre yazdığınız kısmın hemen altındaki ÖZEL MESAJLAR bölümüne tıklayarak ulaşabilirsiniz.

 

[zulfuernek]

ömer hocam mesajınızı görmedim özür dierim. hemen bakıyorum