AccessTr.neT

Sayfalar: 1 2 3 4 5 6

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

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

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

(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.

3 Lü Kategori Hazırlama Yardım

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.

Sayfalar: 1 2 3 4 5 6

feraz

accessman

accessman

feraz

accessman

feraz