[Resolvido]Alterar caminho em tabela de acordo com o usuário logado no windows

C:\Users\Cis Mineiros\AppData\Roaming\Microsoft\Windows\Libraries\Documents.library-ms

1 - Gostaria de saber se tem como alterar apenas o usuario nesta linha de acordo com o usuario logado no windows...
2 - É possivel um codigo que acrescente mais caminhos como este ao clicar de um botão?
assim: se eu quero inserir determinada pasta na tabela, ou drive (c:\, D:\) conforme existirem no PC, eu clico no botao, abre uma caixa de dialogo, escolho o cmainho e ele é inserido em nova linha na tabela..Se puderem ajudar, fico grato

Saudações

Dim strUser As String
strUser = VBA.Environ("UserName")
"C:\Users\" & strUser & "\AppData\Roaming\Microsoft\Windows\Libraries\Documents.library-ms"

Ricardo.. Bom dia..
Esse caminho esta na tabela...

esse codigo eu coloco onde?

Nome da Tabela: tbl_Explorer

Grato

Coloquei o caminho na tabela...

e o codigo no evento ao abrir do form..

Dim strUser As String
strUser = VBA.Environ("UserName")


Nao deu certo...
a caminho aparece como esta na tabela.. não substitui o StrUser pelo usuário

Estou usando a seguinte lógica..

Clico em uma listBox e ela envia o caminho para uma caixa texto que fara a pesquisa...
So que preciso que mude conforme o usuario logado..
Quando clico na lstBox que faz o envio, ela envia o caminho da tabela assim:

C:\Users\"& strUser &"\AppData\Roaming\Microsoft\Windows\Libraries\
E teria que ser substituido pelo usuario
Saudações



Saudações

Soluções?

Private Sub lista_Click()
Dim strUser As String
Dim x, y, z, w As String

strUser = VBA.Environ("UserName")

x = Left(Me.lista, 9)
y = strUser
z = Right(Me.lista, 45)
w = x & y & z
Me.caixatexto.lista = w

End Sub

Me parece que a dificuldade do amigo está em gravar os dados na tabela. Seria isso mesmo? Se for, talvez seja o caso de se usar RecordSet ou CurrentDb.Execute ao abrir o aplicativo.

Funciona assim prezado Criquio..

A tabela ja tem caminhos gravados...
o que ocorre.. se entrar no windows como outro usuario, o caminho nao funcionara

C:\Users\USUARIO1\AppData\Roaming\Microsoft\Windows\Libraries\

Esse caminho so funcionará para o usuário1

Entao preciso que na realidade o codigo permita alterar na tabela toda vez que ao fazer o logoff, reiniciar com outro usuario, que a mesma linha funcione.. sem precisar gravar nova linha

O Amigo Ricardo me deu essa sugestão.. mas não consegui implanta-la

C:\Users\"& strUser &"\AppData\Roaming\Microsoft\Windows\Libraries\

Tente algo assim:

Dim LogUser As String, LogCaminho As String

LogUser = Environ("UserName")
LogCaminho = "C:\Users\" & LogUser & "\AppData\Roaming\Microsoft\Windows\Libraries\"

If DLookup("CampoCaminho", "tabelaCaminho") <> LogCaminho Then
CurrentDb.Execute "UPDATE tabelaCaminho SET CampoCaminho='" & LogCaminho & "';"
Else

Prezado Ricardo, não consegui...
Eis o código que pega o registro da tabela e o colca na caixa texto

Private Sub lbxExplorer_Click()
Dim Linha As Integer

Selecionado = True

Linha = Me.lbxExplorer.ListIndex
If Selecionado = True Then

Me.txtVínculos = Me.lbxExplorer.Column(2, Linha)
Me.txtVínculos.SetFocus
Me!CtlActiveX1.Navigate Me!txtVínculosx = Left(Me.lbxExplorer, 9)
Me.WebBrowser0.Visible = False
End If


End Sub

Amigão, são varias linhas que as seleciono em uma LstBox (LInha de origem na tabela com os referidos caminhos)

Veja o código ai acima..

Grato...

Criquio.. coloquei oodigo no evento ao abrir do form...

so qyue modificou todas as linhas para uma so.. todas iguais

São várias linhas então? Vários endereços na tabela? Tem uma chave primária ou alguma coisa que o identifique? Bem, de qualquer forma, podemos tentar então assim:

Dim LogUser As String, LogCaminho As String

LogUser = Environ("UserName")
LogCaminho = "C:\Users\" & LogUser & "\AppData\Roaming\Microsoft\Windows\Libraries\"

