Hello Everyone,
I have a Audio CD that was downloaded to the desktop and I wanted to know how can I use the following access code to add the MP3 Tags to all of them like Names, Genre, Titles, Album, Artist, etc based upon a table I have in access? Thanks
The following code is what I have to cycle through the folder to update the below fields from the MP3Properties table however when I run it I get a Compile error: ByRef argument type mismatch. Not sure why it will not turning over.
I have a Audio CD that was downloaded to the desktop and I wanted to know how can I use the following access code to add the MP3 Tags to all of them like Names, Genre, Titles, Album, Artist, etc based upon a table I have in access? Thanks
The following code is what I have to cycle through the folder to update the below fields from the MP3Properties table however when I run it I get a Compile error: ByRef argument type mismatch. Not sure why it will not turning over.
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("SELECT * FROM MP3Properties")
If Not (rs.EOF And rs.BOF) Then
rs.MoveFirst
Do Until rs.EOF = True
Call SetID3Tag(Forms![UpdateMp3]![Text2], ((rs!Album)))
Call SetID3Tag(Forms![UpdateMp3]![Text2], ((rs!Title)))
Call SetID3Tag(Forms![UpdateMp3]![Text2], ((rs!Genre)))
rs.MoveNext
Loop
Else
MsgBox "There are no records in the recordset."
End If
rs.Close
Set rs = Nothing
'Dim TblCnt As Long
'TblCnt = DCount("*", "MP3Properties")
'Call GetID3Tag(Forms![UpdateMp3]![Text2], 237)
'Call SetID3Tag(Forms![UpdateMp3]![Text2], 237)