Skip to main content

AccessTr.neT


3 Lü Kategori Hazırlama Yardım

3 Lü Kategori Hazırlama Yardım

Çözüldü #1
Merhaba.

3 adet Kategori tablosu yaptım.
Mantıken il,ilçe,kasaba gibi comboboxlardan seçim yapılırsa bağlantılı olarak devam edecek combo listeleme.

İlk 2 tabloyu yaptım 3.cüde kaldım yapamadım.
Private Sub cmb2_AfterUpdate() bu kodu ayarlayamadım ve Kategori3 tablo sütunlarını ayarlayamadım.

Kısaca ekteki Kategori1 tabloyu il olarak,Kategori2 tabloyu ilçe olarak ve Kategori3 tabloyuda kasaba olarak düşünebilirsiniz.

cmb1 i seçince cmb2 ye kategori2 den ,cmb2 yi seçincede Kategori3 tablodan cmb3 e veriler gelecek.

Kodlar altta.

Saygılar.

Kod:
Private Sub cmb1_AfterUpdate()

    Dim sql As String
    sql = "select ktgr2, bb from Kategori_2 where ktgr1 =" & Me.cmb1.Column(0) & " group by ktgr2,bb order by ktgr2,bb"
   
    With Me.cmb2
        .ColumnCount = 2
        .ColumnWidths = "0cm ;1cm"
        .RowSourceType = "table/Query"
        .RowSource = sql
        .SetFocus
        .Dropdown
    End With
   
End Sub


Kod:
Private Sub cmb2_AfterUpdate()' Bu kod ayarlanacak ve Kategori3 tablosuda ayarlanacak.

    Dim sql As String
    sql = "select ktgr3,cc from Kategori_3 where ktgr2 =" & Me.cmb2.Column(0) & " group by cc order by cc"
   
    With Me.cmb3
        .ColumnCount = 1
        .ColumnWidths = "1cm"
        .RowSourceType = "table/Query"
        .RowSource = sql
        .SetFocus
        .Dropdown
    End With
   
End Sub


Kod:
Private Sub Form_Load()
   
    Dim sql As String
    sql = "select ktgr1,aa from Kategori_1 group by ktgr1,aa order by ktgr1,aa"
   
    With Me.cmb1
        .RowSource = sql
        .ColumnCount = 2
        .ColumnWidths = "0cm ;1cm"
    End With
End Sub

.rar Access Kategori ekleme - iliskili.rar (Dosya Boyutu: 31,38 KB | İndirme Sayısı: 4)
Cevapla
#2
bir önceki kodda kullandığın çalışan kod yerine 
sql = "select ktgr3,cc from Kategori_3 where ktgr2 =" & Me.cmb2.Column(0) & " group by cc order by cc"
bunu kullanmışsın
sql = "select ktgr3, cc from Kategori_3 where ktgr2 =" & Me.cmb2.Column(0) & " group by ktgr3, cc order by ktgr3,cc"
bunu kullanmadın muhtemelen ya bizi deniyorsun yada istediğin sonuç bu değil
Son Düzenleme: 26/01/2020, 08:38, Düzenleyen: accessman.
Cevapla
#3
ama burada asıl problem algoritmanın kuruluşu eğer il ilçe mahalle gibi bir şey olacaksa
üç tablo olur il, ilçe, mahalle
il tablosunda              ilID, ilName
ilçede tablosunda       ilceID, ilceName, ilID
mahalle tablosunda    mahalleID, mahalleName, ilceID
yani katagori3 tablosunda katagori1 diye alan olmaz ancak sorgu yaparsan mahalle ile ili aynı tabloda görebilirsin
Cevapla
#4
(26/01/2020, 08:45)accessman yazdı: ama burada asıl problem algoritmanın kuruluşu eğer il ilçe mahalle gibi bir şey olacaksa
üç tablo olur il, ilçe, mahalle
il tablosunda              ilID, ilName
ilçede tablosunda       ilceID, ilceName, ilID
mahalle tablosunda    mahalleID, mahalleName, ilceID
yani katagori3 tablosunda katagori1 diye alan olmaz ancak sorgu yaparsan mahalle ile ili aynı tabloda görebilirsin

Kategori3 tablo içerik mantığını yapamadım.
Zaten youtubeden il ve ilçe videosu izleyip ona göre yaptım.

Bende 3.cü tablo olduğu için iş karıştı.
Amacım alt kategori yapmak.
Yani il ilçe mahallede olduğu gibi.

Dediklerinizi hazırlayıp ekleyebilirmisiniz zahmet olmazsa.
Benim fazla tecrübem ypk accesste.
Cevapla
#5
3 Lü Kategori Hazırlama Yardım
.rar accesstr.rar (Dosya Boyutu: 33,28 KB | İndirme Sayısı: 4)
@benbendedeilem
Cevapla
#6
Eline sağlık üsted süper olmuş.

Kodda bazı yerleri değiştirdim.
3 üncü comboda id no çıkıyordu onu ayarladım.
Sütun başlığında ID olarak büyük harfle yazmışsınız problem olur diye iD olarak değiştirdim.
Form load olayınada combo1 e veri aldırdım.


Eline sağlık.
.rar Access Kategori ekleme - iliskili.rar (Dosya Boyutu: 31,7 KB | İndirme Sayısı: 7)
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da