Access2010で動画データベースの作成方法

質問

Accessで動画データベースを作りたいのですが、動画の表示方法がわかりません。
フォーム上に動画（wmv）のpathを取得するところまでは出来たのですが、
そのpathを使用してActivXで貼り付けたWindowsMediaPlayarなどを再生出来るのでしょうか？
他の方法でも良いです。
出来れば、pathの取得と同時に再生したいです。
よろしくお願いします。

回答No.1

piroin654 · ベストアンサー

コントロールにパスを渡すだけで自動実行されます。
少しいろいろ付け加えて以下のように。

貼り付けたWindows Media Playerの名前を
myWindowsMediaPlayerとします。
あとはフォームにパスを表示するテキストボックスtxPathを
おいておいて、フォームのレコードソースにパスを
持つテーブルを指定して、テキストボックスにパスが
表示されるものとします。このあたりは適当に。
以下のように設定すると、

Private Sub Form_Current()
Dim strPath As String
If IsNull(Me!txPath) = False Then
strPath = Me!txPath
Me!myWindowsMediaPlayer.URL = strPath
End If
'レコードを移動させてテキストボックスが
'空のデータを示したとき稼動を中断
If Me.NewRecord = True Then Me.WindowsMediaPlayer1.URL = ""
End Aub

パスがコントロールに渡って、ファイルのパスが正しければ、
自動的に実行されます。間違っていると何もしません。
ただ、空のパスを渡すと実行時エラーが出るので処理を
しておきます。
一応、スキンモードに設定しておいたほうがmpg形式を
見る場合にも画面を広く使うのでいいのではと思いますが。

パスがフォルダまでとファイル名とが分離されて
テーブルに収められている場合は、

If IsNull(Me!txPath) = False Then
strPath = Me!txPath

の部分を、

If IsNull(Me!txPath) = False Then
strPath = Me!txPath & "\" & Me!txName

のようにすればいいのではと思います。
txNameはファイル名を表示するテキストボックス名
とします。

最初に、
＞コントロールにパスを渡すだけで自動実行されます。
と述べたように、
Private Sub Form_Current()
Me!myWindowsMediaPlayer.URL = strPath
End Sub
これだけで実行されます。

Private Sub Form_Current()

でなくて、ボタンクリックでパスを渡しても
同じです。

Private Sub コマンドボタン1_Click()
'レコードを移動してコントロールに
'パスを渡す処理
End Sub

お礼

ありがとうございます。感謝！感謝！です。
教えていただいたように、書いたらスグに出来ました。
初心者の私には、とても無理な内容です。
本当にありがとうございました。