Microsoft Access 掲示板

丁寧な解説、ありがとうございます。本当に助かります。

ユーザーに多少の手間を取らせてしまいますが、とりあえず元データの
整理が完了するまでは、合致するデータが無かった場合に
該当するフォルダを開くようにします。

また、データ整理・および新たなデータを一気に登録する際には
改めてデータの参照方法を考えてみます。

本当に長々とお付き合いくださりありがとうございました。

Private Sub PDF表示_Click()
 
  Dim PDFPath As String, FldPath As String

  PDFPath = Application.CurrentProject.Path & "\PDFDATA\" & MNFCTID & ".pdf"
  FldPath = Application.CurrentProject.Path & "\PDFDATA"
  
  If Not Dir(PDFPath) = "" Then
  
    Shell "C:\Windows\explorer.exe " & PDFPath, vbNormalFocus
  Else
  
    MsgBox "データを探せませんでした。" & Chr(13) _
    & "PDFフォルダを開きます。"
    
    Shell "C:\Windows\explorer.exe " & FldPath, vbNormalFocus
    
  End If
  
End Sub