Reply to thread

Message

[QUOTE="shw, post: 5787231"]
Hi

I an studing the link you have send but FYI, the error log
file created this error

Line 2: Property OleObjectBlob in frmmedi could not be set.

and this is first few lines of form frmmedi

Private Sub cmbtype_Click()
BlockTextBoxs
End Sub

Private Sub cmdMasterQuery_Click()

Dim fso As FileSystemObject
Dim TempFile As TextStream
Dim TempFile1 As TextStream

Set fso = New FileSystemObject
Set TempFile = fso.OpenTextFile
("C:\Medi\system\Path.txt", ForReading)

If fso.FileExists("c:\medi\system\Path1.txt") = True Then
Call fso.DeleteFile
("c:\medi\system\Path1.txt")
End If

Call fso.CreateTextFile
("C:\Medi\system\Path1.txt")

Set TempFile1 = fso.OpenTextFile
("C:\Medi\system\Path1.txt", ForWriting)

For I = 1 To 5
TempFile1.WriteLine TempFile.ReadLine
Next

CommonDialog1.FileName = txtMasterQuery
CommonDialog1.ShowOpen
txtMasterQuery = CommonDialog1.FileName
If txtMasterQuery = "" Then
TempFile1.WriteLine "C:\Medi\system"
Else
TempFile1.WriteLine txtMasterQuery
End If

TempFile1.Close
TempFile.Close

Call fso.DeleteFile("C:\medi\system\path.txt")
Call fso.MoveFile
("C:\medi\system\path1.txt", "C:\medi\system\path.txt")

End Sub
[/QUOTE]

Verification