Merhaba,

Formun geçerli olduğunda olayına aşağıdaki kodu ekle

Dim EnBuyukKimlik As Integer



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



'Int((EnBuyukKimlik - 1 + 1) * Rnd + 1) rastgele sayi



Do Until Len(Vardiya_1_Adi) <> 0

    Vardiya_1_Adi = Dlookup ("Calisan_Adi", "Calisanlar", "[Kimlik] = " & Int((EnBuyukKimlik - 1 + 1) * Rnd + 1) & " And [Teknik] = -1")

Loop

' vardiya_1 getir



Do Until Len(Vardiya_2_Adi) <> 0 And Vardiya_1_Adi <> Vardiya_2_Adi

    Vardiya_2_Adi = Dlookup ("Calisan_Adi", "Calisanlar", "[Kimlik] = " & Int((EnBuyukKimlik - 1 + 1) * Rnd + 1) & " And [Teknik] = -1")

Loop

' vardiya_2 getir



Do Until Len(Bakim_1_isim) <> 0

    Bakim_1_isim = Dlookup ("Calisan_Adi", "Calisanlar", "[Kimlik] = " & Int((EnBuyukKimlik - 1 + 1) * Rnd + 1) & " And [Bakım] = -1")

Loop

'bakım getir



If Vardiya_1_Adi = Bakim_1_isim Or Vardiya_2_Adi = Bakim_1_isim Then

    Do Until Vardiya_1_Adi <> Bakim_1_isim And Vardiya_2_Adi <> Bakim_1_isim

        Bakim_1_isim = Dlookup ("Calisan_Adi", "Calisanlar", "[Kimlik] = " & Int((EnBuyukKimlik - 1 + 1) * Rnd + 1) & " And [Teknik] = -1")

    Loop

End If

'bakım, vardiya 1 veya vardiya2 ile eşitse yenile

Kodlar arasına açıklama eklenmiştir.