Kodların açıklaması hakkında

[ferhatgurbuz]

If Not k Is Nothing Then
For i = 4 To 7
If Not IsNumeric(Controls("TextBox" & i)) Then Controls("TextBox" & i) = 0

For j = 1 To 32
Controls("TextBox" & j) = ""

Next

For Y = 40 To 51
Controls("textbox" & Y) = ""
Next

arkadaşlar bu kodların ne demek istediğini bana biri anlatabilir mi. teşekkür ederim.

 

[ECYavuz]

If Not IsNumeric(Controls("TextBox" & i)) Then Controls("TextBox" & i) = 0

TextBox4 ile ... TextBox7 ye girilen Sayısal Bir değer değilse;

For Y = 40 To 51
Controls("textbox" & Y) = ""
Next

TextBox40 ile... TextBox51 arasındaki TextBox içeriğini temizle...

 

[ferhatgurbuz]

şimdi arkadaşım ben TextBox9 ve TextBox28 i silmiştim ve 4 tanece ComboBox eklemiştim o yüzden hata veriyor sanırım. Onun yerine kendim tamamen senin söylediklerinden mantık yürüterek


For j = 1 To 8
Controls("TextBox" & j) = ""
Next
For z = 10 To 27
Controls("TextBox" & z) = ""
Next
For k = 29 To 32
Controls("TextBox" & k) = ""
Next

For l = 1 To 4
Controls("ComboBox" & l) = ""
Next

For Y = 40 To 51
Controls("textbox" & Y) = ""
Next


Exit Sub


böyle birşey yaptım bir sorun varmı bakabilirmisiniz.