AccessTr.neT

Tam Versiyon: komut hatasi..yardimederseniz sevinirim
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
For i = 1 To 6
For k = i + 1 To 6
For y = 1 To 5

If criterc(y) = 1 Then
h(i, 0) = " c(" & i & ", " & k & ")"
h(i, y + 1) = y

Else


If criterd(y) = 1 Then
l(i, 0) = " c(" & i & ", " & k & ")"
l(i, y + 1) = y
End If
Next y
Next k
Next i

End If


End Sub


bole bi kod yazdim ama surekli hata veriyor...next without for..for without next gibi ne yaptiysam olmadi
AccessTr.Net Forumlarında Uyulması Gereken Genel Kurallar
2-) AccessTr.neT olarak En çok dikkat ettiğimiz noktalardan biri; Türkçemizin güzel kullanılmasıdır. Q W gibi Türkçeyle alakası olmayan harflerin kelime içerisinde kullanılması yasaktır. Konu başlığında ve mesajlarda kelimeler Türkçe yazılmak zorundadır. Kelimeler "acik", "degisik", "cunku", "saol" şeklinde yazılmamalıdır.
[Uyarı Puanı: +2]

5-) Açacağınız konunun başlığı "Şunu Yapamıyorum", "Şurasını Yapamadım", "acil yardım", lütfen yardım", "bir bakar mısınız" vb. şeklinde yazılmamalı, sorununuzu kısaca özetleyecek şekilde olmalıdır. (Örnek: Access'te Form Özellikleri Nelerdir?)
[Uyarı Puanı: +2]

10-) Konu açarken sorununuzu açık bir şekilde ifade etmelisiniz. Gerekirse aldığınız hata kodlarını, resimlerini ekleyin ve mutlaka örnek uygulama (14. Maddede belirtildiği şekilde) ekleyin. Sorunuzu mutlaka konuya yazınız, konuya soru içeren slayt eklemeyiniz. bu şekilde sorunlarınızı daha kolay anlayabilir, sizlere daha rahat yardımcı olabiliriz.
[Uyarı Puanı: +2]

21-) Forumun işleyiş ve kuralları konusunda üyeleri bilgilendirmek forumun veya yöneticilerin görevi değildir. Üyeler bu kuralları okuyup uymak zorundadır. Foruma üye olan herkes, üyelik kurallarını tamamen okumuş ve kabul etmiş sayılacağından, sonradan "Bilmiyordum" ya da "Görmedim" gibi bir mazeret kabul edilmez.
Öncelikle lütfen forum kurallarına uyun.

Kod:
For i = 1 To 6
For k = i + 1 To 6
For y = 1 To 5

If criterc(y) = 1 Then
    h(i, 0) = " c(" & i & ", " & k & ")"
    h(i, y + 1) = y
Else
   If criterd(y) = 1 Then
       l(i, 0) = " c(" & i & ", " & k & ")"
       l(i, y + 1) = y
    End If
End If

Next y
Next k
Next i

End Sub

Next'ler If bloğunun içinde kalmış, dışına almalısınız.