Function Picture()
On Error GoTo Picture_Err
DoCmd.OpenTable "Sale", acNormal, acEdit
DoCmd.GoToControl "MainPicture"
' Specify type of object.
MainPicture.OLETypeAllowed = acOLELinked
' Specify source file.
SourceDoc = "C:\1000i.jpg"
' Create linked object.
Action = acOLECreateLink
Picture_Exit:
Exit Function
Picture_Err:
MsgBox Error$
Resume Picture_Exit
End Function
Any help would be appreciated.
Thanks
Nick
Alex
"Nick Batchelor" <nick.ba...@softhome.net> wrote in message
news:u7HKO9ZaAHA.2256@tkmsftngp05...
In article <u7HKO9ZaAHA.2256@tkmsftngp05>,
Sent via Deja.com
http://www.deja.com/