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


4 participantes

    [Resolvido]Copiar foto para pasta do BD em razão da rede

    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3857
    Registrado : 21/04/2011

    [Resolvido]Copiar foto para pasta do BD em razão da rede Empty Copiar foto para pasta do BD em razão da rede

    Mensagem  Marcelo David 11/5/2011, 20:58

    Olá, boa tarde!
    E se ao invez de fotos eu queira inserir planilhas do excel, como procederia?
    Grato!
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Copiar foto para pasta do BD em razão da rede Empty Re: [Resolvido]Copiar foto para pasta do BD em razão da rede

    Mensagem  criquio 11/5/2011, 21:01

    Olá Marcelo, dê uma boa olhada nos módulos. Acredito que encontrarás a resposta. Se não encontrar, volte a postar que a gente vê como fica, ok? Mas está simples de perceber e alterar.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3857
    Registrado : 21/04/2011

    [Resolvido]Copiar foto para pasta do BD em razão da rede Empty Re: [Resolvido]Copiar foto para pasta do BD em razão da rede

    Mensagem  Marcelo David 11/5/2011, 21:14

    Ok, vou ver e volto aqui, obrigado!
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3857
    Registrado : 21/04/2011

    [Resolvido]Copiar foto para pasta do BD em razão da rede Empty Re: [Resolvido]Copiar foto para pasta do BD em razão da rede

    Mensagem  Marcelo David 11/5/2011, 23:05

    Olá criquio,
    Analizei o código e pude ver o que alterar para buscar planilhas, porém veio uma outra dúvida. O código copia as imagens para a pasta do projeto (front-end), mas se é em rede, as fotos só serão disponíveis na estação local, e não na pasta onde se encontra o back-end no servidor. Assim, se eu insiro uma foto, outro usuário de uma outra máquina não verá a foto que eu inseri (e cada um terá sua própria pasta de fotos,)... Aqui eu dividi o bd para testar, mas ele só reconhece a pasta "fotos" se estiver na pasta do front-end, o que não é viável, o interessante seria se ele copiasse a foto para a pasta onde está o back-end, no servidor, assim todos que acessar o msm bd terão os mesmos registros na sua máquina local. Pode ser que seja eu que não estou sabendo proceder. Você tem alguma sujestão quanto a isso? Grato
    Gilberto Rocha
    Gilberto Rocha
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1027
    Registrado : 21/01/2010

    [Resolvido]Copiar foto para pasta do BD em razão da rede Empty Re: [Resolvido]Copiar foto para pasta do BD em razão da rede

    Mensagem  Gilberto Rocha 11/5/2011, 23:13

    Amigo, esse exemplo é somente para vc ter o caminho de como fazer.
    Por exemplo, em meu sistema tem uma opção de selecionar a pasta das fotos então vc compartilha a pasta e pronto.

    É só adaptar para o que quer.

    1º Faça uma tabela Config com o Campo PastaFotos
    2º Tenha uma opção no sistema para alterar esse caminho
    3º Salve as fotos sempre buscando essa tabela.

    Meu código esta assim:

    If IsNull(Me.FotoJovem) = False Then
    If MsgBox("Já existe uma foto, deseja apagar e adicionar outra?", vbYesNo, "Aviso de Inclusão") = vbNo Then
    DoCmd.CancelEvent
    Exit Sub
    Else
    Me.FotoJovem = Null
    End If
    End If

    If IsNull(Me.Nome_Jovem) = True Then
    MsgBox "Para inserir a foto é necessário informar o nome do cadastrado", vbInformation, "Aviso"
    DoCmd.CancelEvent
    Me.Nome_Jovem.SetFocus
    Else

    Dim strCaminnhoPasta As String
    'Pasta na tabela onde contem o caminho para salvar
    strCaminnhoPasta = DLookup("[LocalFoto]", "Tabela_configuracoes_Individuais")

    Dim strCaminho As String, strPastaInicial As String
    Dim CopiaSegura As Object
    Dim Caminho As String
    Dim Pasta As String
    Dim CaminhoCompleto As String
    Dim fso As Object
    Dim cam As String
    Pasta = "Fotos"

    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, strCaminnhoPasta & Me.ID_Membro.Value & Me.Nome_Jovem.Value & ".jpg"

    Me.FotoMembro = strCaminnhoPasta & Me.ID_Membro.Value & Me.Nome_Jovem.Value & ".jpg"
    Me.img.Picture = Me.FotoMembro

    End If
    End If ' fim do if que verifica campos Nome_Jovem e ID_Jovem

    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3857
    Registrado : 21/04/2011

    [Resolvido]Copiar foto para pasta do BD em razão da rede Empty Re: [Resolvido]Copiar foto para pasta do BD em razão da rede

    Mensagem  Marcelo David 11/5/2011, 23:21

    Olá, grato pela a dica.
    Vou testar aqui e posto resultado, obrigado.
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3857
    Registrado : 21/04/2011

    [Resolvido]Copiar foto para pasta do BD em razão da rede Empty Re: [Resolvido]Copiar foto para pasta do BD em razão da rede

    Mensagem  Marcelo David 20/5/2011, 20:34

    Boa tarde a todos, gostaria de agradecer a todos que me ajudaram, cosegui fazer o que o topbr me falou!
    Muito obrigado a todos.
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Copiar foto para pasta do BD em razão da rede Empty Re: [Resolvido]Copiar foto para pasta do BD em razão da rede

    Mensagem  vieirasoft 20/5/2011, 20:50

    Obrigado pelo retorno
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3857
    Registrado : 21/04/2011

    [Resolvido]Copiar foto para pasta do BD em razão da rede Empty Re: [Resolvido]Copiar foto para pasta do BD em razão da rede

    Mensagem  Marcelo David 8/7/2011, 04:12

    Abraço


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Copiar foto para pasta do BD em razão da rede Marcel11

    Conteúdo patrocinado


    [Resolvido]Copiar foto para pasta do BD em razão da rede Empty Re: [Resolvido]Copiar foto para pasta do BD em razão da rede

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 07:05