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