Take your career to the next level with convenient certification training. Start your 7-day Free Trial
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.
Broken down into practical pointers and step-by-step instructions, the IT Service Excellence Tool Kit delivers expert advice for technology solution providers. Get your free copy now.
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.
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment