Açılır Kutu (combobox) yardımı

[uzmanbey]

Arkadaşlar ekteki örneği inceleyip yardım ederseniz sevinirim

 

[uzmanbey]

Dosyayı eklemeyi unuttum

 

[attila52]

açılan kutu

arkadaşım bu senin hayvanlar ve bitkiler adlı tablonu kaldırdım çünkü ayrı ayrı yapmana gerek yok onları türler adlı bir tabloda birleştirdim ve türü kısmını hahyan mı yada bitkimi olup olmadığını belirledikten sonra ayrı ayrı tutmana gerek yok çünkü açılır kutuda lazım olacak bu eğer sen hayvan seçersen o da hayvanları listeleyecek yada sen bitki seçersen bitkileri listeleyecek olay tamamdır.

 

[uzmanbey]

Sayın Atilla52

Öncelikle cevabınız için teşekkürler fakat ben yeni hayvan lar ve bitkiler eklediğimde eğer denetime hayvan yazdığımda hayvan tablosundaki hayvanlardan yazmak istiyorum bilmem anlatabildim mi

 

[modalı]

Sayın uzmanbey,

Bakın bakalım olmuş mu?

İyi çalışmalar

 

[uzmanbey]

teşekkürler tam istediğim gibi olmuş

 

[uzmanbey]

Sayın modalı
peki Bitkiler Hayvanlar ve mantarlar

olsaydı kodu nasıl yazacaktık açıklarsanız sevinirim

 

[modalı]

Sayın uzmanbey,

O zaman

Private Sub Seçim_AfterUpdate()
  Dim strSQLStart As String
  Dim strSQLFrom As String
  Dim strSQL As String
  
  If Seçim = "Bitkiler" Then
    strSQLStart = "SELECT Bitkiler.BitkiNo"
      strSQLStart = strSQLStart & "  , Bitkiler.Türler"
    strSQLFrom = " From  Bitkiler;"
    strSQL = strSQLStart & strSQLFrom
  ElseIf Seçim = "Hayvanlar" Then
    strSQLStart = "SELECT Hayvanlar.BitkiNo"
      strSQLStart = strSQLStart & "  , Hayvanlar.Türler"
    strSQLFrom = " From  Hayvanlar;"
    strSQL = strSQLStart & strSQLFrom
 Else
     strSQLStart = "SELECT Mantarlar.BitkiNo"
      strSQLStart = strSQLStart & "  , Mantarlar.Türler"
    strSQLFrom = " From  Mantarlar;"
    strSQL = strSQLStart & strSQLFrom
  End If
  

 Me.Türler.RowSource = strSQL
  Me.Türler.Requery
End Sub

Olur.

İyi çalışmalar

 

[uzmanbey]

Teşekkür ederim modalı forma uyarladım sıkıntı gözükmüyor yüreğine ve beynine sağlık