Cvp: Vardiyeyi Random Atama - ozanakkaya - 30/05/2017
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
Cvp: Vardiyeyi Random Atama - blue_wall - 30/05/2017
Hocam çok teşekkür ederim fakat bu komudueklediğimde hiçbirşey yapmıyor.
Acaba bir yerde yanlışlık mı yapıyorum
Cvp: Vardiyeyi Random Atama - blue_wall - 31/05/2017
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.
|