Compiling Word from Access from VBA - inserting images gives error

[Carlus]

Hi everyone,

I have a little problem and I hope someone can help me.

I created a sub using VBA in a form that upon click opens and compiles an existing Word document by replacing the Bookmarks present in the same Word.

Among the replacements there are also images (signatures) that vary based on a combo box selection.

Once the command is launched, the compilation begins correctly but stops (not always but once in three) on inserting images (signatures) with this error message: "Run Time Error 462 the path was not found"

the statement I use is Selection.InlineShapes.AddPicture

Below is part of the Sub code

Let me start by saying that I am a novice with VBA

thanks to anyone who wants to help me

percorsoimmagini = "c:...\FileDatabase\Immagini"
End Function

Dim FirmaRL As String
Dim idfirmaRL As String
idfirmaRL = Txt_RL_ID
FirmaRL = percorsoimmagini & idfirmaRL & ".png"
Wrd.ActiveDocument.Bookmarks("FirmaRL1").Select
Selection.Find.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False


End With

[CJ_London]

I don't see that line anywhere in the code supplied - please provide the full code and use copy/paste with the # button rather than an image.

[Carlus]

Public Function percorsoimmagini() As String
percorsoimmagini = "c:...\FileDatabase\Immagini"
End Function

Dim FirmaRL As String
Dim idfirmaRL As String
idfirmaRL = Txt_RL_ID
FirmaRL = percorsoimmagini & idfirmaRL & ".png"
Wrd.ActiveDocument.Bookmarks("FirmaRL1").Select
Selection.Find.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.InlineShapes.AddPicture FileName:=FirmaRL, LinkToFile:=False, SaveWithDocument:=True

[CJ_London]

Don’t see how that works - you are missing a procedure (or function) header and no end function

[Carlus]

Hi,

Option Compare Database
Option Explicit


Public Function percorsodatabase() As String
percorsodatabase = "\\192.158.1.38\Master Documenti\"
End Function


Public Function percorsoimmagini() As String
percorsoimmagini = "\\192.158.1.38\Immagini\"
End Function


Private Sub CmdCreaDocTecnica_Click()


Dim Wrd As Word.Application, Doc As Word.Document
Dim rst As DAO.Recordset
Dim Modello As String, NomeFile As String, i As Integer
Dim Record As String, SQL As String
Dim Tbl As String * 1
Dim ReplSel As Boolean
Dim stDocName As String
Dim FirmaRL As String
Dim idfirmaRL As String




    Modello = percorsodatabase & "DOCUMENTAZIONE.docx"




    On Error Resume Next
    Set Wrd = GetObject(, "Word.Application")
If Err.Number = 429 Then
    Set Wrd = CreateObject("Word.Application")
End If
    On Error GoTo 0
    Wrd.Visible = True
    Wrd.Activate
    ReplSel = Wrd.Options.ReplaceSelection
    Wrd.Options.ReplaceSelection = True
    Set Doc = Wrd.Documents.Add(Modello)
    Doc.Activate


idfirmaRL = Txt_RL_ID
FirmaRL = percorsoimmagini & idfirmaRL & ".png"


Wrd.ActiveDocument.Bookmarks("FirmaRL1").Select
Selection.Find.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.InlineShapes.AddPicture FileName:=FirmaRL, LinkToFile:=False, SaveWithDocument:=True


DoCmd.RunCommand acCmdSaveRecord 'salva
Wrd.Selection.HomeKey Unit:=wdStory 'torna con il cursore ad inizio documento
'aggiorna sommario word




If ActiveDocument.Fields.Update = 0 Then


Else
    MsgBox "Field " & ActiveDocument.Fields.Update & "Esportazione bloccata, controlla i campi inseriti"
End If
    Wrd.Application.WordBasic.MsgBox "Ottimo... Esportazione terminata!", "Esportazione dati da Access"
    
    Set Doc = Nothing
    Set Wrd = Nothing


End Sub

[CJ_London]

thanks - what is the value of Txt_RL_ID? (use debug.print to verify it is what you think it is)

and in line with the error message - can you confirm the file exists (replace somename with whatever value is Txt_RL_ID)

\\192.158.1.38\Immagini\somename.png

[Carlus]

HI
the exact error text is this:
Run-time error '462': The remote server computer does not exist or is unavailable.
the file exists I tried, maybe sometimes it can't access the server?


the exact error text is the same:Run-time error '462': The remote server computer does not exist or is unavailable.

[CJ_London]

you haven't actually answered my questions. It may be your text field contains invalid characters or is incomplete in some way

once you have debug printed the full path, copy it from the immediate window and paste it into windows explorer - does that work

[zpy2]

On Error Resume Next

when you trouble shooting,please delete or comment above line to show specific wrong line.