Replies

Seems you’re right !

I tried:

Case “PUT”

msCurrentFile = sFTPSrcFileName
If oFS.FileExists(sFTPSrcFileName) = False Then GoTo FTPFileExit
If oFS.FileExists(sFTPTgtFileName, vbDirectory) = False Then MkDir sFTPTgtFileName
Inet1.Execute sURL, sFTPCommand & Space(1) & sFTPSrcFileName & ” ” & sFTPTgtFileName

Which doesn’t work

Hans

Does this help, I tried the fso statement in the “PUT” section as I think this opens the connection.
It crashed because strRef isn’t created until later in the code?

Friend Sub FTPFile(ByVal sFTPServer As String, _
ByVal sFTPCommand As String, _
ByVal sFTPUser As String, _
ByVal sFTPPwd As String, _
ByVal sFTPSrcFileName As String, _
ByVal sFTPTgtFileName As String)

Dim oFS As Scripting.FileSystemObject
Dim sURL As String

On Error GoTo FTPFileExit

Me.HRG True
msCurrentFile = “”

Set oFS = New Scripting.FileSystemObject

sURL = “ftp://” & sFTPUser & “:” & sFTPPwd & “@” & sFTPServer

Inet1.Protocol = icFTP
Inet1.RequestTimeout = 60
Inet1.RemotePort = 21
Inet1.AccessType = icDirect
Inet1.URL = sURL

Select Case sFTPCommand

Case “PUT”

msCurrentFile = sFTPSrcFileName
If oFS.FileExists(sFTPSrcFileName) = False Then GoTo FTPFileExit
Inet1.Execute sURL, sFTPCommand & Space(1) & sFTPSrcFileName & ” ” & sFTPTgtFileName

Case “GET”

msCurrentFile = sFTPTgtFileName
If oFS.FileExists(sFTPTgtFileName) = True Then oFS.DeleteFile sFTPTgtFileName, True
Inet1.Execute sURL, sFTPCommand & Space(1) & sFTPSrcFileName & ” ” & sFTPTgtFileName

End Select

Me.WaitForResponse
Inet1.Execute sURL, “quit”
Me.WaitForResponse

FTPFileExit:
Set oFS = Nothing
HRG False
End Sub

The installation always seems to halt on the following line:

File7=@msvbvm60.dll,$(WinSysPathSysFile),$(DLLSelfRegister),,4/14/08 1:12:00 AM,1384479,6.0.98.2

Asks me to reboot to update windows every time.
If I remove the line, the install works Ok !!

Thank you Hans.

Thank you, it works great.

Thanks Hans

Got it working ok.

DoCmd.TransferText acExportDelim, , “tblData”, “C:TestData.csv”, True

Hi Hans

This code creates the field data with quotes, ie

“CAT”,”DOG”,”MOUSE”

I need:

CAT,DOG,MOUSE

Instead, is there an alternative to the line of code?

Cheers guy’s

Works perfect.

Thaks for the help but I am getting “Circular Reference caused by Alias… ”

RepairCosts: IIf(IsNull([RepairCosts]) Or [RepairCosts]=0,”UNKNOWN”,[RepairCosts])

Yes I see now Hans

I kind of had the same set up.
Thanks once again for giving me a good start.

Hans

You don’t have a very quick example do you so I can study it?
I think my whole database is incorrect, perhaps looking at aneample would help me along.

No this is fine Hans, does what it says on the tin.
I may have to deal with some blank fields though, I’ll deal with them when I’ve tested this.

Thanks once again.

Hi Dave,

Do you want to export all records behind the form, or specific data from the form?

Access has a built-in method DoCmd.TransferText, but it works only with tables and queries.

Hi Hans

Ideally what the user see’s on the form, but if it’s easier to export all the table then the destination CSV can be over written every time.

Cheers Hans

I’m sure Jan will tidy things up a little… the bears are just fantastic though, I’ve seen many she has made, very talented.
Everyone is individual and unique, I think she sew’s a little love into each one….

Bless !

Sorry to confuse you all on this.
I used the Access forum because the project I’m trying to build uses VB forms with ODBC & Access data, it just so happened in this case to be the ODBC datasource.

The information gained of the .text & .value property is very useful, so many thanks again.