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