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


2 participantes

    [Resolvido]Caminho do arquivo com espaços

    avatar
    davidramosjunior
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 02/02/2017

    [Resolvido]Caminho do arquivo com espaços Empty [Resolvido]Caminho do arquivo com espaços

    Mensagem  davidramosjunior 2/2/2017, 11:20

    Na empresa que trabalho alguns computadores tem duas versões do Access instaladas, a 2007 e a 2010, existem versões de RunTime e versões Full, estou tendo problemas com alguns bancos que quando são modificados através do 2010, não abrem mais no 2007, porém nem todas as máquinas tem a versão do 2010.

    Por isso estou trabalhando em um código que verifique se a máquina tem a versão Full do Access e permitir que os bancos sejam abertos apenas com a versão 2007.

    Consegui fazer isso normalmente com o código abaixo, porém quando o caminho do arquivo contém espaços ele não consegue abrir o banco.
    O meu problema é fazer com que o Access consiga ler os espaços no caminho do arquivo, se o arquivo estiver na pasta "D:\teste\Banco.accdb" funciona normalmente, porém se estiver na pasta "D:\tes te\Banco.accdb não funciona, apresenta a seguinte mensagem: "O Microsoft Access não pode localizar o arquivo de banco de dados 'D:\tes.mdb'. Verifique se o caminho e o nome do arquivo foram inseridos.

    Código:
    Option Compare Database
    Option Explicit
    Dim Versao As String
    Dim Caminho As String
    Dim Access2007 As String

    Private Sub Form_Load()
    Versao = Application.Version
    Caminho = Application.CurrentProject.FullName
    Access2007 = "C:\Program Files (x86)\Microsoft Office\Office12\MSACCESS.EXE"

           'Verificar se é RunTime
           If SysCmd(acSysCmdRuntime) = False Then
           'Verificar versao do Access
                   If Versao = 140 Then
                   MsgBox "O banco será fechado agora e reaberto na versão do Access 2007!", vbInformation, "Versão do Access"
                   Call Shell(Access2007 & " " & Caminho, 1)
                   DoCmd.Quit acExit
                   End If
           End If
    End Sub
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Caminho do arquivo com espaços Empty Re: [Resolvido]Caminho do arquivo com espaços

    Mensagem  Alvaro Teixeira 6/2/2017, 15:11

    Olá David Júnior, seja Bem-Vindo ao fórum.

    Teste assim:
    Código:
    Call Shell(Access2007 & " " & Chr(34) & Caminho & Chr(34), 1)
    Abraço
    avatar
    davidramosjunior
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 02/02/2017

    [Resolvido]Caminho do arquivo com espaços Empty Re: [Resolvido]Caminho do arquivo com espaços

    Mensagem  davidramosjunior 8/2/2017, 11:51

    Funcionou
    Muito Obrigado!!!
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Caminho do arquivo com espaços Empty Re: [Resolvido]Caminho do arquivo com espaços

    Mensagem  Alvaro Teixeira 8/2/2017, 15:10

    Olá David Júnior, obrigado pelo retorno.
    Nota, não deve alterar o titulo do tópico, coloca-se na primeira mensagem e fica igual em todas. Ja retifiquei.

    Abraço e bons estudos com o MaximoAccess Smile

    Conteúdo patrocinado


    [Resolvido]Caminho do arquivo com espaços Empty Re: [Resolvido]Caminho do arquivo com espaços

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 22:16