Çalışmamı ekledim, Lakin istediğim gibi olmadı. "frm_soruşturma" formunun sekme üçündeki görüşler sekmesinde "ackisi" birleşik metin kutusu seçilince o olaya ilgili sorgu gelmesi lazım ve olay göre veriler metin kutularına gelmesi gerek.

Dosya ekleme hususu gelmedi. Neden acaba?
https://dosya.co/7jvhjoytcmby/disiplinye...9.rar.html

1 - kodu çerçevenin güncelleştirme sonrası olayına yazdıracaksınız, size gönderdiğim örnekte de çerçeveye yazmıştım ama siz açılır kutunun güncelleştirme olayına yazmışsınız
2 - 2 seçenekte kullandığınız if kalıbı doğru ama sizde 4 seçenek var case yada elsif kalıbı kullanılmalı

If Me.cercevegorus = 1 Then

Me.ackisi.RowSource = "Sorgu_ogretmen"

ElseIf cercevegorus = 2 Then

Me.ackisi.RowSource = "Sorgu_rehber_ogretmen"

ElseIf cercevegorus = 3 Then

Me.ackisi.RowSource = "Sorgu_gorus_veli"

ElseIf cercevegorus = 4 Then

Me.ackisi.RowSource = "Sorgu_gorus_sınıfogretmeni"

End If

gibi
3 - ilişkili sütunun değişmesine neden ihtiyaç var anlamadım
ama yukardaki if kodun aşağıdaki şekilde yazarsak
açılır kutunun :
sorgusunu,
sütun sayısını,
ilişkili sütunu ve
sütun genişliklerini
ayarlayabilirsiniz
Not: Aşağıdaki kodu çerçevenin güncelleştirme sonrasıolayına yazdıracaksınız

If Me.cercevegorus = 1 Then

    With ackisi

        .RowSource = "Sorgu_ogretmen" 'sorgu kaynağı

        .ColumnCount = 5 'sütun sayısı

        .BoundColumn = 3 'ilişkili sütun

        .ColumnWidths = "0;0;0;0;4 cm" 'sütun genişilikleri

    End With



ElseIf cercevegorus = 2 Then

    With ackisi

        .RowSource = "Sorgu_rehber_ogretmen"

        .ColumnCount = 2

        .BoundColumn = 1

        .ColumnWidths = "0in.;1in." 'diğer sorgulardaki sütunlar için yukardaki şablon kullanılabilir

    End With



ElseIf cercevegorus = 3 Then

    With ackisi

        .RowSource = "Sorgu_gorus_veli"

        .ColumnCount = 2

        .BoundColumn = 1

        .ColumnWidths = "0in.;1in."

    End With



ElseIf cercevegorus = 4 Then

    With ackisi

        .RowSource = "Sorgu_gorus_sınıfogretmeni"

        .ColumnCount = 2

        .BoundColumn = 1

        .ColumnWidths = "0in.;1in."

    End With



End If

Private Sub cercevegorus_AfterUpdate()

Select Case Me.cercevegorus



Case 1

SELECT tbl_ogretmen.Kimlik, tbl_ogretmen.ogretmenadısoyadi, tbl_ogretmen.bransi FROM tbl_ogretmen



End Select



End Sub

Bende bu şekilde bir çözüm bulmaya çalışıyordum. Lakin kod hata vermişti.

birinci döngüdeki kod neden hata veriyor. Benim yazdığımda, Öğrenmek için soruyorum.
Zannederim Sql kodlarında çok büyük bir eksikliğim var. Bana iyi bir kitap önerebilir misiniz? Başlangıçtan bu tür şeyleri öğretecek

kaynak olarak interneti kullanıyorum -Türkçe sitelerde çok güzel anlatımlar ve örnekler var - o nedenle maalesef bir kaynak öneremem ama sizin örneğinizde yaptığınız sorgunun kodları olabilir ama bu haliyle kullanılamaz.