[Resolvido]Campo do form como hiperlink

Boa Noite, novamente solicito a colaboração do colegas.

Através da busca no forum, achei esse código do JPaulo

Dim fso As Object
'habilite a referencia Microsoft Scripting Runtime
'By JPaulo ® Maximo Access
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.folderexists("C:\Programas\EasyAdvo2.0\" & Me.NProcesso.Value) Then ' verifica se já existe a pasta
MsgBox "A pasta já existe"
Else
MkDir "C:\Programas\EasyAdvo2.0\" & Me.NProcesso.Value ' se não existir cria
End If
Me.Pasta.Value = "C:\Programas\EasyAdvo2.0\" & Me.NProcesso.Value
Me.Pasta.Requery
end sub

Funciona perfeitamente. cria a pasta com o nome do conteúdo do campo "me.Processo".

o que estou tentando e não estou conseguindo é que esse valor do campo seja um hyperlink para a pasta criada.
fiz um campo na tabela e coloquei como hiperlink, mas quando no form cria o conteúdo e é clicado, só abre a ferramenta "WEB" e não leva para a pasta diretamente. como posso fazer ??

obrigado

Fiz isso e não funcionou.
campo na tabela definido como hiperlink
campo no form como hiperlink = sim

nada.

Ola,

Eu tambem tentei abrir a pasta usando o campo do hyperlink e nao funcionou.

Alguma dica?

pasta (is hyperlink = yes)

Obrigado!

Então é isso. realmente a idéia é criar a pasta e ir para ela.
não para um arquivo.
vou então ver outra forma de abrir a pasta recem criada.

se vc tiver alguma dica, por favor .

abraço.

Para resolver de vez o seu problema;

No evento VBA ao pressionar da sua caixa de texto Pasta:


Private Sub Pasta_Click()
Application.FollowHyperlink Me.Pasta.Value
End Sub

Pode ainda personalizar o código existente:


Private Sub SeuBotão_Click()
Dim fso As Object
'habilite a referencia Microsoft Scripting Runtime
'By JPaulo ® Maximo Access
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.folderexists("C:\Temp\EasyAdvo2.0\" & Me.NProcesso.Value) Then ' verifica se já existe a pasta
If MsgBox("A pasta já existe, deseja abrir-la ?", vbOKCancel + vbCritical, "Pasta") = vbOK Then
' se responder Ok, abre a pasta que já existe
Application.FollowHyperlink Me.Pasta.Value
Else
Exit Sub
End If
Else
MkDir "C:\Temp\EasyAdvo2.0\" & Me.NProcesso.Value ' se não existir cria
End If
Me.Pasta.Value = "C:\Temp\EasyAdvo2.0\" & Me.NProcesso.Value
Me.Pasta.Requery
End Sub


Private Sub Pasta_Click()
Application.FollowHyperlink Me.Pasta.Value
End Sub

É agora acho que está resolvido. só terei que optar por qual via.

Código de criação da pasta do JPaulo, funcionando:
Private Sub Comando20_Click()
Dim fso As Object

Set fso = CreateObject("Scripting.FilesystemObject")
If fso.FolderExists("Y:\Sis\" & Me.CodigoPre.Value) Then
MsgBox "A Pasta já existe"
Else
MkDir "Y:\Sis\" & Me.CodigoPre.Value
End If
Me.Pasta.Value = "Y:\Sis\" & Me.CodigoPre.Value
Me.Pasta.Requery

End Sub

-------
Código para abrir a pasta, tambem funcionando:

Private Sub Comando23_Click()
Dim rota As String
rota = Pasta
If IsNull(Me!Pasta) Then
MsgBox "Falta a pasta", vbCritical
Else
Shell "Explorer " & rota, vbMaximizedFocus
End If
End Sub

--------
Agora esse do JPaulo:

Private Sub Pasta_DblClick(Cancel As Integer)
Application.FollowHyperlink Me.Pasta.Value
End Sub

Jpaulo, muito obrigado pelos dois códigos.
eu já estava pronto para colocar a solução que havia chegado quando ví sua resposta.

só tem um detalhe: se voce olhar no meu texto vai ver "Y:\Sis" é uma unidade mapeada na rede.
o valor do meu campo "pasta" fica: Y:\Sis\AT-0999 (por exemplo).

O código "Private Sub Comando23_Click()
funciona como se eu tivesse ido em iniciar, meu computador, unidade mapeada, pasta (Y:\Sis\AT-0999)

já o código "Private Sub Pasta_DblClick(Cancel As Integer)
funciona com o seguinte caminho : \\Operacoes\pastas$\Sis\AT-0999

Veja, que só estou expondo as diferenças e não questionando o resultado.
as duas formas funcionam e atendem definitivamente meus propósitos. é que talvez voce possa esclarecer as diferenças e tambem ficam as duas formas para alguem que precisar.


Norberto e JPaulo = Um abraço.

Continuo necessitando da ajuda dos srs. na seguinte questão:
1. tendo 2 campos e seguintes situações:
codPre=ok e CodEfetiva=""
codPre=ok e CodEfetiva=ok (pode vir a receber valor)
CodPre="" e CodEfetiva=ok (um caso que não passa pelo Pre)

precisava de uma ajuda para fazer, talvez um Select Case para essas situações.

MkDir com codpre, funciona
MkDir com codpre & codefetiva, funciona com os campos já preenchidos
MkDir com codefetiva, funciona

preciso definir as alternativas na criação das pastas diante destas situações e
tambem para a possibilidade de usar o comando REN (renomear) para o caso da situação em que o campo CodEfetiva é preenchido posteriormente.

agradeço e aguardo comentários

Amigos, consegui criar e alterar da forma esperada.
Gostaria de um help para dar uma arrumada nos códigos. ficou assim:

Botão 1
Private Sub Comando20_Click()
Dim fso As Object

Set fso = CreateObject("Scripting.FilesystemObject")
If fso.FolderExists("Y:\Sis\Casos\" & Me.CodigoPre.Value & " " & Me.CodEfetiva.Value) Then
Exit Sub
Else
MkDir "Y:\Sis\Casos\" & Me.CodigoPre.Value & " " & Me.CodEfetiva.Value
End If
Me.Pasta.Value = "Y:\Sis\Casos\" & Me.CodigoPre.Value & " " & Me.CodEfetiva.Value
Me.Pasta.Requery

End Sub

-----
Botão 2
Private Sub Comando25_Click()
Dim fsold As Object
Dim oldf As String
Dim newf As String
oldf = "Y:\Sis\Casos\" & Me.CodigoPre.Value
newf = "Y:\Sis\Casos\" & Me.CodigoPre.Value & " " & Me.CodEfetiva.Value

Set fsold = CreateObject("Scripting.FileSystemObject")
If fsold.FolderExists("Y:\Sis\Casos\" & Me.CodigoPre.Value) Then
Name oldf As newf
End If
Me.Pasta.Value = "Y:\Sis\Casos\" & Me.CodigoPre.Value & " " & Me.CodEfetiva.Value
Me.Pasta.Requery
End Sub


Queria ver a possibilidade de unificar os códigos e se seria possivel em um evento que não necessite botões.

agradeço e aguardo

E aí gente. passei o dia de hoje tentando e pesquisando.
não consegui encontrar uma forma de unificar os dois códigos.

alguem se habilita a me dar um help. ?

Boa noite colega Danilo, tudo bem.
por gentileza veja este exemplo na aba Itens de Lazer.

http://speedy.sh/6vSGk/ExemploHiperlink.rar

Olá cafpr. muito obrigado pelo retorno.

bem o problema do hiperlink já estava solucionado conforme acima.
essa noite acabei de resolver a questão de juntar os códigos que estavam funcionando.
fiz uma sequencia de If, elseif, else e nos primeiros testes, funcionou.

então obrigado a todos.

Bom dia Danilo, tudo bem....Muito bom ter conseguido "juntar os codigos" e principalmente estudando.... então poste o exemplo para mais colegas apreenderem. O forum lhe agradece

Pediu tá pedido.

segue exemplo

Obrigado

O forum lhe agradece pelo retorno e exxemplo