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