Ms access MS Access中的Windows Media Player

我想访问“自动”播放歌曲时，一个组合框是更新。我希望歌曲根据组合框的内容而改变。不幸的是，下面的代码返回：

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

---

任何帮助都将不胜感激！！谢谢。

您提到的错误是编译错误，而不是运行时错误。这是由这条线引起的：

Const conMEDIA\u FILE\u打开为String=Me.txtSongFile

原因是在

=

符号右侧可以使用的VBA规则非常严格。Access的在线帮助是这样说的：

文字、其他常量或包括除Is以外的所有算术或逻辑运算符的任何组合

但您应该能够使用变量：

Dim strMEDIA\u文件作为字符串打开
strMEDIA_FILE_TO_OPEN=Me.txtSongFile

您提到的错误是编译错误，而不是运行时错误。这是由这条线引起的：

Const conMEDIA\u FILE\u打开为String=Me.txtSongFile

原因是在

=

符号右侧可以使用的VBA规则非常严格。Access的在线帮助是这样说的：

文字、其他常量或包括除Is以外的所有算术或逻辑运算符的任何组合

但您应该能够使用变量：

Dim strMEDIA\u文件作为字符串打开
strMEDIA_FILE_TO_OPEN=Me.txtSongFile

WMP打开（并播放）组合文件名的简单方法有什么建议吗？我只是将答案更新为建议变量而不是常量。这对你的其他代码有用吗？太好了！！非常感谢你！！对于让WMP从组合中打开（并播放）文件名的不太复杂的方法，有什么建议吗？我只是更新了答案，将其改为建议变量而不是常量。这对你的其他代码有用吗？太好了！！非常感谢你！！