comboboxla ilişkili altform

[aktif42]

Ekte gönderdiğim örnekte combobox tan bir veriyi seçtiğimde o bölgeye ait belirtiler geliyor. var olanları işaretliyorum. sonra ikinci veriyi seçiyor ona uygunları seçiyorum bu şekilde comboboxtaki tüm gruplar bitene kadar bu işe devam ediyorum.

peki form açıldığında comboboxtaki ilk veri otomatikmen seçili gelse ve ona uygun veriler seçildikten sonra alttaki devam tuşuna bastığımda bu sefer comboboxtaki 2. veri seçili gelse her devam tuşuna basıldığında comboboxtaki bir sonraki veri seçili gelse comboboxtaki tüm veriler bitince devam tuşu yazısı seçim bitti şeklini alsa mümkün mü.

taruz bey ve diğer arkadaşlar bu konuda yardımcı olabilirmisiniz.

Dr.Nevzat Demir

 

[modalı]

Sayın akti42,

Ekteki uygulamayı inceleyin, sanırım isteğiniz bu. Sadece sizin istediklerinizi gerçekleştirmeye çalıştım, uygulamayı derinlemesine incelemedim.

İyi çalışmalar

 

[modalı]

Bir de seçim silme düğümesinin kodları şu şekilde dğişmesi gerekecek sanırım.

Private Sub Komut7_Click()
Dim sqlsil, sqlsil1 As String
x = 0

sqlsil = "UPDATE hasvebel SET hasvebel.evet = No WHERE (((hasvebel.evet)=Yes))"
sqlsil1 = "UPDATE tblbelirtiler SET evet = No WHERE (((evet)=Yes))"

CurrentDb.Execute sqlsil
CurrentDb.Execute sqlsil1
Me.Açılan_Kutu0.Value = Me.Açılan_Kutu0.ItemData(0)
Dim sql As String
sql = "SELECT  evet, hasbelirti, MuBolge" & _
" FROM tblbelirtiler WHERE MuBolge='" & [Forms]![AnaFrm]![Açılan Kutu0] & " '"

Form_frmbelirtiler.RecordSource = sql
'Me.Liste8.RowSourceType = "table/query"
'Me.Liste8.RowSource = sql
Me.Requery
End Sub

İyi çalışmalar

 

[aktif42]

teşekkür ederim sayın modalı,

