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

    Endereçamento para internet

    avatar
    Josealdo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 193
    Registrado : 14/12/2012

    Endereçamento para internet Empty Endereçamento para internet

    Mensagem  Josealdo 22/7/2022, 04:57

    Olá. Estou tentando criar um endereçamento de uma pasta na internet para que via o banco de dados ele grave uma foto na pasta contida no endereço da internet no entanto não estou conseguindo.

    Exemplo:
    Criei uma variavel: StrCaminho = "https://WWW.endereço" mas não funciona, alguem poderia me auxiliar se a sintaxe ta correta para direcionamento à internet? Por favor.

    Obrigado
    avatar
    osmarnadalon
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 05/04/2013

    Endereçamento para internet Empty Re: Endereçamento para internet

    Mensagem  osmarnadalon 22/7/2022, 15:28

    Ola, Bom dia

    Bom, teria jeito sim, e o jeito mais facil é Mapear unidade de rede e não com código VBA.

    Fazer isso com código VBA não vou poder te ajudar, tomara que alguém ajude voce aqui, mais Mapear unidade sim.



    01 - Mapeando unidade de rede
    Endereçamento para internet Mapear10



    02 - Conecte-se ao site HTTP ou FTP
    Endereçamento para internet Mapear11



    03 - Configure sua conexão, passo abaixo
    Endereçamento para internet Mapear12
    Endereçamento para internet Mapear13
    Endereçamento para internet Mapear14



    04 - Entre no seu Mapeamento e digite a senha caso for solicitado, (ira pedir somente uma vez, caso for necessário), vai ficar conforme abaixo
    Endereçamento para internet Mapear15



    05 - Agora só usar a pasta local conforme foto abaixo para fazer upload de suas imagens na net.
    Endereçamento para internet Mapear16


    Fico a disposição
    avatar
    Josealdo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 193
    Registrado : 14/12/2012

    Endereçamento para internet Empty Re: Endereçamento para internet

    Mensagem  Josealdo 22/7/2022, 15:44

    @osmarnadalon , em primeiro obrigado pela tentativa de ajuda. Esse metodo eu já havia tentando ele não funciona. Vou explicar pq ele não funciona. Ele cria uma rede ligado à sua máquina, os outros usuarios só tem acesso somente se a sua máquina estiver ligada. Caso contrario não.
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4712
    Registrado : 06/11/2009

    Endereçamento para internet Empty Re: Endereçamento para internet

    Mensagem  Assis 22/7/2022, 15:50

    Private Sub SeuBotao_Click()
    Application.FollowHyperlink Address:="http://www.google.pt"
    End Sub


    .................................................................................
    *** Só sei que nada sei ***

    Josealdo gosta desta mensagem

    avatar
    Josealdo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 193
    Registrado : 14/12/2012

    Endereçamento para internet Empty Re: Endereçamento para internet

    Mensagem  Josealdo 22/7/2022, 16:20

    Olá  @Assis, primeiramente muito grato pela ajuda.   a sintaxe ensinada por você funciona já testei.   Estou tendo dificuldade agora é em passar o comando informando para ele gravar a imangem no link informado.    
    Abaixo não coloquei o codigo completo, coloquei apenas a parte onde esta ocorrendo o erro(em dastque em vermelho).  
    Você poderia me auxiliar na sintaxe correta do comando? Por favor
     
      strPastaInicial = "C:\Meus Documentos"
      strCaminho = Buscar(Me.hwnd, "Inserir foto", strPastaInicial, _
      "Arquivos gráficos (*.bmp; *.gif; *.jpg)" & vbNullChar & "*.bmp; *.gif; *.jpg")
      If Len(strCaminho) > 0 Then
     
     ' Faz a cópia do arquivo para a pasta do bd e sub pasta Fotos renomeando para jpg
     Set CopiaSegura = CreateObject("Scripting.FileSystemObject")

     CopiaSegura.CopyFile strCaminho, Application.FollowHyperlink Address:= "https://endereço do site.sharepoint.com/sites/66524-213431/" & Me.nrDocumento.value & " " & Me.nrDocumento.value & ".jpg"
    ' Me.Imagem3.Picture = Me.Foto_Cliente

       
       End If
    End If


    Explicando melhor o que estou precisando. Salvar a imagem em uma pasta que se encontra na internet (sharepoint),  o Link que o Assis ensionou ta funcionando quando usado separadamente ele vai até o site.

    As linhas de comando no código estão fazendo a busca da imagem e tambem renomeando.   Só não estou conseguindo fazer ele gravar o aquivo na pasta destino.

    Se algum colega puder auxiliar, agradeço.


    Última edição por Josealdo em 22/7/2022, 19:28, editado 1 vez(es)
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4712
    Registrado : 06/11/2009

    Endereçamento para internet Empty Re: Endereçamento para internet

    Mensagem  Assis 22/7/2022, 19:24

    Boa tarde

    Eu não , mas acho que alguém vai ajuda ...

    Boa sorte


    .................................................................................
    *** Só sei que nada sei ***

    Josealdo gosta desta mensagem

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4712
    Registrado : 06/11/2009

    Endereçamento para internet Empty Re: Endereçamento para internet

    Mensagem  Assis 22/7/2022, 20:23



    .................................................................................
    *** Só sei que nada sei ***

    Josealdo gosta desta mensagem

    avatar
    Josealdo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 193
    Registrado : 14/12/2012

    Endereçamento para internet Empty Re: Endereçamento para internet

    Mensagem  Josealdo 23/7/2022, 00:48

    @Assis, muito grato no seu auxilio. Eu li o topico e objetivo dele é bem diferente do meu.  Mas tentei aplicar conforme ele aplicou o endereço em uma variavel ficando assim o codigo conforme abaixo. Mas infelizmente não funcionou.

    If IsNull(Me.nrDocumento) = True Then
        MsgBox "Para inserir a foto pe necessário informar o nome do cliente", vbInformation, "Aviso"
        DoCmd.CancelEvent
        Me.nrDocumento.SetFocus
      Else
     
      Dim strCaminho As String, strPastaInicial As String
      Dim CopiaSegura As Object
      Dim Caminho As String
      Dim fso As Object
      Dim cam As String
      Dim strPath As String
     
     
      strPath = "https://endereço da internet FolderCTID=0x012000A774038500C7034EA680DE86054AE2B7&id=%2Fpersonal%2Fjzgn4s%5Flaam%5Fcorp%5Fgm%5Fcom%2FDocuments%2FBase%20de%20Dados%20SAC%2D10%2FRASP%20V8%2FFOTO"
     
      strCaminho = Buscar(Me.hwnd, "Inserir foto", strPastaInicial, _
      "Arquivos gráficos (*.bmp; *.gif; *.jpg)" & vbNullChar & "*.bmp; *.gif; *.jpg")
      If Len(strCaminho) > 0 Then
     
     ' Faz a cópia do arquivo para a pasta do bd e sub pasta Fotos renomeando para jpg
     Set CopiaSegura = CreateObject("Scripting.FileSystemObject")
     CopiaSegura.CopyFile strCaminho, strPath & Me.nrDocumento.value & " " & Me.nrDocumento.value & ".jpg"
     Me.Foto_Cliente = strPath & Me.nrDocumento.value & " " & Me.nrDocumento + "-B" & ".jpg"
     Me.Imagem3.Picture = Me.Foto_Cliente

       
       End If
    End If

    End Sub



    Olá, algum colega teria alguma sugestão que possa me auxiliar. De como salvar a imagem em uma pasta na internet(one drive ou sharepoint). Por favor.

      Data/hora atual: 24/9/2022, 20:49