Copy OLEBound tiff file from database (1 Viewer)

devilsphere

New member
Local time
Today, 18:08
Joined
Oct 23, 2008
Messages
4
:confused:
I have an Access 2003 database and I would to automate it to copy a file that was dragged into an OLEBound frame to a specific folder. I already have it creating a folder based upon the name input into another field. My code is below:

Private Sub Command33_Click()
Dim X As String
X = JobNumber

If Len(Dir("\\192.168.1.50\share\Jobs\" + X, vbDirectory)) = 0 Then MkDir ("\\192.168.1.50\share\Jobs\" + X)

On Error GoTo Err_Command33_Click

DoCmd.GoToRecord , , acNext
Exit_Command33_Click:
Exit Sub
Err_Command33_Click:
MsgBox Err.Description
Resume Exit_Command33_Click

End Sub

The name of the OLEBound frame is OLEBound27
I've looked around and I am having difficulty figuring this out.
Thanks in advance for any help.
 

Users who are viewing this thread

Top Bottom