Dim EnBuyukKimlik As Integer
EnBuyukKimlik = DMax("Kimlik", "Calisanlar")
Do Until Len(Vardiya_1_Adi) > 1 And Len(Vardiya_2_Adi) > 1 And Len(Bakim_1_isim) > 1 And Len(isci_isim_1) > 1 And Len(isci_isim_2) > 1 And Len(yaz_isim) > 1 And Len(ciz_isim) > 1
Do Until Len(Vardiya_1_Adi) > 1
GRandom1 = Int((EnBuyukKimlik - 1 + 1) * Rnd + 1)
Vardiya_1_Adi = Dlookup ("Calisan_Adi", "Calisanlar", "[Kimlik] = " & GRandom1 & " And [Teknik]= -1")
Loop
Do Until Len(Vardiya_2_Adi) > 1
Vardiya_2_Adi = Nz(DLookup("Calisan_Adi", "Calisanlar", "[Teknik]= -1 And ([Calisan_Adi] not in('" & Vardiya_1_Adi & "'))"), "1")
If Vardiya_2_Adi = "1" Then Exit Do
Loop
Do Until Len(Bakim_1_isim) > 1
Bakim_1_isim = Nz(DLookup("Calisan_Adi", "Calisanlar", "[Bakim] = -1 And ([Calisan_Adi] not in('" & Vardiya_1_Adi & "','" & Vardiya_2_Adi & "'))"), "1")
If Bakim_1_isim = "1" Then Exit Do
Loop
Do Until Len(isci_isim_1) > 1
isci_isim_1 = Nz(DLookup("Calisan_Adi", "Calisanlar", "[isci] = -1 And ([Calisan_Adi] not in('" & Vardiya_1_Adi & "','" & Vardiya_2_Adi & "', '" & Bakim_1_isim & "'))"), "1")
If isci_isim_1 = "1" Then Exit Do
Loop
Do Until Len(isci_isim_2) > 1
isci_isim_2 = Nz(DLookup("Calisan_Adi", "Calisanlar", "[isci] = -1 And ([Calisan_Adi] not in('" & Vardiya_1_Adi & "','" & Vardiya_2_Adi & "', '" & Bakim_1_isim & "', '" & isci_isim_1 & "'))"), "1")
If isci_isim_2 = "1" Then Exit Do
Loop
Do Until Len(yaz_isim) > 1
yaz_isim = Nz(DLookup("Calisan_Adi", "Calisanlar", "[yazici] = -1 And ([Calisan_Adi] not in('" & Vardiya_1_Adi & "','" & Vardiya_2_Adi & "', '" & Bakim_1_isim & "', '" & isci_isim_1 & "', '" & isci_isim_2 & "'))"), "1")
If yaz_isim = "1" Then Exit Do
Loop
Do Until Len(ciz_isim) > 1
ciz_isim = Nz(DLookup("Calisan_Adi", "Calisanlar", "[cizici] = -1 And ([Calisan_Adi] not in('" & Vardiya_1_Adi & "','" & Vardiya_2_Adi & "', '" & Bakim_1_isim & "', '" & isci_isim_1 & "', '" & isci_isim_2 & "', '" & yaz_isim & "'))"), "1")
If ciz_isim = "1" Then Exit Do
Loop
Loop
Kodu aşağıdaki ile değiştir
