accessのdatabaseにフィルターをかける条件を変数化するには？ (ID:106452)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

Option Explicit

Dim DB As Database                     'database
Dim RS As Recordset                    'レコードセット
Dim RS2 As Recordset

Dim f As Variant
Dim NRec As Long                       'レコード数
Dim Crec As Long                       'カレントレコード

Private Sub Command4_Click()
'先頭へボタン
  If Crec <> 1 Then
    RS2.MoveFirst
    Call Indication
    Crec = 1
    Text4.Text = Format(Crec) & "/" & Format(NRec)
  End If
End Sub

Private Sub Command5_Click()
'前へボタン
  If Crec <> 1 Then
    RS2.MovePrevious
    Call Indication
    Crec = Crec - 1
    Text4.Text = Format(Crec) & "/" & Format(NRec)
  End If
End Sub

Private Sub Command6_Click()
'次へボタン
  If Crec <> NRec Then
    RS2.MoveNext
    Call Indication
    Crec = Crec + 1
    Text4.Text = Format(Crec) & "/" & Format(NRec)
  End If
End Sub

Private Sub Command7_Click()
'最後へボタン
  If Crec <> NRec Then
    RS2.MoveLast
    Call Indication
    Crec = NRec
    Text4.Text = Format(Crec) & "/" & Format(NRec)
  End If
End Sub

Private Sub Form_Load()

'Accessファイル名称
  Dim TableName As String              'テーブル名称
  Set DB = OpenDatabase("C:\デスクトップ\data.mdb")
  Set RS = DB.OpenRecordset("テーブル1", dbOpenSnapshot)
  f = 11
  
  RS.Filter = "配置" & "=" & "'f'"        '←fを変数にしたい
  Set RS2 = RS.OpenRecordset
  
  'With RS2
  'If .RecordCount <> 0 Then .MoveLast
  '.MoveFirst
  'End With
   
  RS2.MoveLast
  NRec = RS2.RecordCount
  RS2.MoveFirst
  
  Call Indication
  
  Crec = 1
  Text4.Text = Format(Crec) & "/" & Format(NRec)
  
End Sub

Private Sub Form_Unload(Cancel As Integer)
  RS.Close
  DB.Close
  Set RS = Nothing
  Set DB = Nothing
End Sub

Private Sub Indication()
'レコードセットオブジェクトの内容をテキストボックスにコピー
  
  Text1.Text = RS2.Fields(1)
  Text2.Text = RS2.Fields(4)

End Sub

この  RS.Filter = "配置" & "=" & "'f'" の文のfを直接数字にすると正常に配置の列の11だけを探し出してコマンドボタンで閲覧（text1.text2で表示)できるのですが、fを用い変数化しようとすると、エラーがでます。ちょっとした事だと思うのですが、教えて下さい。あと簡略化できるのであれば教えて下さい。

←解決時は質問者本人がここをチェックしてください。

戻る