[Resolvidos]Modificar os critérios do módulo qryUserLogado para trazer o dado ao formulario atual

Olá amigos boa tarde,

mais uma vez, na continuidade do meu estudo, venho pedir-lhes ajuda:

tenho uma consulta que busca informação na "tbl_usuarios" com um critério seguinte no campo usuário: "[Forms]![frm_Origem_apuração]![txtUser] que busca um valor na caixa: txtUser (para saber que é que esta logado).

como eu faço para fazer esta consulta no formulario atual e não no "frm_Origem_apuração"

Agradeço a atenção,


Irailson

OLá Amigo

Você podia ser mais claro? Você tem uma consulta baseada na tbl_usuarios. Depois terá um form "frm_Origem_apuração" que exibe o usuário logado, presumo. Agora quer exibir o resultado noutro form, é isso?

Olá Vieira,

tenho a caixa txtUser em três formulários diferentes.
estas caixas txtUser tem como fonte o campo "strUserID" da tblUsers.

tenho um modulo escrito pelo mestre Jpaulo registra as alterações dos usuarios logados:

Public Function RegistaAlteracoes(frm As Form, Optional bHasInactive As Boolean = False) As Boolean

Dim strForm As String
Dim strUser As String
Dim strIP As String
Dim strUserLog As String

strForm = frm.Name
strUser = GetUserName_TSB
strIP = DameIpMaquina()
strUserLog = DLookup("strUserID", "qryUserLogado", "strUserID")
If frm.NewRecord Then
frm!DataRegisto = Now()
frm!UserRegisto = strUser
frm!IPRegisto = strIP
frm!UserRegistoLog = strUserLog
Else
frm!DataModificacao = Now()
frm!UserModificacao = strUser
frm!IPModificacao = strIP
frm!UserModificacaoLog = strUserLog
End If


Exit_RegistaAlteracoes:
Exit Function

End Function


bem, esta linha de instrução:
strUserLog = DLookup("strUserID", "qryUserLogado", "strUserID") faz um Dlookup nesta: "qryUserLogado"
que está com seguinte critério no campo "strUserID" >>>[Forms]![frm_Origem_da_Apuração]![txtUser]

o que eu gostaria e que a consulta buscasse esse valor de [txtUser] nos outros formulários: tipo assim [Forms]![FRM_ATUAL]![txtUser]

Obrigado pela atenção

Amigão:

Neste caso é melhor que seja o próprio Mestre JPaulo a dar-lhe as indicações necessárias. Aguarde que eu tenho a certeza que ele irá responder-lhe logo que for possível.

Abraço

Olá Vieira,

Por curiosidade, como faço para consultar uma caixa com o nome "tal" no formulário que estiver aberto:

onde na consulta usemos o criterio: [Forms]![FRM_ATUAL]![txtUser] ao invés de [Forms]![frm_Origem_Apuração]![txtUser]

substituindo o nome do formulário pelo formulário atual
ou seja como fazer referência, na consulta, a este formulário atual?

Obrigado pela atenção...

Não sei se estou a entender bem, deve ser fome que ainda não jantei (rsrsrs), mas teste assim:

>=[forms]![FRM_ATUAL]![txtUser] E <=[forms]![frm_Origem_Apuração]![txtUser]

Um momento:
O campo da consulta tem 2 critérios
Critério....[Forms]![FRM_ATUAL]![txtUser] ou... insira no segundo critério...[Forms]![frm_Origem_Apuração]![txtUser]

Agora vou mesmo dar ao dente (rsrsrsrs)

Veja se funciona

VOU TESTAR AGORA

oLÁ vIEIRA,

Não Funcionou,

estou tentando outras alternativas, inclusive uma atende ao que eu pretendo que é salvar o nome do usuario logado em qualquer registro que ele crie ou altere, conforme o código do Mestre JPaulo,
Mas, a nivel didático gostaria de saber como se faz esse tipo de consulta.

A alternativa que atende ao pleito é a seguinte:

1º mando a query buscar o usuario logado no formulário do Menu Principal
2º no evento ao sair mandei ele ficar invisivel ( o que garante que a consulta vá buscar o nome do usuário que está logado)
3ºPara o usuário do sistema logar precisa passar por este formulário de Menu Principal

Mas gostaria de saber como faz tal consulta

Contiunuo agardando vossa ajuda e /ou dos companheiros deste forum

Grato, Irailson

Amigão existem duas hipoteses;

1ª O formulario Principal já tem na txtUser o User logado, então mantenha sempre esse form aberto.
No segundo form, coloque uma caixa de texto com o nome de txtUser1, na origem =[Forms]![SeuFormPrincipal]![txtUser]

2ª O formulario Principal já tem na txtUser o User logado, então mantenha sempre esse form aberto.
No segundo form, coloque uma caixa de texto com o nome de txtUser1, na origem =DLookup("strUserID";"qryUserLogado";"strUserID")

Qualquer duvida, dê um grito.

Olá mestre Jpaulo, tudo bem contigo?

sem "rasgar seda", pelo que tenho visto fazeres és digno do Titulo de MESTRE.

vou gritar...........

Sobre a questão, conforme minha postagem anterior, no dialogo com Vieira, eu já tinha feito esse procedimento que atendeu a necessidade em questão.
>>> Mas a nivel de instrução eu gostaria de saber se é possivel a qryUserLogado buscar a txtuserdo formulário atual (levando em consideração que este form atual contenha esta txtuserid), assim não precisaria manter o formPrincipal invisivel,

Obrigado pela atenção,

Irailson

Bom dia Irailson, desculpe a demora, mas fim de semana é fim de semana

Vamos lá ao simples;

Na consulta qryUserLogado, delete o critério que lá tem.

Abra essa consulta em modo SQL, e cole isto;

SELECT tblUsers.strUserID
FROM tblUsers
WHERE (((tblUsers.strDataHora)=(SELECT Max([strDataHora]) FROM tblUsers)));

No evento VBA ao carregar, dos formulários, faça apenas assim;

No form 1:

Private Sub Form_Load()
Me.txtUser = DLookup("strUserID", "qryUserLogado")
Me.txtUser.Requery
End Sub

No form 2:

Private Sub Form_Load()
Me.txtUser2 = DLookup("strUserID", "qryUserLogado")
Me.txtUser2.Requery
End Sub

No form 3:

Private Sub Form_Load()
Me.txtUser3 = DLookup("strUserID", "qryUserLogado")
Me.txtUser3.Requery
End Sub

E voilá, terá sempre o User atual no formulario atual.

Ola Mestre JPaulo, bom dia, espero que esta tudo bem contigo

Sua instrução sobre a questão foi magistral.


Obrigado,

Irailson

Valew pelo retorno amigo, o fórum agradece.