[Resolvido]Implementar login Win em tabela BD

Pessoal, boa noite!!

Tenho um BD que, ao iniciar, busca a informação no login do Win do usuario logado. Gostaria que essa informação fosse exibida no form e depois, implementada automaticamente na tabela.

Como posso fazer isso?

Agradeço desde já a ajuda de vocês!!

utilize o comando Environ("Username")
vc tambem pode utilizar Environ("Computername") e tem varias outras opcoes...

E aí pica pau, tudo na paz? Tem notícias da Clementina? E seus sobrinhos Toquinho e Lasquita? Todos bem?

Bem, só para opinar mesmo: você disse que já captura o user ao abrir o bd, pois bem, então, bastaria colocar um campo com algo como:

Me.NomeDoCampo = VariáveiDeCaptura

ou pode simplesmente usar Me.NomeDoCampo = Environ("Username") como sugerência do colega

Criquio, tudo na paz sim, e com vc?

Ah, a Clementina sumiu e os sobrinhos descobriram a "vida" boa depois do epísódio que eu conto a história de João e Maria!!!!! kkk

Iniciante em BD é uma beleza mesmo.. dificil de entender as coisas.. kkkk mas vamos lá.

Os comandos que utilizo para pegar a informação do login do Win é:


Option Compare Database

Private Declare Function GetUserName Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, ByRef nSize As Long) As Long

Public sUsuarioLogado As String

Public Function GetUser()

Dim Ret As Long
Dim UserName As String
Dim Buffer As String * 25
Ret = GetUserName(Buffer, 25)
UserName = Left$(Buffer, InStr(Buffer, Chr(0)) - 1)
GetUser = (UserName)
End Function
Public Function Exibir_Usuario()
Dim sUsuario As String
Dim oRec As Recordset


sUsuario = GetUser

sUsuarioLogado = ""

Set oRec = CurrentDb.OpenRecordset(Name:="select nome from analistas where matricula = '" & sUsuario & "'", Type:=dbOpenForwardOnly)

If oRec.EOF Then
MsgBox "Usuário não existe"
Else
MsgBox "Usuário logado: " & oRec.Fields(0).Value
sUsuarioLogado = oRec.Fields(0)
End If

oRec.Close

End Function
===================================================

Em um formulário, onde tenho o campo Analista, tenho a seguinte linha de comando:

Private Sub Analista_BeforeUpdate(Cancel As Integer)
Me!Analista.Value = sUsuarioLogado
Me.Refresh
End Sub


Isso está certo? Se não, o que falta ou o que pode ser corrigido?

Agradeço a ajuda novamente!!

Eu costumo usar o Environ. Como ele captura diretamente o usuário,não precisa de função. Basta uma linha:

sUsuario = Environ("Username")

Economiza muitas linhas de código usadas na função GetUsername.

Na verdade, o meu problema está em poder exibir o nome do usuário no formulário e depois gravar na tabela.

Acho que o comando abaixo tem alguma coisa errada... Ou (provavelmente) eu não to entendendo o que vocês estão querendo dizer e provavelmente será necessário desenhar pra mim!! rsrsrs

O comando abaixo é o que eu estou (ou acho que estou) utilizando para exibir a informação no formulário e, consequentemente, gravar na tabela.


Private Sub Analista_BeforeUpdate(Cancel As Integer)
Me!Analista.Value = sUsuarioLogado
Me.Refresh
End Sub

Tente:

Me!Analista.Value = Environ("Username")

Vale lembrar que esse esquema se refere ao usuário logado no Windows. Como o GetUserName tambem se refere à esse usuário, imagino que isso seja o que você precisa. Se for o usuário logado no aplicativo, considerando que o mesmo tenha uma tabela de usuário, nesse caso será necessário buscar o usuário nessa lista da tabela.

Só uma coisa que eu esqueci de informar, esse comando de atualização, eu estou declarando no modo "Antes de Atualizar". Tá certo?

Encontrei esse comando, e informam que ele grava na tabela a informação desejada.

CurrentDb.Execute "Insert Into T_Atualizar_" & Environ("username") & " values(" & rstDoc1!CXQDInicio & ")"

Geralmente, podemos usar ações como essa "Ao carregar" o formulário ou "No atual" do formulário. Preenchendo um campo "Ao carregar" o formulário principal, o nome já fica disponível para todos os formulários, caso o form principal fique sempre aberto.

Resolvi o problema. rsrsrs

Nas propriedades da textbox, aba dados, associei o valor padrão como "=getuser()" e ele está me trazendo a informação.


Agradeço a ajuda Criquio!!!!!

Só esqueceu de colocar o Resolvido. Desta vez eu coloco.

ops... desculpe!!!