asked on Error in saving the Ms Access text file
First Many thanks to you all for trying very to assist on how to save string from MS Access to a text file, however, there are still a few things remaining to get it right, the file to save is giving a debug error when trying save. Could it be I'm going off the line again?
Private Sub CmdServings_Click()
Dim strData As String
Dim n As Integer
Dim dlg As filedialog
Dim GetFilePath As Object
Set dlg = Application.filedialog(msoFileDialogSaveAs)
dlg.AllowMultiSelect = False
dlg.Title = "Select the file to be imported..."
If dlg.Show Then
GetFilePath = dlg.SelectedItems(1)
End If
n = FreeFile()
Print #n, strData
Close #n
End Sub
Microsoft Access
Last Comment
Kimputer
ASKER
ASKER
I have also tried to load strData with some manual data so that it does not show empty but still the debug error pops up.
Private Sub CmdServings_Click()
Dim strData As String
Dim n As Integer
Dim dlg As filedialog
Dim GetFilePath As Object
strData = "145236tyyiio"
Set dlg = Application.filedialog(msoFileDialogSaveAs)
dlg.AllowMultiSelect = False
dlg.Title = "Select the file to be export..."
If dlg.Show Then
GetFilePath = dlg.SelectedItems(1)
End If
n = FreeFile()
Open GetFilePath For Output As #n
Print #n, strData
Close #n
End Sub
ASKER
Here are the series of errors I'm getting:
ASKER CERTIFIED SOLUTION
THIS SOLUTION ONLY AVAILABLE TO MEMBERS.
View this solution by signing up for a free trial.
Members can start a 7-Day free trial and enjoy unlimited access to the platform.
Did you cancel the process.
You should use a file picking function and simply use the returned value. This simplifies your code, allow reuse, make your code much more dependable. I urge you to simply use a function like https://www.devhut.net/2016/10/04/late-binding-the-filedialog/
You should use a file picking function and simply use the returned value. This simplifies your code, allow reuse, make your code much more dependable. I urge you to simply use a function like https://www.devhut.net/2016/10/04/late-binding-the-filedialog/
Also thanks for marking your own answer, while my FIRST POST said:
GetFilePath should be string
Open in new window
Though some other errors will follow next, GetFilePath should be string, strData is empty etc etc