Merhaba, 

form_kategori isimli formdaki 3'lü random resim için kod

    rsm_1 = CInt(Int((GKayitSayisi * Rnd()) + 1))

    rsm_2 = CInt(Int((GKayitSayisi * Rnd()) + 1))



        If rsm_2 = rsm_1 Then

            Do Until rsm_1 <> rsm_2

                rsm_2 = CInt(Int((GKayitSayisi * Rnd()) + 1))

            Loop

        End If



    rsm_3 = CInt(Int((6 * Rnd()) + 1))



        If rsm_3 = rsm_1 Or rsm_3 = rsm_2 Then

            Do Until rsm_3 <> rsm_2 And rsm_3 <> rsm_1

                rsm_3 = CInt(Int((GKayitSayisi * Rnd()) + 1))

            Loop

        End If

Bunu 4' resimde kullanmak için kodun aşağıdaki gibi olması gerekli,

Sub SayiUret()



On Error GoTo Hata



rsm_1 = CInt(Int((GKayitSayisi * Rnd()) + 1))

rsm_2 = CInt(Int((GKayitSayisi * Rnd()) + 1))



    If rsm_2 = rsm_1 Then



        Do Until rsm_1 <> rsm_2



            rsm_2 = CInt(Int((GKayitSayisi * Rnd()) + 1))



        Loop



    End If



rsm_3 = CInt(Int((GKayitSayisi * Rnd()) + 1))



    If rsm_3 = rsm_1 Or rsm_3 = rsm_2 Then



        Do Until rsm_3 <> rsm_2 And rsm_3 <> rsm_1



            rsm_3 = CInt(Int((GKayitSayisi * Rnd()) + 1))



        Loop



    End If



rsm_4 = CInt(Int((GKayitSayisi * Rnd()) + 1))



    If rsm_4 = rsm_1 Or rsm_4 = rsm_2 Or rsm_4 = rsm_3 Then



        Do Until rsm_4 <> rsm_1 And rsm_4 <> rsm_2 And rsm_4 <> rsm_3



            rsm_4 = CInt(Int((GKayitSayisi * Rnd()) + 1))



        Loop



End If





Hata:

If Err.Number <> 0 Then

MsgBox (Err.Number)

Exit Sub

End If

End Sub

Siz mi değiştirdiniz, ben mi yanlış kod ekledim bilmiyorum ama frm_sor isimli formdaki

rsm_3 = CInt(Int((6 * Rnd()) + 1))

kodunun 

rsm_3 = CInt(Int((GKayitSayisi * Rnd()) + 1))

şeklinde olması gerekli, kodda 6 yazarsa ilk 6 sayı arasında rastgele sayı üretir.


Ayrıca, random resimlerin aynı olmaması için aynı resmi iki kere eklememeniz gerekli. 7. ve 9. kayıtta köpek ile ilgili veri girişi yapılmış.

Üstteki kodları inceleyin, ne eklenmiş, neden eklenmiş çözmeye çalışın.