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