A.S.C Filtre, Grafik ve Raporlama Eklentisi

[FONKSiYON] Raporda Seçenekli Duruma Göre Sayfa Renklendirme
#13
(22-06-2022, 12:35)Ahmet51 demiş ki:
(22-06-2022, 01:49)dsezgin demiş ki: Raporun Etiket isimlerini değiştirdim, yeni prosedürle ihtiyaç ekteki dosya raporunda yapılmış olup, inceleyiniz.



Üstadım çok teşekkür ederim. Eline emeğine sağlık.Tam istediğim gibi oldu.
Ozel alan etiketlerinide kaldırdım. Son halini paylaşıyorum. İhtiyacı olanlar kullanabilir.

Private Sub Blok_AfterUpdate()
'If Me.Blok.Value = "A BLOK" Then Me.Birim.RowSource = "A-BAYAN KATI1;A-BAYAN KATI2;A-ERKEK KATI1;A-ERKEK KATI2;A-SALON VE İDARE"  Else Me.Birim.RowSource = "B-BAYAN KATLARI;B-ERKEK KATLARI;B-SALON VE İDARE" Else: Me.Birim.RowSource = "C-ÇAMAŞIRHANE;D-SAĞLIK SERVİSİ;E-ZİYARETÇİ YÖNLENDİRME;F-KALORİFERCİ;G-TEKNİSYEN YARDIMCISI"

If Me.Blok.Value = "A BLOK" Then
Me.Birim.RowSource = "A-BAYAN KATI1;A-BAYAN KATI2;A-ERKEK KATI1;A-ERKEK KATI2;A-SALON VE İDARE"
If Me.Blok.Value = "B BLOK" Then
Me.Birim.RowSource = "B-BAYAN KATLARI;B-ERKEK KATLARI;B-SALON VE İDARE"
If Me.Blok.Value = "C BLOK" Then
Me.Birim.RowSource = ""
Else
Me.Birim.RowSource = "C-ÇAMAŞIRHANE;D-SAĞLIK SERVİSİ;E-ZİYARETÇİ YÖNLENDİRME;F-KALORİFERCİ;G-TEKNİSYEN YARDIMCISI"
End If
End If
End If
End Sub



Yukarıdaki kırmızı renkteki kod bloğuna üçüncü else yapısını bir türlü otutamadım.

İkinci kod bloğuda çalışmadı


Forum da Blok alanı var "A BLOK" seçilince birim alanına  bu değerler gelmeli "A-BAYAN KATI1;A-BAYAN KATI2;A-ERKEK KATI1;A-ERKEK KATI2;A-SALON VE İDARE"  "B BLOK"  seçilince bu değerler gelmeli "B-BAYAN KATLARI;B-ERKEK KATLARI;B-SALON VE İDARE" "C BLOK"  seçilince bu değerler gelmeli "" birim alanı boş gelmeli. "D BLOKSUZ"  seçilince bu değerler gelmeli "C-ÇAMAŞIRHANE;D-SAĞLIK SERVİSİ;E-ZİYARETÇİ YÖNLENDİRME;F-KALORİFERCİ;G-TEKNİSYEN YARDIMCISI" birim alanına bu değerler gelmeli.


Saygıdeğer üstadlarım bu konuda yardımlarınızı bekler teşekkür ederim.



  Alıntı
Bu mesajı beğenenler:
#14
Visual Basic
  1. Private Sub Blok_AfterUpdate()
  2. Me.Birim.RowSourceType="Value List"
  3. If Me.Blok.Value = "A BLOK" Then
  4. Me.Birim.AddItem "A-BAYAN KATI1; A-BAYAN KATI2; A-ERKEK KATI1; A-ERKEK KATI2; A-SALON VE İDARE"
  5. ElseIf Me.Blok.Value = "B BLOK" Then
  6. Me.Birim.AddItem "B-BAYAN KATLARI; B-ERKEK KATLARI; B-SALON VE İDARE"
  7. ElseIf Me.Blok.Value = "C BLOK" Then
  8. Me.Birim.RowSource = ""
  9. Else
  10. Me.Birim.AddItem "C-ÇAMAŞIRHANE; D-SAĞLIK SERVİSİ; E-ZİYARETÇİ YÖNLENDİRME; F-KALORİFERCİ; G-TEKNİSYEN YARDIMCISI"
  11. End If
  12. End Sub



olarak deneyin.



  Alıntı
Bu mesajı beğenenler:
#15
Sezgin Hocam ilgili kod da istediğimiz işlevi yerine getirmedi. Emeğinize sağlık Teşekkür ederim.

Bu sorunu aşağıdaki kodlar ile çözdük.

Private Sub Birim_Enter()
Dim sql As String
sql = "select OD from tbl_brim where OID=" & Me.Blok.Column(0)
Me.Birim.RowSourceType = "table/Query"
Me.Birim.RowSource = sql
End Sub

Private Sub Birim_GotFocus()
Dim sql As String
sql = "select OD from tbl_brim where OID=" & Me.Blok.Column(0)
Me.Birim.RowSourceType = "table/Query"
Me.Birim.RowSource = sql
End Sub



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Duruma Göre Kaydı Yapılan Veya Yapılmayan Metin Kutusu Boş Ise Kaydet Butonu Hata Ve tarkanaykın 2 120 26-04-2022, 23:53
Son Mesaj: tarkanaykın
  [RAPOR] Raporda Veri Düzelme Bora34 4 185 25-03-2022, 23:48
Son Mesaj: Bora34
  [RAPOR] Raporda Resim Gösterme ergin.tekinalp 8 192 08-03-2022, 11:23
Son Mesaj: ergin.tekinalp
  Seçenekli Raporlama tanyeri 3 133 03-03-2022, 19:33
Son Mesaj: tanyeri
access-sql-18 [TABLO] Sorgu Ve Raporda Replace Komutu Hakkında meceka 7 154 16-02-2022, 15:43
Son Mesaj: onur_can
  Im Değerine Göre - Tag Değerine Göre Işlem Yapma alikagan 5 196 09-12-2021, 09:06
Son Mesaj: halily
  [RAPOR] Raporda Düğme dogan.importexport 2 100 03-12-2021, 08:46
Son Mesaj: dogan.importexport
  Onay Ile Komut Renklendirme Radaimon 8 256 24-10-2021, 18:35
Son Mesaj: dsezgin

Foruma Git:


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