Skip to main content

AccessTr.neT


komut hatasi..yardimederseniz sevinirim

ubermensch
ubermensch
2
1602

komut hatasi..yardimederseniz sevinirim

#1
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
Cevapla
#2
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.
Cevapla
#3
Ö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.
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task