MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Linha de Comando para Salvar documento Word no pendrive?

    Compartilhe

    i-mensa
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 14/04/2016

    [Resolvido]Linha de Comando para Salvar documento Word no pendrive?

    Mensagem  i-mensa em Dom 15 Maio 2016, 15:58

    Este comando está funcionando perfeitamente. Mas ele está salvando as Certidões no disco C:
    Minha pergunta é qual seria o comando para salvar o documento gerado, em invés do C: para ser salvo no pendrive?   .. Se isto for possível, seria possível rodar o BD no pendrive por completo salvando os documentos gerados numa pasta no próprio pendrive.
    Com a linha de comando abaixo, ele roda no pendrive mas está salvando no PC, em
    "C:\Dados OJ\TodasCertidões\"

    'Salva o arquivo gerado
    .ActiveDocument.SaveAs CurrentDbDir & "\Dados OJ\TodasCertidoes\" & Me.DESTINATARIO & " " & Format(Date, "dd-mm-yy") & "_" & Format(Now, "hhmm") & ".doc"

    .ActiveDocument.Close
    MsgBox "Documento salvo com sucesso...", vbInformation
    .Documents.Open CurrentDbDir & "\Dados OJ\TodasCertidoes\" & Me.DESTINATARIO & " " & Format(Date, "dd-mm-yy") & "_" & Format(Now, "hhmm") & ".doc"

    .Visible = True
    .WindowState = wdWindowStateMaximize

    -------
    Fico no aguardo. abraços. Marco

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2300
    Registrado : 14/08/2013

    Re: [Resolvido]Linha de Comando para Salvar documento Word no pendrive?

    Mensagem  FabioPaes em Dom 15 Maio 2016, 16:35


    .ActiveDocument.SaveAs CurrentDbDir & "\Dados OJ\TodasCertidoes\" & Me.DESTINATARIO & " " & Format(Date, "dd-mm-yy") & "_" & Format(Now, "hhmm") & ".doc"

    por

    .ActiveDocument.SaveAs CurrentProject.Path & "\Dados OJ\TodasCertidoes\" & Me.DESTINATARIO & " " & Format(Date, "dd-mm-yy") & "_" & Format(Now, "hhmm") & ".doc"

    CurrentProject.Path Significa que irá Jogar na Pasta que esta o Aplicativo... (Pasta onde esta o Aplicativo\Dados OJ\TodasCertidoes\...)

    Pode trocar o CurrentProject.Path pela unidade do Disco, (.ActiveDocument.SaveAs "D:\Dados OJ\TodasCertidoes\...)

    Agora quanto a salvar no Pendrive e complicado, pois a cada Maquina a Letra do Pendrive muda... Podendo ser F:, G:, H:... então complica...


    Quanto a Rodar direto no Pendrive, devera funcionar normalmente, MAS NÃO RECOMENDO, pois Pen drivers costumam dar problemas mais fácil do que HD, e poderá perder seu Aplicativo...


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    i-mensa
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 14/04/2016

    Re: [Resolvido]Linha de Comando para Salvar documento Word no pendrive?

    Mensagem  i-mensa em Dom 15 Maio 2016, 18:39

    Obrigado pelo retorno.
    Editarei esta linha de comando conforme acima especificado.
    Outra dúvida: para buscar o modelo da certidão a ser gerada, ela está conforme segue:
    ' Abre documento base/modelo
    .Documents.Open ("C:\Dados OJ\NaoApagar\ModeloCertidao.doc")

    ela pode ser buscada no mesmo diretório do BD, com o mesmo indicador acima "Corrente Projeto"?

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2300
    Registrado : 14/08/2013

    Re: [Resolvido]Linha de Comando para Salvar documento Word no pendrive?

    Mensagem  FabioPaes em Dom 15 Maio 2016, 19:42

    Sim... CurrentProject.Path significa, a onde esta o BD... (tradução livre) rererererererere

    .Documents.Open (CurrentProject.Path & "\Dados OJ\NaoApagar\ModeloCertidao.doc")


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    i-mensa
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 14/04/2016

    Re: [Resolvido]Linha de Comando para Salvar documento Word no pendrive?

    Mensagem  i-mensa em Dom 15 Maio 2016, 20:03

    Valeu. Obrigado pela ajuda.
    Resolveu minha dúvida.
    Tal questionamento, foi em razão de que o BD que desenvolvi (como o mínimo conhecimento em Access), com bastante ajuda deste Forum, é feito para os usuários finais, no caso Oficiais de Justiça, que precisam rodar o BD no pendrive, uma vez que tanto em casa como o Forum, utilizam do BD, e suas certidões devem ser geradas com o propósito principal de serem impressas, não sendo prioritário salvar estas certidões. Mas tens alguns que sempre salvam, até mesmo para terem um retorno, do que aconteceu no cumprimento de mandados para o mesmo destinatário (as partes).
    Do jeito que estava, eles só poderiam utilizar no PC que tivesse as pastas previamente criadas. e pelo fato de usarem qualquer computador que esteja disponível no Forum, ficaria difícil terem certidões espalhadas em todos os PCs.
    mais uma vez. Obrigado e bom final de semana. E a proposito eu sou um dos que usam este BD, nas horas vagas aquela é minha outra profissão.

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2300
    Registrado : 14/08/2013

    Re: [Resolvido]Linha de Comando para Salvar documento Word no pendrive?

    Mensagem  FabioPaes em Dom 15 Maio 2016, 21:08

    Que bom que chegamos so um resultado que vc esperava... Nesse seu caso e mais aconselhado mesmo dessa forma, fica mais versatil, podeno usuario mover a pasta com BD pra outo lugar e tudo continuara funcionando.


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    i-mensa
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 14/04/2016

    Re: [Resolvido]Linha de Comando para Salvar documento Word no pendrive?

    Mensagem  i-mensa em Dom 15 Maio 2016, 22:21

    Não querendo abusar, mas já abusando.
    Surgiu um imprevisto, com os comandos anteriores, eu tinha um botão para abrir o local das Certidões salvas, como abaixo:

    Private Sub AbreLocalCertidoes_Click()
    Shell "C:\WINDOWS\explorer.exe """ & "\Dados OJ\TodasCertidoes\" & "", vbNormalFocus
    End Sub

    Agora, que eles estariam sendo salvas no pendrive na mesma pasta \Dados OJ\TodasCertidões\

    tem como abrir pelo comando de botão? qual seria o caminho, prevendo que a letra do disco Pendrive é variável de máquina para máquina


    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2300
    Registrado : 14/08/2013

    Re: [Resolvido]Linha de Comando para Salvar documento Word no pendrive?

    Mensagem  FabioPaes em Dom 15 Maio 2016, 22:53

    Olha, assim funciona...
    No Click do botao coloque:

    Dim objWord As Object
    Dim doc As Object
    Set objWord = CreateObject("Word.Application")
    Set doc = objWord.Documents.Open(CurrentProject.Path & "\Nova Pasta\1.docx")
    objWord.Visible = True



    Mas tente adaptar o Seu, pois sao menos Linhas... Se nao der certo use este que postei.


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2300
    Registrado : 14/08/2013

    Re: [Resolvido]Linha de Comando para Salvar documento Word no pendrive?

    Mensagem  FabioPaes em Dom 15 Maio 2016, 23:25

    Acabei postando foi o comando pra abrir o Arquivo...
    Pra abrir a pasta
    Shell "C:\WINDOWS\explorer.exe """ & CurrentProject.Path & "\Dados OJ\TodasCertidoes\" & "", vbNormalFocus


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    i-mensa
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 14/04/2016

    Re: [Resolvido]Linha de Comando para Salvar documento Word no pendrive?

    Mensagem  i-mensa em Seg 16 Maio 2016, 00:04

    Funcionou.... tava quebrando a cabeça...
    Comecei no Access na data de meu cadastro aqui.
    Não tinha percebido que o outro comando não era o especifico para meu pretexto.
    Este comando que passastes agora, funcionou perfeitamente.
    Agradeço...agradeço...
    Ótima semana.

      Data/hora atual: Sab 03 Dez 2016, 19:38