機能

Web検索みたいに空白でアンド検索

Private Sub cmd検索_Click()

On Error Resume Next

Dim strFilter As String
Dim strR_name As Variant

   strR_name = Me.txt検索
   If Not IsNull(strR_name) Then
'        strFilter = "(R_name Like ""*" & strR_name & "*"")"
       
       strFilter = "*" & Replace(strR_name, " ", "* And *") & "*"
       strFilter = BuildCriteria("R_name", dbText, strFilter)
   End If
  
  If Not IsNull(strFilter) Then
       'フィルタ設定
       Me.Form.Filter = strFilter
       Me.Form.FilterOn = True
   Else
       'フィルタ解除
       Me.Form.FilterOn = False
   End If

   'RecordsetCloneにより件数表示（MoveLastは全件を正しく求めるため）
   If Not Me.Form.RecordsetClone.EOF Then
       Me.Form.RecordsetClone.MoveLast
   End If
   
   Me.該当件数 = Me.Form.RecordsetClone.RecordCount
   
   If Nz(DCount("*", "t_1", strFilter), 0) = 0 Then
       MsgBox "該当はありません" 
   End If   
End Sub

ハイパーリンクで該当ファイルを開く

Private Sub cmdOpen_Click()
　'Me.openFile：ハイパーリンク型：パスを入力してある
   Me.cmdOpen.HyperlinkAddress = Me.openFile
End Sub