[VBA] ŞARTA BAGLI ONAY KUTULARININ OTOMATİK İŞARETLENMESİ
#1
Herkese selamlar... Öncelikle yapmaya çalıştıgım şeyi anlatayım.. Bir analiz prograı yapmaya çalışıyorum. girilen parti nolarının karşısında bulunan onay kutularının şartı saglıycak şekilde otomatik olarak işaretlenmesi.

bunun için 3 sorgu oluşturdum.
srg1: şimdiye kadar tüm girişi yapılmış parti noları
srg1wet: şimdiye kadar analiz onay kutusu işaretlenmiş parti noları

srg1 ve srg1wet şartımız olan oranı bulmakta kullanacagız

srgoto1: geçerli gün girilen ve otomatik işaretlemenin yapılacagı parti nolarının tespiti için.

örnegi konumuz açısından gereksiz yerlerini silerek ekledim. daha önce sn. dsezgin83260 in yardımıyla oluşturdugum kodlarla da yapamadım. (kendisine yardımı için teşekkür ederim)

sayfa isim li form şimdiye kadar kullandıgım form. sayfa K isimli form ise üzerinde çalıştıgım formdur.

üstatlar yardımcı olursa sevinirim teşekkürler.


Eklenti Dosyaları
.zip   analiz - 2015ç - Kopya.zip (Boyut: 468,42 KB / İndirilme: 100)



  Alıntı
Bu mesajı beğenenler:
#2
Sn deniz_tunc; Dcount, Dsum, Dmax, Dmin, dlookup komutlarini uygulamanin deyim veya VBA bolumune yazip, F1 tusu ile komutlar hakkinda bilgin edinebilirsiniz. Uygulama soru ve form uzerinde ki formul ile islem adimlari degerlndirilmistir. Form uzerinde ki formullere bakmaniz gerekmekte
.zip   deniztunc.zip (Boyut: 77,12 KB / İndirilme: 96)



  Alıntı
Bu mesajı beğenenler:
#3
sn dsezgin örnegi inceledim ufuk açıcı eklemeler yapmışsınız teşekkürler fakat şarta baglı otomatik işaretleme ile ilgili bir kod göremedim. daha önce şöyle bir kod yazmıştınız;

Private Sub Komut38_Click()
Dim sayac As Integer, oran As Integer
oran = nz(DCount("*", "Srg1wet"),0) * 100 / nz(DCount("*", "Srg1"),0)
For sayac = nz(DMin("ıD", "srgoto1"),0) To nz(DMax("ıD", "srgoto1"),0)
Me.analiz1=iif(oran < 40, true, false)
Next sayac
End Sub

ama çalıştıramadım. mümkünse tekrar gözden geçirebilirmisiniz.

yapmak istedigim parti noları kısmına sırayla giriş yapacagım ve bir düğmeye basarak şartı saglayıncaya kadar onay kutularının işaretlenmesi.



  Alıntı
Bu mesajı beğenenler:
#4
Sn deniz_tunc;
numune alma islemini elle yapilmasi ve numune alma tarihi ile ilgili kayit dizisinin goz onunde bulundurulmasi gerekebilir. Analiz sartlarini sizin bilmeniz sebebi ile islem adimlarini belirleyebilirsiniz. Kodlar ile ilgili yontem ve sonuclari incelemeniz sonraki degisiklikler icin uygun olacaktir.
Kaydet ve kapat butonu tiklama olayina
Visual Basic
  1. Private Sub Komut19_Click()
  2. Dim Kyt As Recordset
  3. Set Kyt = Me.RecordsetClone
  4. Kyt.MoveFirst
  5. Do Until Kyt.EOF
  6. Kyt.Edit
  7. If Me.Metin23 = "YETERLİ" Then Kyt!analiz = -1
  8. Kyt.Update
  9. Kyt.MoveNext
  10. Loop
  11. Kyt.Close: Set Kyt = Nothing
  12. DoCmd.Close acForm, "sayfa K"
  13. End Sub


kodunu tasiyin



  Alıntı
Bu mesajı beğenenler:
#5
teşekkür ederim sn dsezgin ilginize. fakat sanırım aradıgım kodlar bunlar degil. form üzerinde yapılan hesaba göre otomatik işaretleme için döngü kullanmalıyım diye düşünüyorum, döngü nün uygulanacagı kayıtların başlangıc ve sonunuda buluyorum fakat bi türlü uyguluyamıyorum.

bilmemek çok zor.



  Alıntı
Bu mesajı beğenenler:
#6
Sn deniz_tunc;
form uzerinde ki formullerin numune alinmasi ve yeterli sonuclarina ulasmiyor mu? odakli kayidin statusu yeterli oldugunda, firmaya ait urun kayitlarina ait analiz onayinin isaretlenmesi degil mi?
Sizin istediginiz tum kayitlar ilgili formul sonuclari ile degerlendirilip, yeterli stausune sahip olanlarin analiz onay kutusunun isaretlenmesi mi?
Yapilmak istenen daha acik anlatilirsa yardim edilebilir.



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [FORM] Kritere Bağlı Olarak Değerlerin Toplanması M_Kemal_Askeri 2 72 10-04-2026, 01:05
Son Mesaj: M_Kemal_Askeri
  Bağlı Tabloda şarta Göre Renklendirme Satir 2 358 19-12-2024, 15:38
Son Mesaj: Satir
  Ana Forma Bağlı Alt Formdaki Verilerin Ana Formda Toplamını Almak ozan028 5 495 09-09-2024, 17:14
Son Mesaj: ozan028
  [FORM] Onay Kutususun şarta Bağlı Olarak Otomatik Olarak Işaretlenmesi Samih KARSLI 2 438 06-04-2024, 18:49
Son Mesaj: Samih KARSLI
  [RAPOR] Rapor Alanındaki Metin Kutularının Büyümesi kahramanselim 2 457 06-04-2024, 18:31
Son Mesaj: kahramanselim
  [FORM] Veri Girişine Bağlı Olarak Veri çeşidi Toplam Sayısının Artması M_Kemal_Askeri 2 392 07-03-2024, 20:03
Son Mesaj: M_Kemal_Askeri
  Rapor üzerinde önizleme öncesi Etiket Ve Metin Kutularının Yerlerini Değiştirme Hk. adnnfrm 4 522 26-12-2023, 03:42
Son Mesaj: adnnfrm
  [SORGU] Onay Kutusuna Göre Sorgu Listesi Oluşturma 88888888 6 821 31-07-2023, 16:40
Son Mesaj: 88888888

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi