■

文書受付関係のデータベースをAccessで作っています。
事務の受付で文書収受簿を作るときにおおまかに入力してもらって、担当者や日付をこちらで入力しています。文書もScanSnapでPDFにして”H20_0923.pdf”とか名前がついています。年間2000文書超えるようです。
検索してこのPDFを開けるようにしました。PDFをAccessのフォームから開くコードです。
コマンドボタンのクリックプロシージャに
'PDF文書の表示
Dim bangou
bangou = Format(Form_入力フォーム.ID, "0000")
Application.FollowHyperlink "ドライブ番号・・\H20_" & bangou & ".pdf"
結構簡単でした。