ms-access - MS Access 中的 Windows 媒体播放器

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

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

但是你应该能够使用一个变量来代替：

Dim strMEDIA_FILE_TO_OPEN As String
strMEDIA_FILE_TO_OPEN = Me.txtSongFile