Skip to main content

AccessTr.neT


Vardiyeyi Random Atama

Vardiyeyi Random Atama

#13
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
Cevapla
#14
Hocam çok teşekkür ederim fakat bu komudueklediğimde hiçbirşey yapmıyor.

Acaba bir yerde yanlışlık mı yapıyorum
Cevapla
#15
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.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da