MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


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

    avatar
    Daluque
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 217
    Registrado : 06/03/2012

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

    Mensagem  Daluque 26/10/2022, 18:02

    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.


    .................................................................................
    Daluque

    Office 2003
    avatar
    Daluque
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 217
    Registrado : 06/03/2012

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

    Mensagem  Daluque 27/10/2022, 13:44

    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.


    .................................................................................
    Daluque

    Office 2003

      Data/hora atual: 28/3/2024, 23:47