Expand|Select|Wrap|Line Numbers
- 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