[Resolvido]Definir caminho para salvar documento gerado, a partir de conteudo de caixa de texto

Boas.

Utilizo o access para gerar um documento do Word (préviamente formatado).
Está tudo funcionando corretamente. só quero que eu defina a pasta para salvamento do arquivo
através do conteúdo de uma caixa de texto.

Atualmente uso essa linha:

'Salva o documento
.ActiveDocument.SaveAs CurrentProject.Path & "\Relatorio de Atendimento" & " - " & Me.TxtCaso & "_" & Me!SubAssuntos!DiaVisita & ".docx"

Gostaria de substituir o "CurrentProject.Path" pelo conteúdo de uma caixa de texto: "Y:\Casos\AT-0653- SP-0154-",
permanecendo as outras partes do nome do arquivo "\Relatorio de Atendimento" & " - " & Me.TxtCaso & "_" & Me!SubAssuntos!DiaVisita & ".docx"


não estou sabendo como implantar essa mudança.

agradeço qualquer colaboração.

Bom dia.
Para quem interessar, encontrei uma solução para adicionar cursor "mãozinha" access 2003:

Criar módulo:


Option Compare Database

Declare Function SetClassLong Lib "user32" Alias "SetClassLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

'=====================================================================
' Globals for cursor handling
   Global Const GCL_HCURSOR = (-12)
   Global hSwapCursor As Long
   Global hAniCursor As Long

'=====================================================================

Public Const IDC_ARROW = 32512&
Public Const IDC_IBEAM = 32513&
Public Const IDC_WAIT = 32514&
Public Const IDC_CROSS = 32515&
Public Const IDC_UPARROW = 32516&
Public Const IDC_ICON = 32641&
Public Const IDC_SIZENWSE = 32642&
Public Const IDC_SIZENESW = 32643&
Public Const IDC_SIZEWE = 32644&
Public Const IDC_SIZENS = 32645&
Public Const IDC_SIZEALL = 32646&
Public Const IDC_NO = 32648&
Public Const IDC_HAND = 32649&
Public Const IDC_APPSTARTING = 32650&

Declare Function LoadCursorBynum Lib "user32" Alias "LoadCursorA" _
 (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long

Declare Function LoadCursorFromFile Lib "user32" Alias _
 "LoadCursorFromFileA" (ByVal lpFileName As String) As Long

Declare Function SetCursor Lib "user32" _
 (ByVal hCursor As Long) As Long
 '
Public Function Arrow_Pointer()
   Screen.MousePointer = 1
End Function

Function ChangeCursor(strPathToCursor As String)

   On Error GoTo Error_On_ChangeCursor

' Example :
'           ChangeCursor ("C:\Program Files\Microsoft Office\Office\Hand.cur")

 If Dir(strPathToCursor) <> "" Then
     Dim lngRet As Long
     lngRet = LoadCursorFromFile(strPathToCursor)
     lngRet = SetCursor(lngRet)
 End If
 
Exit_ChangeCursor:

   Exit Function
   
Error_On_ChangeCursor:
   
   Resume Exit_ChangeCursor
 
End Function

Public Function Default_Pointer()
   Screen.MousePointer = 0
End Function

Public Function IBeam_Pointer()
   Screen.MousePointer = 3
End Function

Function MouseCursor(CursorType As Long)

' Example:  =MouseCursor(32512)     ' using Public Constants from above

 Dim lngRet As Long
 lngRet = LoadCursorBynum(0&, CursorType)
 lngRet = SetCursor(lngRet)
End Function

Public Function Replace_Cursor(PathToFile As String)

   ' Return handle from animated cursor
   
   ' Original - hAniCursor = LoadCursorFromFile("C:\WINDOWS\CURSORS\GLOBE.ANI")
   
   hAniCursor = LoadCursorFromFile(PathToFile)
   ' Swap current mouse pointer with new animated cursor :
   hSwapCursor = SetClassLong(Screen.ActiveForm.hWnd, GCL_HCURSOR, hAniCursor)
       
       
End Function

Public Function Restore_Cursor()

   ' Remove animated cursorand replace with saved index :
   
   hSwapCursor = SetClassLong(Screen.ActiveForm.hWnd, GCL_HCURSOR, hSwapCursor)
   
End Function


No meu caso, inseri uma imagem no formulário e na propriedade "Ao Mover Mouse =MouseCursor(32649)

Pronto. cursor de mãozinha

Espero que ajude alguem.