Vardiyeyi Random Atama

Merhaba, Zor_at isimli butonun tıklandığında olayındaki kodun aşağıdaki gibi olması gerekli,

Private Sub Zor_at_Click()



Dim EnBuyukKimlik As Integer



EnBuyukKimlik = DMax("calisanid", "Calisanlar")



Gol_d_1 = ""

Dilekce = ""

Sorun = ""

Sts_1 = ""

Sts_2 = ""

Kriterim = ""



Do Until Len(Gol_d_1) > 1 And Len(Dilekce) > 1 And Len(Sorun) > 1 And Len(Sts_1) > 1 And Len(Sts_2) > 1



    Do Until Len(Gol_d_1) <> 0

        Gol_d_1 = Dlookup ("Calisan_Adi", "Calisanlar", "[calisanid] = " & Int((EnBuyukKimlik - 1 + 1) * Rnd + 1) & " And [sabitli] = -1 and [izinli] = 0")

    Loop

    Kriterim = "'" & Gol_d_1 & "'"



    Do Until Len(Dilekce) <> 0

        Dilekce = Dlookup ("Calisan_Adi", "Calisanlar", "[calisanid] = " & Int((EnBuyukKimlik - 1 + 1) * Rnd + 1) & " And [Dokuman] = -1 and [izinli] = 0 And ([Calisan_Adi] not in(" & Kriterim & "))")

    Loop

    Kriterim = Kriterim & ",'" & Dilekce & "'"



    Do Until Len(Sorun) <> 0

        Sorun = Dlookup ("Calisan_Adi", "Calisanlar", "[calisanid] = " & Int((EnBuyukKimlik - 1 + 1) * Rnd + 1) & " And [sorun] = -1 and [izinli] = 0 And ([Calisan_Adi] not in(" & Kriterim & "))")

    Loop

     Kriterim = Kriterim & ",'" & Sorun & "'"



    Do Until Len(Sts_1) <> 0

        Sts_1 = Dlookup ("Calisan_Adi", "Calisanlar", "[calisanid] = " & Int((EnBuyukKimlik - 1 + 1) * Rnd + 1) & " And [sts] = -1 and [izinli] = 0 And ([Calisan_Adi] not in(" & Kriterim & "))")

    Loop



    Kriterim = Kriterim & ",'" & Sts_1 & "'"



    Do Until Len(Sts_2) <> 0

        Sts_2 = Dlookup ("Calisan_Adi", "Calisanlar", "[calisanid] = " & Int((EnBuyukKimlik - 1 + 1) * Rnd + 1) & " And [sts] = -1 and [izinli] = 0 And ([Calisan_Adi] not in(" & Kriterim & "))")

    Loop

    Kriterim = Kriterim & ",'" & Sts_2 & "'"



Loop



End Sub

Hocam çok teşekkür ederim fakat bu komudueklediğimde hiçbirşey yapmıyor.

Acaba bir yerde yanlışlık mı yapıyorum

Konu ile alakalı ben bir yerde hata yapıyormuşum düzelttim.

Ellerinize sağlık.Süper bir site burası açıkçası bu kadar bilgili ve bu kadar yardım sever insanların bir arada toplandığı başka bir foruma rastlamadım.Tekrar çok teşekkürler.