MS Access中的Windows Media Player

Question

我希望在更新組合框時訪問「自動」播放歌曲。我希望歌曲根據組合框的內容而改變。不幸的是，下面的代碼返回：

Constant expression required 

這裏是我的工作代碼：

Private Sub cboCustomerID_AfterUpdate() 
txtSongFile = Me.cboCustomerID.Column(2) 
Me.Refresh 
Const conMEDIA_FILE_TO_OPEN As String = Me.txtSongFile 

Me![WindowsMediaPlayer1].openPlayer (conMEDIA_FILE_TO_OPEN) 

End Sub 

任何幫助將不勝感激！謝謝。

Answer 1

您提到的錯誤是編譯錯誤，而不是運行時錯誤。它是由這一行造成的：

Const conMEDIA_FILE_TO_OPEN As String = Me.txtSongFile 

的原因是，你可以在=標誌的右側用什麼VBA規則是相當嚴格的。這是什麼Access的在線幫助說：

「文字，其他常數，或任何組合，包括所有算術或邏輯運算符，除了是。

但是，你應該能夠使用，而不是一個變量：

Dim strMEDIA_FILE_TO_OPEN As String 
strMEDIA_FILE_TO_OPEN = Me.txtSongFile