DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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