Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails
Private Sub Command14_Click() 'select the currently open database Set dbCurr = CurrentDb 'confirm it is the correct one Debug.Print dbCurr.Name 'create a pointer to the recordings recordset Dim rsRecordingz As Recordset 'open Recordingz recordset Set rsRecordingz = dbCurr.OpenRecordset("Imported Recordings") 'loop through records and attach recordings Do Until rsRecordingz.EOF Debug.Print rsRecordingz!WaveFileName & " "; rsRecordingz!TimeStamp 'prepare parent record for operations rsRecordingz.Edit 'instantiate child recordset Set rsRecord = rsRecordingz.Fields("Recording").Value 'Add a new recording object rsRecord.AddNew 'attach the .wav file in the folder to the record rsRecord.Fields("FileData").LoadFromFile "C:\Documents and Settings\Default\Desktop\YVIRC Recordings\" & rsRecordingz!WaveFileName 'update child record rsRecord.Update 'update the parent record rsRecordingz.Update 'move to next parent record rsRecordingz.MoveNext Loop End Sub
|Why am I getting "No Duplicate Values Found" on this spreadsheet when there very clearly ARE duplicates?||12||48|
|Subform Link field||13||20|
|Get rid of ID prompt upon form open - MS Access||3||0|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
17 Experts available now in Live!