If IsNull(DLookup("CampoCaminho", "tabelaCaminho", "CampoCaminho='" & LogCaminho & "'")) Then
CurrentDb.Execute "INSERT INTO tabelaCaminho(CampoCaminho) Values(""" & LogCaminho & """);"
Else
Exit Sub
End If

Veja ai amigão..

http://dl.dropbox.com/u/26441349/tbl.docx

Então para cada usuário serão geradas 8 linhas na tabela?

Nao diria geradas... e sim alteradas...

As linhas sao estas que te enviei...

Seria editada apenas o usuario...
se caso faça logoff e troque de user..

Espero que tenha entendido

Grato

Ah, agora entendi. Você pode usar o exemplo do UPDATE que passei acima, usando um para cada linha e condicionando ao Código, ou elaborar uma instrução para detectar o que está entre a segunda e a terceira barras invertidas e substituir pelo usuário atual.

resumindo......você não entendeu o que lhe passei acima !


não necessita de fazer qualquer update na tabela, basta estar lá o caminho que no pressionar da listbox altera para o user actual na caixa de texto


Private Sub lbxExplorer_Click()
Dim Linha As Integer
Dim strUser As String
Dim x, y, z, w As String

strUser = VBA.Environ("UserName")

Selecionado = True

Linha = Me.lbxExplorer.ListIndex
If Selecionado = True Then
x = Left(Me.lbxExplorer.Column(2, Linha), 9)
y = strUser
z = Right(Me.lbxExplorer.Column(2, Linha), 45)
w = x & y & z

Me.txtVínculos.Value = w
Me.txtVínculos.SetFocus
Me!CtlActiveX1.Navigate Me!txtVínculos
Me.WebBrowser0.Visible = False
End If
End Sub

Entendi Amigo Ricardo
Apliquei o código
mas na txtVículos apareceu assim:

C:\Users\Administradorrosoft\Windows\Libraries\Documents.library-ms

Funcionou apenas para a linha:

C:\Users\Administrador\AppData\Roaming\Microsoft\Windows\Libraries\

Para as demais ele da distorção por a linha ter mais caracteres
são vários caminhos copm diferenctes tamanhos..

Saudações

Amigo, qual uso você precisa fazer dessas informações? Talvez possa ser feito de maneira mais simples e sem a necessidade de tabela.

Criqui baixe o exemplo do navegador que coloquei ontem no repositorio,

na listBox de baixo tem os nomes
Biblioteca
Video etc..

Quando o usuario clica envia o caminho para uma caixa texto que chama o webBrowser para visualizar as pastas
Semelhante ao explorer...

Ocorre qua na tabela o caminho para a biblioteca condiz ä biblioteca do usuario e não a pública

Assim se mudar o usuario do windows ele abrira a biblioteca condizente com o seu user name...

Grato

Que tal preencher essa listbox em tempo de execução ao invés de buscar em uma tabela os dados? Dessa forma, o usuário pode ser alterado no momento que abrir o formulário sem ter que ficar nada registrado.

Seria uma otima ídeia.. se eu soubesse como fazer.. rsrs

pode ajudar?

Vamos supor que sua listbox se chama lstCaminhos. Você pode colocar no evento "Ao carregar" do seu formulário:

Me.lstCaminhos.RowSourceType = "value list"

Me.lstCaminhos.AddItem ("Bilbioteca" & ";" & "C:\Users\" & Environ("UserName") & "\AppData\Roaming\Microsoft\Windows\Libraries\")
Me.lstCaminhos.AddItem ("Meus Documentos" & ";" & "C:\Users\" & Environ("UserName") & "\AppData\Roaming\Microsoft\Windows\Libraries\Documents.library-ms")
Me.lstCaminhos.AddItem ("Imagens" & ";" & "C:\Users\" & Environ("UserName") & "\AppData\Roaming\Microsoft\Windows\Libraries\Pictures.library-ms")
Me.lstCaminhos.AddItem ("Músicas" & ";" & "C:\Users\" & Environ("UserName") & "\AppData\Roaming\Microsoft\Windows\Libraries\Music.library-ms")
Me.lstCaminhos.AddItem ("Vídeos" & ";" & "C:\Users\" & Environ("UserName") & "\AppData\Roaming\Microsoft\Windows\Libraries\Videos.library-ms")
Me.lstCaminhos.AddItem ("Downloads" & ";" & "C:\Users\" & Environ("UserName") & "\Downloads")
Me.lstCaminhos.AddItem ("Área de Trabalho" & ";" & "C:\Users\" & Environ("UserName") & "\Desktop")
Me.lstCaminhos.AddItem ("Usuário" & ";" & "C:\Users\")

Veja um exemplo que acabei de preparar: http://dl.dropbox.com/u/5454503/PreencheListBox.mdb

Note que tem duas colunas sendo exibidas. Você pode esconder a segunda coluna colocando a largura dela como 0 nas propriedades da listbox e colocar no evento "Ao clicar" ou "Ao clicar duas vezes", a ação desejada, mandando buscar a informação na Column(1)

Como já diria o grande sábio Vieira..

PEPANP!

Saudações

Prezado, tomei a liberdade de postar o seu exemplo no repositório, colocado os devidos creditos a você..

Obrigado Criquio
Obrigado Ricardo


Saudações

Valeu. Ficamos gratos por ter funfado