[Resolvido]Como incluir o nome de usuário em um campo

Boa tarde Senhores,

Novamente tenho um problema. Em meu sistema tenho a necessidade de armazenar o usuário que efetuou o cadastro.
Em minha tabela tenho o campo usuário_inc, tipo texto. Não estou conseguindo inserir a função =getUsuarioAtual() no evento Ao Atualizar do formulário, não posso colocar na propriedade Fonte de Controle e no valor padrão não está dando certo.

Gostaria de uma ajuda.

Fico no aguardo,

Att.

Moacir

Boa tarde meu amigo! moacirfj

poderia disponibilizar o projeto para melhor ajudar!

Abraços

Olá Danilo,

Segue o projeto. A tabela em questão é a tab_dados_ocor_transgeral e o formulário é o for_tab_dados_ocor_transgeral.
Espero que possa me ajudar.

Att.

Moacir

Bom dia ! Moacir

não veio o anexo!

Me desculpe,

Meu computador está cm problemas na conecção, mas segue.

Moacir

Bom dia meu amigo!

segue em anexo veja se ajuda:

Bom dia Danilo,

Acho que eu não estou entendendo muito bem a sua sugestão, não estou sabendo onde colocar as instruções que apontam para o usuário atual e grava na tabela. Não estou sabendo colocar no evento correto, não sei se é nos eventos do formulário ou do campo. Será que poderia me explicar melhor. Agradeço a força.

Att.

Moacir

Danilo,

Bom dia, consegui a seguinte instrução:

Option Compare Database

Private Declare Function apiGetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Function fOSUserName() As String
'Returns the network login name

Dim lngLen As Long, lngx As Long
Dim strUserName As String

strUserName = String$(254, 0)
lngLen = 255
lngx = apiGetUserName(strUserName, lngLen)
If lngx <> 0 Then
fOSUserName = Left$(strUserName, lngLen - 1)
Else
fOSUserName = ""
End If


End Function

Porém não estou conseguindo saber onde posso fazer a chamada da função.

Poderia me ajudar?

Att.

Moacir

Boa Tarde meu amigo!


eu coloquei sua função em um modulo chamado variaveisGlobais

depois disso adicionei no form principal no evento ao carregar chamando a sua função

e criei também uma variável global, onde posso usar ela em qualquer formulário.

segue projeto:

Olá Danilo,

Funcionou perfeitamente.

Agradeço a ajuda e me desculpe a demora no retorno.

Att.

Moacir