Kod Uzun ; Bir Alt Satıra Geçiyor

[vivident]

Merhaba böyle bir kodum var
Kod çok olduğu için bir alt satıra geçip hata veriyor. Nasıl bu kodu sade hale getirebilirim. veya alt satıra geçince hatayı nasıl yok edebilirim

Aşağıdaki kodu boş bir modüle yapıştırarak deneme yapabilirsiniz

If TextBox100_10 = "" And TextBox101_10 = "" And TextBox102_10 = "" And TextBox103_10 = "" And TextBox104_10 = "" And TextBox105_10 = "" And TextBox106_10 = "" And TextBox107_10 = "" And TextBox108_10 = "" And TextBox109_10 = "" And TextBox110_10 = "" And TextBox111_10 = "" And TextBox112_10 = "" And TextBox113_10 = "" And TextBox114_10 = "" And TextBox115_10 = "" And TextBox116_10 = "" And TextBox117_10 = "" And TextBox118_10 = "" And TextBox119_10 = "" And TextBox120_10 = "" And TextBox121_10 = "" And TextBox122_10 = "" And TextBox123_10 = "" And TextBox124_10 = "" And TextBox125_10 = "" And TextBox126_10 = "" And TextBox127_10 = "" And TextBox128_10 = "" And TextBox129_10 = "" And TextBox130_10 = "" And TextBox131_10 = "" And TextBox132_10 = "" And TextBox133_10 = "" And TextBox134_10 = "" And TextBox135_10 = "" And TextBox136_10 = "" And TextBox137_10 = "" And TextBox138_10 = "" And TextBox139_10 = "" And TextBox140_10 = "" And TextBox141_10 = "" And TextBox142_10 = "" And TextBox143_10 = "" And TextBox144_10 = "" Then

 

[Zeki Gürsoy]

İki şekilde yapabilirsiniz:

- "_" ile bölme Ör:

If TextBox100_10 = "" And TextBox101_10 = "" And [SIZE=3][COLOR=Blue][B]_[/B][/COLOR][/SIZE]
   TextBox102_10 = "" .....

- Karşılaştırmayı bölme Ör:

If TextBox100_10 = "" And TextBox101_10 = "" Then
   If TextBox102_10 = "" Then
      .
      .
   End If
End If

 

[alicimri]

Kodu aşağıdaki gibi kısaltabilirsiniz.

Test = True
For i = 100 To 144
If Me.Controls("TextBox" & i & "_10").Value <> "" Then
Test = False
Exit For
End If
Next
If Test = True Then

 

[alicimri]

Yukardaki kod ile kodu kısaltabilirsiniz.