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 da rede.....

    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5120
    Registrado : 20/04/2011

    [Resolvido]Caminho da rede..... Empty Caminho da rede.....

    Mensagem  Silvio 4/4/2013, 15:34

    Prezados, um bom dia para todos.

    Criei um catalogo eletronico para uma empresa aqui na minha cidade. Enquanto estava em um micro apenas esse catalogo rodava 100%.

    Porém, precisei colocar o mesmo em um servidor.

    Nome do servidor: PC3
    local Pasta: C:\Jantin\produtos ---> onde " produtos " é a pasta onde estão as fotos para a consulta.

    Tenho o seguinte código... para abrir as fotos, quando estavam em um micro apenas.
    [color=green]Private Sub cboproduto_AfterUpdate()
    Dim f As String
    f = "[codjantin]=" & Me![cboproduto].Column(0)
    DoCmd.ApplyFilter , f

    If IsNull(Me.localfoto) = False Then

    Me.foto.Picture = CurrentProject.Path & "\produtos\" & Me.localfoto.Value
    Else
    Me.foto.Picture = CurrentProject.Path & "\produtos\" & "SemFoto.gif"
    End If
    Me.NomedoProduto = Me.cboproduto.Column(2)
    Me.PrecodeLista = Me.cboproduto.Column(3)
    End Sub

    Pergunto então....como direcionar os demais micros, para que eles possam ver essa pasta e abrir o catalogo de fotos ?
    Como fazer corretamente o caminho da rede ?

    Grato a todos.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010

    [Resolvido]Caminho da rede..... Empty Re: [Resolvido]Caminho da rede.....

    Mensagem  Avelino Sampaio 4/4/2013, 17:03

    Experimente assim:

    Private Sub cboproduto_AfterUpdate()
    Dim f As String
    dim strLocalPasta as string

    strLocalPasta = "\\pc3\Jantin\produtos\"
    f = "[codjantin]=" & Me![cboproduto].Column(0)
    DoCmd.ApplyFilter , f

    If IsNull(Me.localfoto) = False Then

    Me.foto.Picture = strLocalPasta & Me.localfoto.Value
    Else
    Me.foto.Picture = strLocalPasta & "SemFoto.gif"
    End If
    Me.NomedoProduto = Me.cboproduto.Column(2)
    Me.PrecodeLista = Me.cboproduto.Column(3)
    End Sub


    Pode usar também o IP se este for FIXO

    Exemplo:

    strLocalPasta = "\\192.168.0.200\Jantin\produtos\"

    A pasta Jatim deve se configurada para comportilhamento entre todos os micros envolvidos

    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5120
    Registrado : 20/04/2011

    [Resolvido]Caminho da rede..... Empty Re: [Resolvido]Caminho da rede.....

    Mensagem  Silvio 4/4/2013, 23:49

    Grande Avelino....

    Vou testar essa linha amanhã, pois tive que me ausentar o dia todo de hoje.

    O que eu não fiz, por não saber mesmo, era colocar essa variável: dim strLocalPasta as string.

    Esse era o caminho que eu estava tentando colocar nos micros da empresa

    Me.foto.Picture = "\\pc3\Jantin\\produtos\" & Me.localfoto.Value

    Mas lhe agradeço desde já Grande Avelino.

    Abraços


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5120
    Registrado : 20/04/2011

    [Resolvido]Caminho da rede..... Empty Re: [Resolvido]Caminho da rede.....

    Mensagem  Silvio 5/4/2013, 15:24

    Grande Avelino....

    Funfou !! Pelo nome do servidor deu erro, mas fiz pelo IP que é fixo.

    Grato meu caro amigo !


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."

    Conteúdo patrocinado


    [Resolvido]Caminho da rede..... Empty Re: [Resolvido]Caminho da rede.....

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/11/2024, 22:47