我有四个表:艺术家,专辑,曲目和导入。我基本上是在制作自己的I-Tunes,这使我无法使用。无论如何,我的问题是许多艺术家发行同名专辑,Greatest Hits等。我通过excel将iTunes带入Access到我的导入表。添加艺术家很容易,相册也是如此。我需要引入曲目/歌曲,但是我需要使用具有多个条件的Dlookup更新我的导入表和新的相册ID。我试过/没有括号,引号,双引号等。我一直收到语法错误?
Private Sub Command88_Click()
Dim Count As Integer
Dim ArtistLookupID As Integer
Dim AlbumTitleName As String
Count = 0
With Me.Recordset
.MoveFirst
Do While Not .EOF
ArtistLookupID = Me.[Artist ID]
AlbumTitleName = Me.[Album Title]
MsgBox "" & ArtistLookupID & " " & AlbumTitleName
Dlookup("[Album ID]", "[Album Table]", "[Album Title] = AlbumTitleName AND [Artist ID] = 'ArtistLookupID'")
Count = Count + 1
.MoveNext
Loop
End With
MsgBox "records processed=" & Count
End Sub
任何人