Skip to main content

AccessTr.neT


Aktifse Kodu Kullan...

Aktifse Kodu Kullan...

Çözüldü #1
Merhaba,

İf sorgusunun tablodaki kontrolü ile ilgili kısımda işin içinden çıkamadım.Öncelikel yapmak istediğimi söyleyeyim.

Çağrı merkezinde çalışanlardan kimisi bazı masalara oturamıyor.ve bazıları izinli.

İstediğim şu.

1) Kaç masa aktif seçildi ise o kadar desk aktif etsin.
2) o masanın kriterlerine uyan kişileri masalara atasın.

Masalara atama kısmını buradaki üstadların yardımıyla hallettim.Hatta bir kaç masaya aynı kişiyi oturtuyordu onuda kısmen çözdüm.

programa girince masalara basınca aşağıdaki yazıyor zaten şu kadar masa aktif etmen lazım diye.etmediyse eksik var uyarısı veriyor.Form açıldığında aktif edilen masaları sadece göstersin ve dağırma kodunu işletsin diğerlerine işletmesin.Şimdiden teşekkürler.
.rar Vardiye - Kopya.rar (Dosya Boyutu: 214,11 KB | İndirme Sayısı: 7)
Cevapla
#2
Merhaba,

Örnek uygulamanızdaki tabloda, İzmit için 16 adet veri var, bunlardan 13'ü aktif olarak işaretlenmiş.

Bu durumda, butona tıklayınca Desk-14, Desk-15 ve Desk-16 boş mu kalacak?
Cevapla
#3
Call_1 ile Call_12 ve arasındaki metin kutuları için kullanılması gereken kod

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.
.rar Vardiye_sld.rar (Dosya Boyutu: 88,81 KB | İndirme Sayısı: 3)
Cevapla
#4
Konu taşınmıştır. Tekrarı halinde uyarı puanı alacaksınız.

(06/07/2009, 23:57)AccessTr.neT yazdı: 2-) Herhangi bir soru(n) için konu açtıysanız verilen cevapları inceleyip en kısa zamanda yapılan yardımın olumlu ya da olumsuz sonucunu bildiriniz.
Bu maddenin sürekli ihlalde uyarı puanı verilecektir.
(22/04/2009, 15:53)ozanakkaya yazdı: 9-) Açtığınız konuya verilen cevapları kontrol edin ve yapılan yardımın olumlu ya da olumsuz sonucunu bildirin. Eğer açtığınız konulara cevap vermez iseniz sonraki sorularınızda daha önce sorunuzu yanıtlayan kişinin olası cevabından mahrum kalırsınız.
Cevapla
#5
Hocam öncelikle elinize sağlık fakat ben bu tablo işinde biraz hatalaryaptığımı fakrettim sizede konuda bilgi veripaslında fikir alışverişinde bulunmak isterim.

Öncelikle kodları veriyorsunuz gereğinden fazla emek harcıyorsunuz keşke balık vermek yerine balık tutmayı gösterseniz ben artık size sormaktan utanır hale geldim.Çünkü her takıldığım konuda sorarsam problem çıkmasını istemiyorum bide açıkçası yapıp yapıp bişey öğrenememek hevesimi kırmaya başladı.

Tabloya gelirsek;

1. hatam kişileri izinli diye işaretlemekte oldu sanırım.İzinlide bir yıl izinli değil ya mubarek between kullanarak sanırım girdiğim izin tarihlerine dahilmi çalışma haftası gibi bir durum oluşturmam gerekliydi.
2. hatam kişilerin bir sürü kriteri var ama masaların tek kriteri var.Bu yüzden kişileri masalara atmaktansa masaları kişilere atamam daha mantıklı sanki.Kişiler birden çok iş yapabiliyor ama masaların görevleri sabit.

Şimdi sıfırdan başladım ama until komudu ve yukarıda kriterim kısmını çözemedim.

Aslında kodda nedemek istediğimizi tane tane anlatabilirseniz birde iki tarih arasına dahilmi sorgusunu cümle halinde bile yazsanız yeterli.Sanki bana Between in başına not in ekleyerek sorgulayacakmışım gibi geldi.

Çıkamadım işin içinden yani sizin anlayacağınız.Bir iki yazıyla bana yol gösterseniz veya engin tecrübelerinizden ben olsam şu şekilde bir algoritma çıkarırdım gibi bir harita verseniz yırtıcam sanki.Teşekkürler.
Cevapla
#6
Merhaba. Konunuzu tekrar sorular bölümüne taşıyorum. Malesef benim sorunuz ile yapabileceğim bunlardan ibarettir.
Diğer arkadaşlar yardımcı olabilirler.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task