ellerine, beynine sağlık. peki seçim bittiğinde msgbox yerine devam tuşunu gizli (görünür=hayır yapıp) hale getirip, sonucu göster diye bir tuşu (görünür=evet) gizlilikten çıkaramazmıyız. (ona da Tüm Bölgelerdeki Seçim Bitince Tıklayınız ın fonksiyonunu atar sonlanmaya yakın devam tuşunu tekrar görünür yaparız.

saygılarımla.

 

[modalı]

Kodlarda şu değişiklikleri yapın:

Private Sub Form_Load()
x = 0
[COLOR=Red][B]Me.Komut15.Visible = True
Me.Komut6.Visible = False[/B][/COLOR]
Me.Açılan_Kutu0.Value = Me.Açılan_Kutu0.ItemData(0)
Dim sql As String
sql = "SELECT  evet, hasbelirti, MuBolge" & _
" FROM tblbelirtiler WHERE MuBolge='" & [Forms]![AnaFrm]![Açılan Kutu0] & " '"

Form_frmbelirtiler.RecordSource = sql
'Me.Liste8.RowSourceType = "table/query"
'Me.Liste8.RowSource = sql
Me.Requery
End Sub

Private Sub Komut15_Click()
If x = Me.Açılan_Kutu0.ListCount Then
  [COLOR=Red]  [B]Me.Komut6.Visible = True
    Me.Komut6.SetFocus
    Me.Komut15.Visible = False[/B][/COLOR]
    Exit Sub
Else
x = x + 1
Me.Açılan_Kutu0.Value = Me.Açılan_Kutu0.ItemData(x)
Dim sql As String
sql = "SELECT  evet, hasbelirti, MuBolge" & _
" FROM tblbelirtiler WHERE MuBolge='" & [Forms]![AnaFrm]![Açılan Kutu0] & " '"

Form_frmbelirtiler.RecordSource = sql
'Me.Liste8.RowSourceType = "table/query"
'Me.Liste8.RowSource = sql
Me.Requery
End If
End Sub

Private Sub Komut7_Click()
Dim sqlsil, sqlsil1 As String
x = 0
[COLOR=Red][B]Me.Komut15.Visible = True
Me.Komut6.Visible = False[/B][/COLOR]
sqlsil = "UPDATE hasvebel SET hasvebel.evet = No WHERE (((hasvebel.evet)=Yes))"
sqlsil1 = "UPDATE tblbelirtiler SET evet = No WHERE (((evet)=Yes))"

CurrentDb.Execute sqlsil
CurrentDb.Execute sqlsil1
Me.Açılan_Kutu0.Value = Me.Açılan_Kutu0.ItemData(0)
Dim sql As String
sql = "SELECT  evet, hasbelirti, MuBolge" & _
" FROM tblbelirtiler WHERE MuBolge='" & [Forms]![AnaFrm]![Açılan Kutu0] & " '"

Form_frmbelirtiler.RecordSource = sql
'Me.Liste8.RowSourceType = "table/query"
'Me.Liste8.RowSource = sql
Me.Requery
End Sub

İyi çalışmalar

 

[aktif42]

anında cevab ve çözüm için teşekkür ederim sayın modalı,

son soru,

comboboxtaki veriler bittikten sonra devama basınca bir boş geliyor. bunu engelleyebilirmiyiz.

 

[modalı]

Yapacağınız değişiklik:

Private Sub Komut15_Click()
[COLOR=Red][B]If x = Me.Açılan_Kutu0.ListCount - 1 Then[/B][/COLOR]
    Me.Komut6.Visible = True
    Me.Komut6.SetFocus
    Me.Komut15.Visible = False
    Exit Sub
Else
x = x + 1
Me.Açılan_Kutu0.Value = Me.Açılan_Kutu0.ItemData(x)
Dim sql As String
sql = "SELECT  evet, hasbelirti, MuBolge" & _
" FROM tblbelirtiler WHERE MuBolge='" & [Forms]![AnaFrm]![Açılan Kutu0] & " '"

Form_frmbelirtiler.RecordSource = sql
'Me.Liste8.RowSourceType = "table/query"
'Me.Liste8.RowSource = sql
Me.Requery
End If
End Sub

 

[aktif42]

tekrar tekrar teşekkürler sayın modalı.

 

[aktif42]

Sayın Modalı,

Muayene bölgesine göre belirtiler alt forma geliyor. örnekte farkına varılmıyor ama veri sayısı artınca alt formdaki veriler alfabetik artan sıralı olarak gelmiyor. Alt formun tasarımında sıralama öğesi kısmına hasbelirti yazıyorum ama sıralamıyor. başka türlü nasıl sıralatabiliriz.

sözün özü olarak altformdaki verileri hasbelirti ölçütüne göre artalan nasıl sıralatabiliriz.

saygılarımla...

 

[modalı]

Sayın Modalı,

Muayene bölgesine göre belirtiler alt forma geliyor. örnekte farkına varılmıyor ama veri sayısı artınca alt formdaki veriler alfabetik artan sıralı olarak gelmiyor. Alt formun tasarımında sıralama öğesi kısmına hasbelirti yazıyorum ama sıralamıyor. başka türlü nasıl sıralatabiliriz.

sözün özü olarak altformdaki verileri hasbelirti ölçütüne göre artalan nasıl sıralatabiliriz.

saygılarımla...

Sayın aktif42,

Yanlışlıkla düzeltmeleri yaptığım uygulamayı silmişim, uygulamanın son durumunu ekleyebilirmisiniz.

 

[aktif42]

Sayın Modalı,

Alt Formdaki verilerin sıralanmasını istediğim programın son halini örnek verileriyle ekte gönderiyorum.
İlginize tekrar teşekkür ederim.

 

[aktif42]

alt formda sıralama

Sayın Modalı,

Çözümü buldum.

kendi aklımca kodun sonuna

Form_frmbelirtiler.RecordSource = sql & " order by hasbelirti asc;" ilavesi yaptım ve oldu.

Teşekkürler Kolay gelsin.

 

[modalı]

Sanırım

ORDER BY tblbelirtiler.hasbelirti

şeklinde olmalı.

İyi çalışmalar