TransferText Problem in Runtime App

[Guest]

I have an Access97 runtime application that I have distributed. Some users cannot get past a TransferText command to copy table data to a floppy as txt files. It doesn't seem to be consistent, so I am thinking that it may have something to do with their specific setup (???)

My Code is a follows:

Private Sub CopyAllToDisk_Click()
On Error GoTo Err_CopyAllToDisk_Click
Dim AnswerMsg As Integer
AnswerMsg = MsgBox("This will copy ALL TOURNAMENT DATA to the disk in Drive A as 'backup' text files. Make sure you are not over-writing good data with old data!", 305, "Tournament Plus")
If AnswerMsg = 1 Then
DoCmd.TransferText acExportDelim, , "tblAddedPts", "A:\tblAddedPts.txt", True
DoCmd.TransferText acExportDelim, , "tblCurrentFile", "A:\tblCurrentFile.txt", True
DoCmd.TransferText acExportDelim, , "tblDivisionNames", "A:\tblDivisionNames.txt", True
DoCmd.TransferText acExportDelim, , "tblFileNames", "A:\tblFileNames.txt", True
DoCmd.TransferText acExportDelim, , "tblOptions", "A:\tblOptions.txt", True
DoCmd.TransferText acExportDelim, , "tblPairings", "A:\tblPairnings.txt", True
DoCmd.TransferText acExportDelim, , "tblPairings2", "A:\tblPairnings2.txt", True
DoCmd.TransferText acExportDelim, , "tblPenaltyPts", "A:\tblPenaltyPts.txt", True
DoCmd.TransferText acExportDelim, , "tblRegistration", "A:\tblRegistration.txt", True
DoCmd.TransferText acExportDelim, , "tblTeamsExpected", "A:\tblTeamsExpected.txt", True
MsgBox "I'm done copying files to disk now. Make sure you label the disk.", , "Tournament Plus"
Else
Exit Sub
End If
Exit_CopyAllToDisk_Click:
DoCmd.SetWarnings True
Exit Sub
Err_CopyAllToDisk_Click:
DoCmd.SetWarnings True
MsgBox "Tournament Plus cannot write a file to Drive A. Make sure there is a formatted disk in Drive A.", , "Tournament Plus"
Resume Exit_CopyAllToDisk_Click
End Sub

 

[Ken Snell]

Please define "cannot get past a TransferText command". What does this mean?
They get an error? Which error? what happens?

--
Ken Snell
<MS ACCESS MVP>

I have an Access97 runtime application that I have distributed. Some

users cannot get past a TransferText command to copy table data to a floppy
as txt files. It doesn't seem to be consistent, so I am thinking that it
may have something to do with their specific setup (???)

My Code is a follows:

Private Sub CopyAllToDisk_Click()
On Error GoTo Err_CopyAllToDisk_Click
Dim AnswerMsg As Integer
AnswerMsg = MsgBox("This will copy ALL TOURNAMENT DATA to the disk in

Drive A as 'backup' text files. Make sure you are not over-writing good
data with old data!", 305, "Tournament Plus")

If AnswerMsg = 1 Then
DoCmd.TransferText acExportDelim, , "tblAddedPts", "A:\tblAddedPts.txt", True
DoCmd.TransferText acExportDelim, , "tblCurrentFile", "A:\tblCurrentFile.txt", True
DoCmd.TransferText acExportDelim, , "tblDivisionNames",

"A:\tblDivisionNames.txt", True

DoCmd.TransferText acExportDelim, , "tblFileNames", "A:\tblFileNames.txt", True
DoCmd.TransferText acExportDelim, , "tblOptions", "A:\tblOptions.txt", True
DoCmd.TransferText acExportDelim, , "tblPairings", "A:\tblPairnings.txt", True
DoCmd.TransferText acExportDelim, , "tblPairings2", "A:\tblPairnings2.txt", True
DoCmd.TransferText acExportDelim, , "tblPenaltyPts", "A:\tblPenaltyPts.txt", True
DoCmd.TransferText acExportDelim, , "tblRegistration", "A:\tblRegistration.txt", True
DoCmd.TransferText acExportDelim, , "tblTeamsExpected",

"A:\tblTeamsExpected.txt", True

MsgBox "I'm done copying files to disk now. Make sure you label

the disk.", , "Tournament Plus"

Else
Exit Sub
End If
Exit_CopyAllToDisk_Click:
DoCmd.SetWarnings True
Exit Sub
Err_CopyAllToDisk_Click:
DoCmd.SetWarnings True
MsgBox "Tournament Plus cannot write a file to Drive A. Make sure

there is a formatted disk in Drive A.", , "Tournament Plus"

 

[Guest]

Ken,
The error trap that I put in only gave them a message that it couldn't access Drive A: (my choice of error messages).

I ran the program on my computer and got the same error message. In an attempt to find out what the exact error was, I changed that line to read Msgbox Err.Number & " " & Err.Description. When I ran that (on MY computer), I got no error and the TransferText worked fine. I have not been able to recreate it since. It may be a hardware (floppy drive) problem that goes away after exercising the drive (???) or it may be something else - it's the "something else" that is giving me problems. I don't know what else it could be.

My question is, are there restrictions on using TransferText that could be caused by the presence or absence of a non-runtime verison of Access? Another user, using the runtime version quite some time ago, said that he got an error message about ISAM not installed. Sorry I can't be more informative. I can't seem to reproduce this error (other than the one time) on my computers at home.

 

[Ken Snell]

TransferText itself shouldn't be affected by the presence or absence of
runtime version of ACCESS. It could be affected if some wizard or driver
files aren't present or registered, but that doesn't sound like your
situation. My initial guess is that the hardware for some reason was unable
to "see" or "get" the floppy drive disk.

--
Ken Snell
<MS ACCESS MVP>

Ken,
The error trap that I put in only gave them a message that it couldn't

access Drive A: (my choice of error messages).

I ran the program on my computer and got the same error message. In an

attempt to find out what the exact error was, I changed that line to read
Msgbox Err.Number & " " & Err.Description. When I ran that (on MY
computer), I got no error and the TransferText worked fine. I have not been
able to recreate it since. It may be a hardware (floppy drive) problem that
goes away after exercising the drive (???) or it may be something else -
it's the "something else" that is giving me problems. I don't know what
else it could be.

My question is, are there restrictions on using TransferText that could be

caused by the presence or absence of a non-runtime verison of Access?
Another user, using the runtime version quite some time ago, said that he
got an error message about ISAM not installed. Sorry I can't be more
informative. I can't seem to reproduce this error (other than the one time)
on my computers at home.

 

[Guest]

Thanks Ken - tried to send thanks earlier by have gotten a lot of "service not currently available" messages here lately