[Resolvido]pegar usuario logodo

Você não copiou (ou alterou o que eu havia feito).

O código do botão OK do formulário de login,
na parte que abre o formulário principal o código não está do jeito]
que eu postei no exemplo anterior.

Veja p correto (e está no exemplo anterior, basta baixar):

If txtUsuario = Me.usuarioTab.Value And txtSenha = Me.senhaTab Then
    DoCmd.OpenForm "frm_principal", , acNormal, , , , Me.txtUsuario '<= Esse linha é a correta, pois passo como argumento de abertura o nome do usuário txtUsuario

DoCmd.OpenForm "frm_principal", , acNormal '<= Cadê o argumento? O correto é o de cima. Pode apagar essa e deixar apenas a de cima

     DoCmd.Close acForm, "frm_login"
Else
     MsgBox "Campos Inválidos", vbInformation, "Arquivamento-Login"
End If

Observe que, assim como no exemplo anterior, você não passou o argumento de abertura do formulário.
E eu já havia inclusive comentado no código anterior também isso.