Question

我希望只要更新组合框，Access就会“自动”播放歌曲。我希望根据组合框的内容更改该歌曲。不幸的是，下面的代码返回：

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的在线帮助所说的：

“文字，其他常量或包含除Is之外的所有算术或逻辑运算符的任何组合。”

但您应该能够使用变量：

Dim strMEDIA_FILE_TO_OPEN As String
strMEDIA_FILE_TO_OPEN = Me.txtSongFile

MS Access中的Windows Media Player

1 个答案: