Access içinde bir komut...

Öncelikle şunu belirteyim. Bir arkadaşıma gerek ama 1 saat oldu ne istediğini tam anlayamadım ve mahvetti beni

Şimdi soru şuymuş tam olarak;

accesste bir sayısal loto programı oluşturacak ancak 6 metin kutusundaki sayılar iki basamaklı olacak ve eşit olmayacak
birbirinden farklı sayıları tutup yazan bir program isteniyor..

Private Sub cmdcalistir_Click()
txt1 = Int(Rnd() * 100)
txt2 = Int(Rnd() * 100)
txt3 = Int(Rnd() * 100)
txt4 = Int(Rnd() * 100)
txt5 = Int(Rnd() * 100)
txt6 = Int(Rnd() * 100)
End Sub

İstenen şuymuş; 1. kutuda 10 varsa diğer 5 kutuda 10 olmayacak.
Yani else eşitse +1 gibi birşey gerek. Yada eşit gelmemesi için bir kod.

Bilgisi olan varmı arkadaşlar Yoksa kafayı ben yiyeceğimde.

Do until kullanarak randomları kontrol et misal txt1 <> txt2 and txt2 <> txt3 .. eşit olmayana kadar işlem devam etsin Döngü kullanacaksın yani

txt1 = Int(Rnd(0) * 15)
txt2 = Int(Rnd(16) * 30)

Gibi birşey düşündüm ama sizin dediğiniz gibi tam nasıl olurki?
Diyeyim ama..

 Dim txt1, txt2, txt3, txt4, txt5, txt6 As Integer
        Randomize()
        Do Until txt1 <> txt2 And txt2 <> txt3 And txt3 <> txt4 And txt4 <> txt5 And txt5 <> txt6
            txt1 = Rnd() * 100
            txt2 = Rnd() * 100
            txt3 = Rnd() * 100
            txt4 = Rnd() * 100
            txt5 = Rnd() * 100
            txt6 = Rnd() * 100
        Loop

Bu şekilde döngü 6 değişkeninde birbirine benzemiyecek hale gelene kadar döndürür sonra çıkar döngüden ve elinizde 6 birbirinden farklı değişken olur.

Gitti başımın belası
Gelir birkaç saate bi denettireyim.
Sağolun hocam sonuçları yazacağım tekrar.

Çalışmıyor Randomize de sorun var gibi.

İf kontrolleri ile uğraşmayın Boşuna alın şimdi yazdım hayrını görün.

Buyur bu program
http://www.burhanemre.com/uploads/srand_deneme.rar
Programdan kodları alıp kullanabilirisniz

Bu da resim
http://www.burhanemre.com/uploads/Loto.png

İnşallah Access in code kısmı diğer sınıfları destekliyordur.
Denemedim En son Lise yıllarında uğraşmıştım
Vb .NEt de yazdım Koydum umarım işinize yarar

Access'den içerimi aktarsın bunları yani?
Neyse kendisi biliyordur. Bir göndereyimde.