Skip to main content

AccessTr.neT


Alt Form Filtreleme

Alt Form Filtreleme

Çözüldü #1
Merhaba

Görsellerini eklediğim (FR_SORGULAMA) form tasarımında siyah alandaki kırmızı ile yazılmış personel adının üstüne çift tıklama ile alt formda (SRG_ZİMMET_ALT_FRM) personelin datasının gelmesini istiyorum.
Alt forma gelen tüm datanın alt form üzerindeki yeşil alandaki combobox ile istenirse filtre edilmesini nasıl yapmam gerekir?

[img][Resim: do.php?img=10604][/img]
.rar PerZim.rar (Dosya Boyutu: 75,34 KB | İndirme Sayısı: 1)
07-08-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#2
1 - öncelikle liste8in  satır kaynağı olan SRG_PERSOR sorgusuna sicil alanını da eklemelisiniz (sicil alanı her personel için benzersiz alan galiba)
SRG_PERSOR sorgusunun kodu

SQL Code
SELECT TB_PERLİST.Sicili, [Sicili] & " " & [Adı Soyadı] AS PERSONEL
FROM TB_PERLİST
WHERE ((([Sicili] & " " & [Adı Soyadı]) Like "*" & [Formlar]![FR_SORGULAMA]![Metin5] & "*"))
ORDER BY [Sicili] & " " & [Adı Soyadı];

2 - liste8in sütun sayısını 2ye çıkartıp ilk sütunun genişliğini 0 yapın
3 - liste8in çift tıklama olayı:

Visual Basic Code
Private Sub Liste8_DblClick(Cancel As Integer)
StrFiltre = ""
If Not IsNull(Me.Liste8) Then StrFiltre = "SİCİL=" & Me.Liste8
Me.[SRG_ZİMMET_ALT_FRM].Form.Filter = StrFiltre
Me.[SRG_ZİMMET_ALT_FRM].Form.FilterOn = True

End Sub

4 - metin13ün güncelleştirme yada çıkıldığında olayının kodu

Visual Basic Code
Private Sub Metin13_AfterUpdate()
StrFiltre = ""
If Not IsNull(Me.Metin13) And Not IsNull(Me.Liste8) Then  StrFiltre = "MALZEME=" & Me.Metin13 & " and SİCİL=" & Me.Liste8
Me.[SRG_ZİMMET_ALT_FRM].Form.Filter = StrFiltre
Me.[SRG_ZİMMET_ALT_FRM].Form.FilterOn = True
End Sub

Cevapla
#3
Merhaba Berduş

Yardımların için teşekkürler tüm uyarlaman sorunsuz çalıştı.

4 - metin13ün güncelleştirme yada çıkıldığında olayının kodu;

Private Sub Metin13_AfterUpdate()
StrFiltre = ""
If Not IsNull(Me.Metin13) And Not IsNull(Me.Liste8) Then StrFiltre = "MALZEME=" & Me.Metin13 & " and SİCİL=" & Me.Liste8
Me.[SRG_ZİMMET_ALT_FRM].Form.Filter = StrFiltre
Me.[SRG_ZİMMET_ALT_FRM].Form.FilterOn = True
End Sub

listeye tümü eklemek gerekir mi sizce?
Metin13 de yapılan seçim sonrasında seçilen malzemeyi silmek istediğimde tüm liste geriye gelmiyor sadece son filtre edilen yada farklı filtre edilen geliyor.

Metin13'ün tablosuna tümü diye ekleme yapıp çıkıldığında olayına nasıl güncelleme yapmam gerekir?

SRG_ZİMMET_ALT_FRM için açılışta boş gelmesi "liste8" için çift tıklama sonrasında  SRG_ZİMMET_ALT_FRM veri ile dolması daha iyi olacak gibi bu durum için hangi güncellemeleri yapmalıyım.
.rar PerZim.rar (Dosya Boyutu: 79,11 KB | İndirme Sayısı: 1)
07-08-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 22/11/2020, 17:19, Düzenleyen: conquerora.
Cevapla
#4

Visual Basic Code
Me.[SRG_ZİMMET_ALT_FRM].Form.Filter = ""
Me.[SRG_ZİMMET_ALT_FRM].Form.FilterOn = True

yapmayı deneyebilirsiniz

Cevapla
#5
(22/11/2020 17:22)berduş Adlı Kullanıcıdan Alıntı:

Visual Basic Code
Me.[SRG_ZİMMET_ALT_FRM].Form.Filter = ""
Me.[SRG_ZİMMET_ALT_FRM].Form.FilterOn = True

yapmayı deneyebilirsiniz


merhaba
olmadı çalışmadı.
07-08-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#6
Kodu nerede nasil kullandiniz?
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da