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

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.

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