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


3 participantes

    Erro ao abrir para guardar caminho de pasta

    avatar
    emame
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Portugal
    Mensagens : 73
    Registrado : 05/11/2011

    Erro ao abrir para guardar caminho de pasta Empty Erro ao abrir para guardar caminho de pasta

    Mensagem  emame 14/5/2024, 12:01

    Olá a todos,

    Num projeto mais antigo tinha este código a trabalhar, estava numa base de dados de contabilidade e servia para anexar o caminho do documento digitalizado, assim o utilizador quando precisava consulta o documento clicava no botão e abria o documento.
    Entretanto deixei de trabalhar com essa BD e hoje necessito deste código para implementar noutro projeto e lembrei-me de o recuperar, no entanto tanto na base de dados original como no novo projeto dá logo erro, diz:

    Complie error:
    Sub or function not defned

    e aponta para:
    strDocPath = GetOpenFile(Me.DocPath)

    Alguém faz ideia de como resolver?

    Obrigado


    Código:
    Private Sub Command4_Click()

    Dim strDocPath As Variant

    If Me.DocPath > "" Then
         strDocPath = GetOpenFile(Me.DocPath)
    Else
       strDocPath = GetOpenFile(Me.txtFolder)
    End If

    If strDocPath > "" Then
       Me.DocPath = Replace(strDocPath, Me.txtFolder, "%dir%")
    End If


    End Sub

    Private Sub Command5_Click()

        
    Dim retval As Variant

    If Me.DocPath > "" Then

        retval = bimShellOpenFile(Replace(Me.DocPath, "%dir%", Me.txtFolder), vbNormalFocus) ' vbNormalFocus  True
    Else
       MsgBox "There is no fiel to view."

    End If


    End Sub
    Private Sub cmdClose_Click()
    On Error GoTo Err_cmdClose_Click


        DoCmd.Close

    Exit_cmdClose_Click:
        Exit Sub

    Err_cmdClose_Click:
        MsgBox Err.Description
        Resume Exit_cmdClose_Click
        
    End Sub

    Private Sub Form_Load()


    Me.txtFolder = CurrentProject.Path


    End Sub
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7922
    Registrado : 15/03/2013

    Erro ao abrir para guardar caminho de pasta Empty Re: Erro ao abrir para guardar caminho de pasta

    Mensagem  Alvaro Teixeira 14/5/2024, 18:15

    Olá Emame,

    Verifique no projeto antigo se não tem um módulo, a sub ou função com o nome "GetOpenFile"

    Abraço
    tauron
    tauron
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1406
    Registrado : 07/12/2011

    Erro ao abrir para guardar caminho de pasta Empty Re: Erro ao abrir para guardar caminho de pasta

    Mensagem  tauron 14/5/2024, 23:31

    Tente assim:


    #If VBA7 Then

    Private Declare PtrSafe Function GetOpenFile Lib "user32" (ByVal hwnd As Long) As Long
    Dim dwReturn As Long

    #Else

    Private Declare Function GetOpenFile Lib "user32" (ByVal hwnd As Long) As Long
    Dim dwReturn As Long

    Conteúdo patrocinado


    Erro ao abrir para guardar caminho de pasta Empty Re: Erro ao abrir para guardar caminho de pasta

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 23/5/2024, 00:55