Teşekkür ederim.En kısa kod bu oldu. Dediğiniz gibi yaptım. Alan değerlerinin hepsini ve komut tuşlarını "kutu" olarak adlandırdım. Sizin "kutu" olarak alandırdığınız metin kutularını "alan" olarak isimlendirip herhangi bir karışıklığa sebeb olmasını engelledim. Sonuçta kod aşağıdaki gibi oldu:
Kod:
For i = 0 To 9 Step 1
If IsNull(Me("Kutu" & i & "1")) Or IsNull(Me("Kutu" & i & "2")) Or IsNull(Me("Kutu" & i & "3")) Or IsNull(Me("Kutu" & i & "4")) Then Me("Kutu" & i & "7").Enabled = False Else Me("Kutu" & i & "7").Enabled = True
Next i
Tamam.Çözümü buldum.Kodu aşağıdaki şekilde yazdım ve sorun bitti. Bütün ilgilenen ve yardımcı olan arkadaşlara çok teşekkürler.
Kod:
For i = 0 To 9 Step 1
If IsNull(Me("Kutu" & i & "1")) Or IsNull(Me("Kutu" & i & "2")) Or IsNull(Me("Kutu" & i & "3")) Or (Me("Kutu" & i & "3")) = "0.0" Or IsNull(Me("Kutu" & i & "4")) Then Me("Kutu" & i & "7").Enabled = False Else Me("Kutu" & i & "7").Enabled = True
Next i