アクセスリストボックスのレコードセット

Question

私はMS AccessとVBAを使ってアプリケーションを開発しています。 は、残念ながら、私はこの問題を持っている：私はVBA使用してはlistBoxのレコードセットとクエリを設定

'In the select, i select 4 fields 
SQL = "..."   
rs.CursorLocation = adUseClient 
rs.Open SQL, Conn, adOpenKeyset, adLockOptimistic 
    If Not rs.EOF Then 
     Set Me.MyList.Recordset = rs 
     Me.MyList.SetFocus 
    Else 
     Set Me.MyList.Recordset = Nothing 
     Me.MyList.SetFocus 
    End If 
rs.Close 

問題は、私は、コードのこの部分を実行すると、それは私が数を設定した場合にのみ動作することです私のリストボックスの列の1または2で。 私は4列を表示する必要があるので、これは私にとっては問題です。

私もアプリケーションを逆コンパイルしようとしましたが、何も変更されていません。

解決方法を教えてもらえますか？ 大変ありがとうございます。

Answer 1

プロパティウィンドウのColumn Countを4に設定し、列幅を0cm;1.217cm;2.064cm;3.545cmの形式で設定する必要があります。

あなたは、デザインモードで、またはコードでこれを行うことができます。

Dim sql_ As String 
    sql_ = "Your SQL command..." 

    With Me.MyList 
     .ColumnCount = 4 
     .ColumnWidths = "0cm;1.217cm;2.064cm;3.545cm" 
     .RowSourceType = "Table/Query" 
     .RowSource = sql_ 
    End With