We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
FilePath = "C:\Users\residents.csv" 'DoCmd.TransferSpreadsheet acLink, acSpreadsheetTypeExcel7, "TblNm_SS", FilePath, True DoCmd.TransferText acLinkDelim, , "TblNm_SS", FilePath, True Set InRS = DB.OpenRecordset("TblNm_SS") Set OutRS = DB.OpenRecordset("PermTbl") If InRS.EOF = False Then InRS.MoveFirst Do Until InRS.EOF = True I = 0 With OutRS 'the input is an empty string write it .AddNew For I = 0 To InRS.Fields.Count - 1 .Fields(I).Value = CStr(Nz(InRS.Fields(I).Value, "")) Next I .Update End With InRS.MoveNext Loop End If
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.