OLE Automation

[KRB2]

Trying to automate the embed of word docs. Using the following code which worked for me in Acess 2k but is not working in 2003. Any suggestions?


Private Sub cmd_Insert_DOC_Click()
On Error GoTo errhand2


Dim arbc As String
Dim iss As String

arbc = Me![Arb_Counter].Value
iss = "c:\FILES\Issue" & arbc & ".DOC"

Debug.Print fname

Decision.SourceDoc = fname
Decision.Action = OLe_Create_embed

errhand2:
Debug.Print Err
Resume Next
End Sub

[JConsulting]

Trying to automate the embed of word docs. Using the following code which worked for me in Acess 2k but is not working in 2003. Any suggestions?


Private Sub cmd_Insert_DOC_Click()
On Error GoTo errhand2


Dim arbc As String
Dim iss As String

arbc = Me![Arb_Counter].Value
iss = "c:\FILES\Issue" & arbc & ".DOC"

Debug.Print fname

Decision.SourceDoc = fname
Decision.Action = OLe_Create_embed

errhand2:
Debug.Print Err
Resume Next
End Sub

Looks like you're missing fname in this code. Where does it get it's value?
You may also want to test arbc for null, but it doesn't appear to matter...you're not doing anything with it as far as your code shows.
J

[Scott Price]

Is this the same problem that appeared resolved in this earlier post?

http://www.thescripts.com/forum/thre...-decision.html

Regards,
Scott

[Scott Price]

Comparing the dates/times of the two posts, this appears to be the first of a double posting. The issue was resolved in the other thread.

Regards,
Scott