値を見つけるためにAccess VBAのレコードセットを索引付けする

Question

Dim dbs As DAO.Database 
    Dim rst As DAO.Recordset 
    Set dbs = CurrentDb 
    Set rst = dbs.OpenRecordset(addrPullQry) 
    rst.Index = ''''''' 
    If rst.RecordCount > 0 Then 
     MsgBox ("More than zero") 'Prompt with address info 
    Else 
     MsgBox ("Not more than zero") ' Assign Primary to address 
    End If 

addrPullQryは、アドレス・タイプがPrimary（Secondaryはその他のオプション）のアドレス表を持つすべてのレコードを選択します。ここで、Record_IDと問合せで指定したGroup_IDが存在します。 。

私はユーザーに特定のグループの顧客のアドレスタイプを割り当てるOn_Click（）イベントを与えています。その顧客のプライマリアドレスタイプがすでに存在する場合は、そのアドレスを上書きするようにユーザーに促す必要があります。プロンプトで印刷するには、Street、City、StateなどのAddress値を見つける必要があります。これらの値はクエリに格納されているので、参照する方法と変数に格納する方法はわかりません。

私はrst.Indexがこれを達成すると仮定しますが、私はそれに精通しておらず、MSDNページはあまり役に立ちませんでした。

Answer 1

あなたが何をしているのか分かっている場合は、作成したレコードセットを使用して、ユーザーに確認するためのアドレス情報を返す必要があります。それはあなたが必要とするすべて、だ場合：

Dim dbs As DAO.Database 
Dim rst As DAO.Recordset 
Dim sStreet$, sCity$, sState$ 
Set dbs = CurrentDb 
Set rst = dbs.OpenRecordset(addrPullQry) 

If rst.RecordCount > 0 Then 
    sStreet=rst!Street 
    sCity=rst!City 
    sState=rst!State 
    msgbox "Customer Address: " & vbcrlf & _ 
     sStreet & vbcrlf & sCity & ", " & sState 

Else 
    MsgBox "No address on file..." 
End If 

だけで、あなたのクエリ内の実際のフィールド名に `DCOUNT`` INSERT`と `UPDATE` SQLで「addrPullQry」