Bir formdan sorgu okuma kriterleri

Question

Tamamen çalışıyor bir açılır kapanır formdan bir sorgu okuma ölçütü var.

Program sürümü kontrol ediliyor.

yani V6, V7, V8 vs.

Ben tüm sonuçlarını görüntülemek böylece açılır listesine bir "TÜM" seçeneği eklemek istiyorum. Belli ki, "ALL" sürümü için sonuç yok. Mümkün mü? Öyleyse nasıl.

Answer 1

Evet, bu mümkün. Gibi bir şey kullanın;

Dim sql As String, strVal As String 
Dim rst As New ADODB.Recordset 

sql = "SELECT ProgramVersion FROM Table ORDER BY ProgramVersion " 
rst.Open sql, CurrentProject.Connection, adOpenStatic, adLockOptimistic 

strVal = "All;" 
With rst 
    .MoveFirst 
    Do Until .EOF 
     strVal = strVal & Nz(!ProgramVersion, "") & ";" 
     .MoveNext 
    Loop 
End With 

MyCombo.RowSourceType = "Value List" 
MyCombo.RowSource = strVal