[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More
Experts Exchange Solution brought to you by
"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.
Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.
Considering 93 percent of companies file for bankruptcy within 12 months of a disaster that blocked access to their data for 10 days or more, planning for the worst is just smart business. Learn how Acronis Backup integrates security at every stage
Private Sub cmdMARemit_Click()
Dim db as DAO.Database
Dim qd as DAO.Querydef
On Error GoTo ErrorProc
DoCmd.TransferText acLinkDelim, "MA_Remit", "Link_MARemit", Me.txtFileName, True
Me.txtMARemitName = Me.txtFileName
Me.txtMARemitDate = Now()
Set qd = db.QueryDefs!qAppendMARemit
On Error GoTo 0
Select Case Err.Number
Case 91, 3265, 3011
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure cmdMARemit_Click of Form_frmMain"
Open in new window
private sub cmdImportCSV_Click()
dim strFileName as string
DoCmd.TransferText acImportDelim, "ImportSpecificationName", "TableName",strFileName, False
From novice to tech pro — start learning today.
Premium members can enroll in this course at no extra cost.