[Resolvido]Ajuda para Adptar Quem Introduziu/Quem Alterou ao Maestro

Boa Noite Amigos do Forum.

Pesquisei muitos exemplos e consegui adaptar parte do (Quem Introzuiu/Quem Alterou) no meu BD.

Não estou conseguindo adptar a Parte que grava o Utilizador.

Como faço para aparecer na tabela Log (Utilizador) o usuário logado. No exemplo do Mestre JPaulo aparece o usuário do Sistema Operacional.

Gostaria que aparecesse o usuário logado no BD.

Estou usando o Projeto Maestro do Mestre Avelino.

Os demais dados já consegui adaptar.

Access 2007.

No Aguardo.

Olá

No Maestro, quando se loga é passado o ID e o nome do usuário para variável global de nome login.

me!nomeusuario = trim(login.usuario)
me!numeroexclusivo = login.id

Poderá utilizar em qualquer parte do VBA a variável login

Sucesso!

Olá

Amigo Avelino

Não estou sabendo adaptar a sua dica, para aparecer o usuário logado no campo Utilizador da tabela Log.


No aguardo.

Amigo Avelino

Depois de olhar com mais atenção a váriável global Logim, conseguir achar a solução.

Ficou assim.: No modulo ModUtiliador alterei a seguinte linha GetUserName_TSB = Left$(strBuf, lngLen - 1) para GetUserName_TSB = trim(login.usuario).

Alterei também no evento dos botões Salvar e Excluir: strUser = GetUserName_TSB passsou para strUser = Trim(login.Usuario).

Obrigado pela Dica.

Sucesso.

boa tarde amigos,
o meu BD tem usuarios cadastrados.
eu tenho uma tabela TblLog
campos Id_Log, Usuario, Data, Evento

tenho 2 formulários: FInserirPedidos e FFinanceiro

gostaria que quando um registro ou uma alteração seja feita em um dos dois Form seja registrado o evento na TblLog. preenchendo os 3 campos.

muito complexo fazer um codigo para isso?

pessoal eu alterei o codigo para meu form. mas nao acontece nada na TblLog. e nao apresenta erro quando uso o form, tipo faço alteraçao e clico no botal salvar ok se clico no botao novo ele abre nova tela cadastro tudo certinho.
eu criei o ModUtilizador ficou assim:

Declare Function TSB_API_GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Public Function GetUserName_TSB() As String

Dim lngLen As Long
Dim strBuf As String

Const MaxUserName = 255

strBuf = Space(MaxUserName)

lngLen = MaxUserName

If CBool(TSB_API_GetUserName(strBuf, lngLen)) Then
GetUserName_TSB = Trim(login.usuario)
Else
GetUserName_TSB = ""
End If

End Function

nesse codigo preciso por nome de algum campo do meu BD?

no botao salvar eu tenho a instruçao assim:

Private Sub Command8_Click()
Dim strChekaDiferente As Boolean
Dim strSQL As String
Dim ctl As Control
Dim strUser As String

On Error Resume Next
strChekaDiferente = False
strUser = GetUserName_TSB = Trim(login.usuario)
If Me.NewRecord Then
strChekaDiferente = True

strSQL = "INSERT INTO TblLog (Utilizador, LogData, NomeForm, NomeCampo, ValorAntigo, ValorAtual, Status) Values('" & getUsuarioAtual = strUsuarioAtual & "', Now(),'" & Me.Form.Name & "','" & Me.COMPRA & "','" & Me.VENDA & "','" & Me.ID_STATUSPEDIDO & "','" & "Novo Registro" & "')"
DoCmd.RunSQL strSQL

Else
strChekaDiferente = False

For Each ctl In Me.Controls
Select Case ctl.ControlType
Case acTextBox, acComboBox, acListBox, acOptionGroup, acCheckBox

If ctl.Value <> ctl.OldValue Or (IsNull(ctl.Value) Or ctl.Value = "") Then
strChekaDiferente = True
DoCmd.SetWarnings False
strSQL = "INSERT INTO TblLog (Utilizador, LogData, NomeForm, NomeCampo, ValorAntigo, ValorAtual, Status) Values('" & getUsuarioAtual = strUsuarioAtual & "', Now(),'" & Me.Form.Name & "','" & Me.COMPRA & "','" & Me.VENDA & "','" & Me.ID_STATUSPEDIDO & "','" & "Registro Alterado" & "')"
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
strChekaDiferente = False
Else
Cancel = True
End If

End Select
Next ctl
End If
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
End Sub


Private Sub Comando3_Click()
On Error GoTo 2
DoCmd.SetWarnings False
Call Command8_Click
DoCmd.GoToRecord , , acNext
Exit_Comando3_Click:
Exit Sub
2:
MsgBox "Você está no ultimo registro...", vbCritical
Exit Sub
DoCmd.SetWarnings True
End Sub

Private Sub Comando4_Click()
On Error GoTo 1
DoCmd.SetWarnings False
Call Command8_Click
DoCmd.GoToRecord , , acPrevious
Exit_Comando4_Click:
Exit Sub
1:
MsgBox "Você está no primeiro registro...", vbCritical
Exit Sub
DoCmd.SetWarnings True
End Sub
Private Sub Comando5_Click()
Call Command8_Click
DoCmd.GoToRecord , , acNewRec

End Sub


Private Sub Command9_Click()

Call Command8_Click

DoCmd.Close

End Sub

em vermelho coloquei os nomes dos campos do meu form que quero que sejam gravados quando alterados ou inseridos como novos.
as funções estao ok. so nao salva o registro na tabela Log.


podem me ajudar