[#Part : VCH Narration] Add : Line : AT End : Attach File [Line :Attach File] Field : Simple Prompt,Attach File Local : Field : Simple Prompt : Set As : "Attach File" [Field : Attach File] ;;;;;;;;;;C:\Documents and Settings\All Users\Documents\My Pictures\Sample Pictures\Blue hills.jpg Storage : MyAttachFile Width : 75% screen [System : UDF] MyAttachFile: String: 20044 [#Object: Voucher] VCHAttachFile : $MyAttachFile ;;;;;;;;;;======================Report====================== [#Form : Voucher] Add : Button : Attachment Open [Button : Attachment Open] Title : "Open File" Key: Ctrl + A Action : Execute: Open File [Report : Open File] Form : Open File Object: Voucher [Form : Open File] Part : Open File Part : File Path [Part : Open File] Graph Type : ????????????????????????? ;$VCHAttachFile OR $MyAttachFile:VCHAttachFile Line : Open File [Line : Open File] Field : Open File [Field : Open File] Set As:"" [Part : File Path] Line : File Path [Line : File Path] Field : Simple Prompt,File Path Local : Field : Simple Prompt : Set As:"File Path" [Field : File Path] Set As :????????????????????????? ;$VCHAttachFile OR $MyAttachFile:VCHAttachFile Skip : Yes Style : MyStyle [Style: MyStyle] Font: Verdana Bold : Yes Height: 10
Sir try the following codes i give three different key to load the image save in your udf. [#Part : VCH Narration] Add : Line : AT End : Attach File [Line :Attach File] Field : Simple Prompt,Attach File,newfiled Local : Field : Simple Prompt : Set As : "Attach File" Local:Field:simple prompt:Key:Mydoubleclick ;Local:Field:newfiled:ASCII Only:Yes [Field:newfiled] Set as:"New" Fixed:"New" Width:2 cm ;Skip:Yes Key:Mydoubleclick Read Only:Yes ;Skip SysNames:Yes [Field : Attach File] ;;;;;;;;;;C:\Documents and Settings\All Users\Documents\My Pictures\Sample Pictures\Blue hills.jpg Storage : MyAttachFile Width : 75% screen Fixed:$$InAlterMode Key:Mydoubleclick DMPMode:Yes [Key:Mydoubleclick] Key: left click Action :Browse@MyBrowsepath [System : UDF] MyAttachFile: String: 20044 [#Object: Voucher] VCHAttachFile : $MyAttachFile ;;;;;;;;;;======================Report====================== [#Form : Voucher] Add : Button : Attachment Open [Button : Attachment Open] Title : "Open File" Key: Ctrl + Z Action :Browse@MyBrowsepath [System:formula] MyBrowsepath:$MyAttachFile