Alan seçmek

[akd]

Merhaba arkadaşlar,
Alan seçimi yaparak, bilgileri süzmek istedim,
malesef başaramadım,
degişken tanimladım ne yaptımsa olmadı.
ektekinde alan sabit,
böyle olunca çalışıyor,
ama ben alanın seçenekli olmasını istedim...
İlgilencek arkadaşlara şimdiden teşekkürlerimi sunarım...

 

[Taruz]

Merhaba..

Aşağıdaki kodu mevcut kod kümesi ile değiştirin istediğiniz olur.. Formun Açıldığında olayına da uygularsanız liste dolu gelir.. Aynı yapıyı seçenek grubu oluşturupta kullanabilirsiniz..

Dim strSQL As String
strSQL = "SELECT [Alışlar].[ID], [Alışlar].[Tarih], [Alışlar].[Kod], [Alışlar].[Ürün], [Alışlar].[Fiyatı], [Alışlar].[Miktar] FROM [Alışlar]"
Select Case Açılan_Kutu0
Case Null
strSQL = strSQL
Case Is = "kod"
strSQL = strSQL & "WHERE(([Alışlar].[kod]) = [Formlar]![Form1]![TextBox5])"
Case Is = "ürün"
strSQL = strSQL & "WHERE(([Alışlar].[ürün]) = [Formlar]![Form1]![TextBox5])"
Case Is = "tarih"
strSQL = strSQL & "WHERE(([Alışlar].[tarih]) = [Formlar]![Form1]![TextBox5])"
Case Is = "fiyatı"
strSQL = strSQL & "WHERE(([Alışlar].[fiyatı]) = [Formlar]![Form1]![TextBox5])"
Case Is = "miktar"
strSQL = strSQL & "WHERE(([Alışlar].[miktar]) = [Formlar]![Form1]![TextBox5])"
End Select
Me!Liste2.RowSource = strSQL

 

[akd]

Çok Çok teşekkür ederim sayın taruz,
elleriniz dert görmesin,
İyi günler dilerim...