Merhaba,

Yine ben bir soru ile rahatsız edeceğim.Programı yazarken takıldıkça size yeni bir tablo üretip hem arkadaşlara faydalı olmasını hem sitemizde örenkler kalmasını sağlıyorum.Hemde ben öğreniyorum.

Ek'li veritabanında forma tıklandığında isimleri random atamasını istiyorum.Fakat tuşla veya herhangi bir şeyle değilim form açıldığında.

Sayın BlueWall, muhtemelen örneğinize referans olabilecek içinde size faydalı olabilecek kodların bulunduğu bir VT ekliyorum. Umarım faydası olur. Kolay gelsin.

Hocam çok teşekkür ederim fakar sanırım bu örnekte raporlama için yol gösterilmiş.bu yol her bilgisayara uygun olmayabilir.Kodların sonucu Excel olarak çıkıyor ama exceli göremedim.Bu yüzden zahmet etmişsiniz ama benim verdiğim örenkteki olay rnd komutu kullanımı sanırım ama rnd komutu için tam bir açıklayıcı örenk bulamadım.Rnd'yi sürekli rakam ile oyun türü şeyler yazarken kullanmışlar.

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.

Hocam çok sağolun bu komut tam anlamıyla istediğim komut fakat listede 30 çalışan var ve bölümlerde 3 ten fazlaysa if değerinin her variyantaını giriyorum ama yine aynı isimde olanlar çıkıyor 4 bölüm bile olsa.Orada sanırım bütün olasılıkları yazmak mı gerekiyor yoksa onunda kolay bir yolu var mı?

Not: Hocam süpersin

Düzeltilmiş hali ek'tedir.