DoCmd.TransferText not working in Access 2019 and neither is Stop command

Copper Contributor

I have a function that worked correctly when running the mdb under Access 2010, but it no longer works under Access 2019. In addition, the vba is ignoring the Stop command. 

 

Any help will be greatly appreciated.

 

Private Sub cmdExportDoctorListByFax_Click()
'Create the export file
Stop
If MsgBox("This function will export a list of all doctors that have a fax number to " & "C:\PremiersDoctorListByFax" & Format$(Now, "yyyymmdd-hhmm") & ".txt" & vbCrLf & vbCrLf & "Do you wish to perform the Export?", vbYesNo + vbQuestion + vbDefaultButton1) = vbYes Then


DoCmd.TransferText acExportDelim, , "qryExportDoctorsInfoBasedOnFax", "C:\PremiersDoctorListByFax" & Format$(Now, "yyyymmdd-hhmm") & ".txt", False

 

MsgBox "The number " & Format$(Now, "yyyymmdd-hhmm") & " that is appended to the name PremiersDoctorsListByFax, stands for the current date and time!"
End If
End Sub

3 Replies

Hi,

 

> DoCmd.TransferText not working in Access 2019 and neither is Stop command 

 

How does the not-working manifest itself?

 

Regarding Stop:

Do you by chance have deactivated the Access option "Use special keys"? If yes, that ignorance of Stop and break points is "normal", i.e. a bug for decades.

 

Servus
Karl
****************
Access Bug Trackers
Access News
Access DevCon

 

 

Thanks for responding!
I click the command button that runs the code, but it doesn't run.
This mdb was created 24 years ago under A97. It has been greatly expanded and updated over the years to A2003 format. There are a number of other issues, so I just converted the db to an accdb format, which thankfully removed all of the user level security from the earlier mdb, and that seems to have ironed out a number of problems. Of course, the db has to be run for a while to see if there are any new bugs now.

Use special keys was checked - not deactivated. It's one of those things where I found a workaround and on to the next . . .

Thanks!