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