Drastically shorten your training time with WalkMe's advanced online training solution that Guides your trainees to action.
Sub MigrateImages() Dim MyDB As Database Dim MyRcd As DAO.Recordset Dim strsql As String Set MyDB = CurrentDb strsql = _ "Select" & vbcrlf & _ " Image" & vbcrlf & _ ", Name" & vbcrlf & _ "FROM" & vbcrlf & _ " tblImages" Set MyRcd = MyDB.OpenRecordset(strsql, dbOpenDynaset) If (Not (MyRcd.BOF And MyRcd.EOF)) Then MyRcd.MoveFirst While (Not MyRcd.EOF) <Code to export images goes here> Wend End If End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|MS Office 2016 Home & Business, Access Runtime 2013, on Citrix?||6||68|
|I am having an ODBC timeout issue with an Access Frontend||6||59|
|Select category, subcategory in MS Access table field||7||45|
|Userform to show a range in excel.||3||33|
Join the community of 500,000 technology professionals and ask your questions.