If Nz(DLookup("[Aktif]", "Deskler", "[Lokasyon]=3 And [Desk_Adi]='Cag_1'"), 0) <> 0 Then
Do Until Len(Call_1) <> 0
Call_1 = Dlookup ("Calisan_Adi", "Calisanlar", "[calisanid] = " & Int((EnBuyukKimlik - 1 + 1) * Rnd + 1) & " And [Cagri_Merkezi] = -1 and [izinli] = 0")
Loop
Kriterim = "'" & Call_1 & "',"
Olcut = Replace("And ([Calisan_Adi] not in(" & Kriterim & "))", "',)", "')")
End If
If Nz(DLookup("[Aktif]", "Deskler", "[Lokasyon]=3 And [Desk_Adi]='Cag_2'"), 0) <> 0 Then
Do Until Len(Call_2) <> 0
Call_2 = Dlookup ("Calisan_Adi", "Calisanlar", "[calisanid] = " & Int((EnBuyukKimlik - 1 + 1) * Rnd + 1) & " And [Cagri_Merkezi] = -1 and [izinli] = 0 " & Olcut & "")
Loop
Kriterim = Kriterim & "'" & Call_2 & "',"
Olcut = Replace("And ([Calisan_Adi] not in(" & Kriterim & "))", "',)", "')")
End If
If Nz(DLookup("[Aktif]", "Deskler", "[Lokasyon]=3 And [Desk_Adi]='Cag_3'"), 0) <> 0 Then
Do Until Len(Call_3) <> 0
Call_3 = Dlookup ("Calisan_Adi", "Calisanlar", "[calisanid] = " & Int((EnBuyukKimlik - 1 + 1) * Rnd + 1) & " And [Cagri_Merkezi] = -1 and [izinli] = 0 " & Olcut & "")
Loop
Kriterim = Kriterim & "'" & Call_3 & "',"
Olcut = Replace("And ([Calisan_Adi] not in(" & Kriterim & "))", "',)", "')")
End If
If Nz(DLookup("[Aktif]", "Deskler", "[Lokasyon]=3 And [Desk_Adi]='Cag_4'"), 0) <> 0 Then
Do Until Len(Call_4) <> 0
Call_4 = Dlookup ("Calisan_Adi", "Calisanlar", "[calisanid] = " & Int((EnBuyukKimlik - 1 + 1) * Rnd + 1) & " And [Cagri_Merkezi] = -1 and [izinli] = 0 " & Olcut & "")
Loop
Kriterim = Kriterim & "'" & Call_4 & "',"
Olcut = Replace("And ([Calisan_Adi] not in(" & Kriterim & "))", "',)", "')")
End If
If Nz(DLookup("[Aktif]", "Deskler", "[Lokasyon]=3 And [Desk_Adi]='Cag_5'"), 0) <> 0 Then
Do Until Len(Call_5) <> 0
Call_5 = Dlookup ("Calisan_Adi", "Calisanlar", "[calisanid] = " & Int((EnBuyukKimlik - 1 + 1) * Rnd + 1) & " And [Cagri_Merkezi] = -1 and [izinli] = 0 " & Olcut & "")
Loop
Kriterim = Kriterim & "'" & Call_5 & "',"
Olcut = Replace("And ([Calisan_Adi] not in(" & Kriterim & "))", "',)", "')")
End If
If Nz(DLookup("[Aktif]", "Deskler", "[Lokasyon]=3 And [Desk_Adi]='Cag_6'"), 0) <> 0 Then
Do Until Len(Call_6) <> 0
Call_6 = Dlookup ("Calisan_Adi", "Calisanlar", "[calisanid] = " & Int((EnBuyukKimlik - 1 + 1) * Rnd + 1) & " And [Cagri_Merkezi] = -1 and [izinli] = 0 " & Olcut & "")
Loop
Kriterim = Kriterim & "'" & Call_6 & "',"
Olcut = Replace("And ([Calisan_Adi] not in(" & Kriterim & "))", "',)", "')")
End If
If Nz(DLookup("[Aktif]", "Deskler", "[Lokasyon]=3 And [Desk_Adi]='Cag_7'"), 0) <> 0 Then
Do Until Len(Call_7) <> 0
Call_7 = Dlookup ("Calisan_Adi", "Calisanlar", "[calisanid] = " & Int((EnBuyukKimlik - 1 + 1) * Rnd + 1) & " And [Cagri_Merkezi] = -1 and [izinli] = 0 " & Olcut & "")
Loop
Kriterim = Kriterim & "'" & Call_7 & "',"
Olcut = Replace("And ([Calisan_Adi] not in(" & Kriterim & "))", "',)", "')")
End If
If Nz(DLookup("[Aktif]", "Deskler", "[Lokasyon]=3 And [Desk_Adi]='Cag_8'"), 0) <> 0 Then
Do Until Len(Call_8) <> 0
Call_8 = Dlookup ("Calisan_Adi", "Calisanlar", "[calisanid] = " & Int((EnBuyukKimlik - 1 + 1) * Rnd + 1) & " And [Cagri_Merkezi] = -1 and [izinli] = 0 " & Olcut & "")
Loop
Kriterim = Kriterim & "'" & Call_8 & "',"
Olcut = Replace("And ([Calisan_Adi] not in(" & Kriterim & "))", "',)", "')")
End If
If Nz(DLookup("[Aktif]", "Deskler", "[Lokasyon]=3 And [Desk_Adi]='Cag_9'"), 0) <> 0 Then
Do Until Len(Call_9) <> 0
Call_9 = Dlookup ("Calisan_Adi", "Calisanlar", "[calisanid] = " & Int((EnBuyukKimlik - 1 + 1) * Rnd + 1) & " And [Cagri_Merkezi] = -1 and [izinli] = 0 " & Olcut & "")
Loop
Kriterim = Kriterim & "'" & Call_9 & "',"
Olcut = Replace("And ([Calisan_Adi] not in(" & Kriterim & "))", "',)", "')")
End If
If Nz(DLookup("[Aktif]", "Deskler", "[Lokasyon]=3 And [Desk_Adi]='Cag_10'"), 0) <> 0 Then
Do Until Len(Call_10) <> 0
Call_10 = Dlookup ("Calisan_Adi", "Calisanlar", "[calisanid] = " & Int((EnBuyukKimlik - 1 + 1) * Rnd + 1) & " And [Cagri_Merkezi] = -1 and [izinli] = 0 " & Olcut & "")
Loop
Kriterim = Kriterim & "'" & Call_10 & "',"
Olcut = Replace("And ([Calisan_Adi] not in(" & Kriterim & "))", "',)", "')")
End If
If Nz(DLookup("[Aktif]", "Deskler", "[Lokasyon]=3 And [Desk_Adi]='Cag_11'"), 0) <> 0 Then
Do Until Len(Call_11) <> 0
Call_11 = Dlookup ("Calisan_Adi", "Calisanlar", "[calisanid] = " & Int((EnBuyukKimlik - 1 + 1) * Rnd + 1) & " And [Cagri_Merkezi] = -1 and [izinli] = 0 " & Olcut & "")
Loop
Kriterim = Kriterim & "'" & Call_11 & "',"
Olcut = Replace("And ([Calisan_Adi] not in(" & Kriterim & "))", "',)", "')")
End If
If Nz(DLookup("[Aktif]", "Deskler", "[Lokasyon]=3 And [Desk_Adi]='Cag_12'"), 0) <> 0 Then
Do Until Len(Call_12) <> 0
Call_12 = Dlookup ("Calisan_Adi", "Calisanlar", "[calisanid] = " & Int((EnBuyukKimlik - 1 + 1) * Rnd + 1) & " And [Cagri_Merkezi] = -1 and [izinli] = 0 " & Olcut & "")
Loop
Kriterim = Kriterim & "'" & Call_12 & "',"
Olcut = Replace("And ([Calisan_Adi] not in(" & Kriterim & "))", "',)", "')")
End IfÖrnek uygulamanızda, sadece bu kısmın değiştirilmiş hali,
Private Sub Zor_at_Click()
Dim EnBuyukKimlik As Integer
EnBuyukKimlik = DMax("calisanid", "Calisanlar")
Call_1 = ""
Call_2 = ""
Call_3 = ""
Call_4 = ""
Call_5 = ""
Call_6 = ""
Call_7 = ""
Call_8 = ""
Call_9 = ""
Call_10 = ""
Call_11 = ""
Call_12 = ""
Gol_d_1 = ""
Gol_d_2 = ""
Gol_d_3 = ""
Dilekce = ""
Sorun = ""
Karsilama_1 = ""
Karsilama_2 = ""
Karsilama_3 = ""
Karsilama_4 = ""
Normal_1 = ""
Normal_2 = ""
Normal_3 = ""
Normal_4 = ""
Normal_5 = ""
Normal_6 = ""
Normal_7 = ""
Normal_8 = ""
Sts_1 = ""
Sts_2 = ""
Kriterim = ""
Olcut = ""
''Do Until Len(Call_1) > 1 And Len(Call_2) > 1 And Len(Call_3) > 1 And Len(Call_4) > 1 And Len(Call_5) > 1 And Len(Call_6) > 1 And Len(Call_7) > 1 And Len(Call_8) > 1 And Len(Call_9) > 1 And Len(Call_10) > 1 And Len(Gol_d_1) > 1 And Len(Gol_d_2) > 1 And Len(Gol_d_3) > 1 And Len(Dilekce) > 1 And Len(Sorun) > 1 And Len(Sts_1) > 1 And Len(Sts_2) > 1 And Len(Karsilama_1) > 1 And Len(Karsilama_2) > 1 And Len(Karsilama_3) > 1 And Len(Karsilama_4) > 1 And Len(Normal_1) > 1 And Len(Normal_2) > 1 And Len(Normal_3) > 1 And Len(Normal_4) > 1 And Len(Normal_5) > 1 And Len(Normal_6) > 1 And Len(Normal_7) > 1 And Len(Normal_8) > 1
If Nz(DLookup("[Aktif]", "Deskler", "[Lokasyon]=3 And [Desk_Adi]='Cag_1'"), 0) <> 0 Then
Do Until Len(Call_1) <> 0
Call_1 = Dlookup ("Calisan_Adi", "Calisanlar", "[calisanid] = " & Int((EnBuyukKimlik - 1 + 1) * Rnd + 1) & " And [Cagri_Merkezi] = -1 and [izinli] = 0")
Loop
Kriterim = "'" & Call_1 & "',"
Olcut = Replace("And ([Calisan_Adi] not in(" & Kriterim & "))", "',)", "')")
End If
If Nz(DLookup("[Aktif]", "Deskler", "[Lokasyon]=3 And [Desk_Adi]='Cag_2'"), 0) <> 0 Then
Do Until Len(Call_2) <> 0
Call_2 = Dlookup ("Calisan_Adi", "Calisanlar", "[calisanid] = " & Int((EnBuyukKimlik - 1 + 1) * Rnd + 1) & " And [Cagri_Merkezi] = -1 and [izinli] = 0 " & Olcut & "")
Loop
Kriterim = Kriterim & "'" & Call_2 & "',"
Olcut = Replace("And ([Calisan_Adi] not in(" & Kriterim & "))", "',)", "')")
End If
If Nz(DLookup("[Aktif]", "Deskler", "[Lokasyon]=3 And [Desk_Adi]='Cag_3'"), 0) <> 0 Then
Do Until Len(Call_3) <> 0
Call_3 = Dlookup ("Calisan_Adi", "Calisanlar", "[calisanid] = " & Int((EnBuyukKimlik - 1 + 1) * Rnd + 1) & " And [Cagri_Merkezi] = -1 and [izinli] = 0 " & Olcut & "")
Loop
Kriterim = Kriterim & "'" & Call_3 & "',"
Olcut = Replace("And ([Calisan_Adi] not in(" & Kriterim & "))", "',)", "')")
End If
If Nz(DLookup("[Aktif]", "Deskler", "[Lokasyon]=3 And [Desk_Adi]='Cag_4'"), 0) <> 0 Then
Do Until Len(Call_4) <> 0
Call_4 = Dlookup ("Calisan_Adi", "Calisanlar", "[calisanid] = " & Int((EnBuyukKimlik - 1 + 1) * Rnd + 1) & " And [Cagri_Merkezi] = -1 and [izinli] = 0 " & Olcut & "")
Loop
Kriterim = Kriterim & "'" & Call_4 & "',"
Olcut = Replace("And ([Calisan_Adi] not in(" & Kriterim & "))", "',)", "')")
End If
If Nz(DLookup("[Aktif]", "Deskler", "[Lokasyon]=3 And [Desk_Adi]='Cag_5'"), 0) <> 0 Then
Do Until Len(Call_5) <> 0
Call_5 = Dlookup ("Calisan_Adi", "Calisanlar", "[calisanid] = " & Int((EnBuyukKimlik - 1 + 1) * Rnd + 1) & " And [Cagri_Merkezi] = -1 and [izinli] = 0 " & Olcut & "")
Loop
Kriterim = Kriterim & "'" & Call_5 & "',"
Olcut = Replace("And ([Calisan_Adi] not in(" & Kriterim & "))", "',)", "')")
End If
If Nz(DLookup("[Aktif]", "Deskler", "[Lokasyon]=3 And [Desk_Adi]='Cag_6'"), 0) <> 0 Then
Do Until Len(Call_6) <> 0
Call_6 = Dlookup ("Calisan_Adi", "Calisanlar", "[calisanid] = " & Int((EnBuyukKimlik - 1 + 1) * Rnd + 1) & " And [Cagri_Merkezi] = -1 and [izinli] = 0 " & Olcut & "")
Loop
Kriterim = Kriterim & "'" & Call_6 & "',"
Olcut = Replace("And ([Calisan_Adi] not in(" & Kriterim & "))", "',)", "')")
End If
If Nz(DLookup("[Aktif]", "Deskler", "[Lokasyon]=3 And [Desk_Adi]='Cag_7'"), 0) <> 0 Then
Do Until Len(Call_7) <> 0
Call_7 = Dlookup ("Calisan_Adi", "Calisanlar", "[calisanid] = " & Int((EnBuyukKimlik - 1 + 1) * Rnd + 1) & " And [Cagri_Merkezi] = -1 and [izinli] = 0 " & Olcut & "")
Loop
Kriterim = Kriterim & "'" & Call_7 & "',"
Olcut = Replace("And ([Calisan_Adi] not in(" & Kriterim & "))", "',)", "')")
End If
If Nz(DLookup("[Aktif]", "Deskler", "[Lokasyon]=3 And [Desk_Adi]='Cag_8'"), 0) <> 0 Then
Do Until Len(Call_8) <> 0
Call_8 = Dlookup ("Calisan_Adi", "Calisanlar", "[calisanid] = " & Int((EnBuyukKimlik - 1 + 1) * Rnd + 1) & " And [Cagri_Merkezi] = -1 and [izinli] = 0 " & Olcut & "")
Loop
Kriterim = Kriterim & "'" & Call_8 & "',"
Olcut = Replace("And ([Calisan_Adi] not in(" & Kriterim & "))", "',)", "')")
End If
If Nz(DLookup("[Aktif]", "Deskler", "[Lokasyon]=3 And [Desk_Adi]='Cag_9'"), 0) <> 0 Then
Do Until Len(Call_9) <> 0
Call_9 = Dlookup ("Calisan_Adi", "Calisanlar", "[calisanid] = " & Int((EnBuyukKimlik - 1 + 1) * Rnd + 1) & " And [Cagri_Merkezi] = -1 and [izinli] = 0 " & Olcut & "")
Loop
Kriterim = Kriterim & "'" & Call_9 & "',"
Olcut = Replace("And ([Calisan_Adi] not in(" & Kriterim & "))", "',)", "')")
End If
If Nz(DLookup("[Aktif]", "Deskler", "[Lokasyon]=3 And [Desk_Adi]='Cag_10'"), 0) <> 0 Then
Do Until Len(Call_10) <> 0
Call_10 = Dlookup ("Calisan_Adi", "Calisanlar", "[calisanid] = " & Int((EnBuyukKimlik - 1 + 1) * Rnd + 1) & " And [Cagri_Merkezi] = -1 and [izinli] = 0 " & Olcut & "")
Loop
Kriterim = Kriterim & "'" & Call_10 & "',"
Olcut = Replace("And ([Calisan_Adi] not in(" & Kriterim & "))", "',)", "')")
End If
If Nz(DLookup("[Aktif]", "Deskler", "[Lokasyon]=3 And [Desk_Adi]='Cag_11'"), 0) <> 0 Then
Do Until Len(Call_11) <> 0
Call_11 = Dlookup ("Calisan_Adi", "Calisanlar", "[calisanid] = " & Int((EnBuyukKimlik - 1 + 1) * Rnd + 1) & " And [Cagri_Merkezi] = -1 and [izinli] = 0 " & Olcut & "")
Loop
Kriterim = Kriterim & "'" & Call_11 & "',"
Olcut = Replace("And ([Calisan_Adi] not in(" & Kriterim & "))", "',)", "')")
End If
If Nz(DLookup("[Aktif]", "Deskler", "[Lokasyon]=3 And [Desk_Adi]='Cag_12'"), 0) <> 0 Then
Do Until Len(Call_12) <> 0
Call_12 = Dlookup ("Calisan_Adi", "Calisanlar", "[calisanid] = " & Int((EnBuyukKimlik - 1 + 1) * Rnd + 1) & " And [Cagri_Merkezi] = -1 and [izinli] = 0 " & Olcut & "")
Loop
Kriterim = Kriterim & "'" & Call_12 & "',"
Olcut = Replace("And ([Calisan_Adi] not in(" & Kriterim & "))", "',)", "')")
End If
' 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 And ([Calisan_Adi] not in(" & Kriterim & "))")
' Loop
' Kriterim = "'" & Gol_d_1 & "'"
' Do Until Len(Gol_d_2) <> 0
' Gol_d_2 = Dlookup ("Calisan_Adi", "Calisanlar", "[calisanid] = " & Int((EnBuyukKimlik - 1 + 1) * Rnd + 1) & " And [Golcuke_Gidebilir] = -1 and [izinli] = 0 And ([Calisan_Adi] not in(" & Kriterim & "))")
' Loop
' Kriterim = "'" & Gol_d_2 & "'"
' Do Until Len(Gol_d_3) <> 0
' Gol_d_3 = Dlookup ("Calisan_Adi", "Calisanlar", "[calisanid] = " & Int((EnBuyukKimlik - 1 + 1) * Rnd + 1) & " And [Golcuke_Gidebilir] = -1 and [izinli] = 0 And ([Calisan_Adi] not in(" & Kriterim & "))")
' Loop
' Kriterim = "'" & Gol_d_3 & "'"
' 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 & "'"
' Do Until Len(Karsilama_1) <> 0
' Karsilama_1 = Dlookup ("Calisan_Adi", "Calisanlar", "[calisanid] = " & Int((EnBuyukKimlik - 1 + 1) * Rnd + 1) & " And [karsilama] = -1 and [izinli] = 0 And ([Calisan_Adi] not in(" & Kriterim & "))")
' Loop
' Kriterim = Kriterim & ",'" & Karsilama_1 & "'"
' Do Until Len(Karsilama_2) <> 0
' Karsilama_2 = Dlookup ("Calisan_Adi", "Calisanlar", "[calisanid] = " & Int((EnBuyukKimlik - 1 + 1) * Rnd + 1) & " And [karsilama] = -1 and [izinli] = 0 And ([Calisan_Adi] not in(" & Kriterim & "))")
' Loop
' Kriterim = Kriterim & ",'" & Karsilama_2 & "'"
' Do Until Len(Karsilama_3) <> 0
' Karsilama_3 = Dlookup ("Calisan_Adi", "Calisanlar", "[calisanid] = " & Int((EnBuyukKimlik - 1 + 1) * Rnd + 1) & " And [karsilama] = -1 and [izinli] = 0 And ([Calisan_Adi] not in(" & Kriterim & "))")
' Loop
' Kriterim = Kriterim & ",'" & Karsilama_3 & "'"
' Do Until Len(Karsilama_4) <> 0
' Karsilama_4 = Dlookup ("Calisan_Adi", "Calisanlar", "[calisanid] = " & Int((EnBuyukKimlik - 1 + 1) * Rnd + 1) & " And [karsilama] = -1 and [izinli] = 0 And ([Calisan_Adi] not in(" & Kriterim & "))")
' Loop
' Kriterim = Kriterim & ",'" & Karsilama_4 & "'"
' Do Until Len(Normal_1) <> 0
' Normal_1 = Dlookup ("Calisan_Adi", "Calisanlar", "[calisanid] = " & Int((EnBuyukKimlik - 1 + 1) * Rnd + 1) & " And [normal] = -1 and [izinli] = 0 And ([Calisan_Adi] not in(" & Kriterim & "))")
' Loop
' Kriterim = Kriterim & ",'" & Normal_1 & "'"
' Do Until Len(Normal_2) <> 0
' Normal_2 = Dlookup ("Calisan_Adi", "Calisanlar", "[calisanid] = " & Int((EnBuyukKimlik - 1 + 1) * Rnd + 1) & " And [normal] = -1 and [izinli] = 0 And ([Calisan_Adi] not in(" & Kriterim & "))")
' Loop
' Kriterim = Kriterim & ",'" & Normal_2 & "'"
' Do Until Len(Normal_3) <> 0
' Normal_3 = Dlookup ("Calisan_Adi", "Calisanlar", "[calisanid] = " & Int((EnBuyukKimlik - 1 + 1) * Rnd + 1) & " And [normal] = -1 and [izinli] = 0 And ([Calisan_Adi] not in(" & Kriterim & "))")
' Loop
' Kriterim = Kriterim & ",'" & Normal_3 & "'"
' Do Until Len(Normal_4) <> 0
' Normal_4 = Dlookup ("Calisan_Adi", "Calisanlar", "[calisanid] = " & Int((EnBuyukKimlik - 1 + 1) * Rnd + 1) & " And [normal] = -1 and [izinli] = 0 And ([Calisan_Adi] not in(" & Kriterim & "))")
' Loop
' Kriterim = Kriterim & ",'" & Normal_4 & "'"
' Do Until Len(Normal_5) <> 0
' Normal_5 = Dlookup ("Calisan_Adi", "Calisanlar", "[calisanid] = " & Int((EnBuyukKimlik - 1 + 1) * Rnd + 1) & " And [normal] = -1 and [izinli] = 0 And ([Calisan_Adi] not in(" & Kriterim & "))")
' Loop
' Kriterim = Kriterim & ",'" & Normal_5 & "'"
' Do Until Len(Normal_6) <> 0
' Normal_6 = Dlookup ("Calisan_Adi", "Calisanlar", "[calisanid] = " & Int((EnBuyukKimlik - 1 + 1) * Rnd + 1) & " And [normal] = -1 and [izinli] = 0 And ([Calisan_Adi] not in(" & Kriterim & "))")
' Loop
' Kriterim = Kriterim & ",'" & Normal_6 & "'"
' Do Until Len(Normal_7) <> 0
' Normal_7 = Dlookup ("Calisan_Adi", "Calisanlar", "[calisanid] = " & Int((EnBuyukKimlik - 1 + 1) * Rnd + 1) & " And [normal] = -1 and [izinli] = 0 And ([Calisan_Adi] not in(" & Kriterim & "))")
' Loop
' Kriterim = Kriterim & ",'" & Normal_7 & "'"
' Do Until Len(Normal_8) <> 0
' Normal_8 = Dlookup ("Calisan_Adi", "Calisanlar", "[calisanid] = " & Int((EnBuyukKimlik - 1 + 1) * Rnd + 1) & " And [normal] = -1 and [izinli] = 0 And ([Calisan_Adi] not in(" & Kriterim & "))")
' Loop
' Kriterim = Kriterim & ",'" & Normal_8 & "'"
''Loop
End Sub
Bu koddaki tek tırnak ile başlayan kodlar geçici olarak kapatılmıştır, bu kodların düzeltilmesi gerekmektedir. iki adet tek tırnak ile kapatılan (en baştaki Do Until ile en sondaki loop) kodlar tamamen iptal edilmiştir.
Sizin kodu düzenlerken,
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 And ([Calisan_Adi] not in(" & Kriterim & "))")
Loop
Kriterim = "'" & Gol_d_1 & "'"kodunu
If Nz(DLookup("[Aktif]", "Deskler", "[Lokasyon]=1 And [Desk_Adi]='Sabit - 1'"), 0) <> 0 Then
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 " & Olcut & "")
Loop
Kriterim = Kriterim & "'" & Gol_d_1 & "',"
Olcut = Replace("And ([Calisan_Adi] not in(" & Kriterim & "))", "',)", "')")
End IfŞeklinde,
Do Until Len(Gol_d_2) <> 0
Gol_d_2 = Dlookup ("Calisan_Adi", "Calisanlar", "[calisanid] = " & Int((EnBuyukKimlik - 1 + 1) * Rnd + 1) & " And [Golcuke_Gidebilir] = -1 and [izinli] = 0 And ([Calisan_Adi] not in(" & Kriterim & "))")
Loop
Kriterim = "'" & Gol_d_2 & "'"Kodunu da,
If Nz(DLookup("[Aktif]", "Deskler", "[Lokasyon]=1 And [Desk_Adi]='Normal - 2'"), 0) <> 0 Then
Do Until Len(Gol_d_2) <> 0
Gol_d_2 = Dlookup ("Calisan_Adi", "Calisanlar", "[calisanid] = " & Int((EnBuyukKimlik - 1 + 1) * Rnd + 1) & " And [Golcuke_Gidebilir] = -1 and [izinli] = 0 " & Olcut & "")
Loop
Kriterim = Kriterim & "'" & Gol_d_2 & "',"
Olcut = Replace("And ([Calisan_Adi] not in(" & Kriterim & "))", "',)", "')")
End IfŞeklinde değiştirmeniz gerekiyor. Yeni kod yapısı ile aynı kişi iki defa yazılmaz.
Ayrıca, örneklerinizi Site Kurallarına uygun olarak ekleyiniz. Sürekli ihlal halinde uyarı puanı verilmektedir.
