Início
adriano944 2/6/2010, 15:31Pessol
Bom Dia
Como posso inserir em um textbox o resultado de uma consulta (count)?
obrigado
Bom Dia
Como posso inserir em um textbox o resultado de uma consulta (count)?
obrigado
3 participantes
[Resolvido]Resultado de Consulta em TextBox
adriano944- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 187
Registrado : 10/02/2010
JPaulo- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11026
Registrado : 04/11/2009
Na origem do textbox
=DLookUp("[Nome_Campo]","Nome_Consulta","[Nome_Campo]")
=DLookUp("[Nome_Campo]","Nome_Consulta","[Nome_Campo]")
.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.
Pay-Pal R$ Aqui
Pay-Pal € Aqui
Ou ainda: Aqui (Novo)
Sucesso e Bons Estudos
Success and Good Studies
![[Resolvido]Resultado de Consulta em TextBox Folder_announce_new](https://2img.net/i/fa/subsilver/folder_announce_new.gif)
Utilize o Sistema de Busca do Fórum... 102 Códigos VBA Gratuitos... Instruções SQL como utilizar...
adriano944- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 187
Registrado : 10/02/2010
JPaulo
Apenas para saber...
voce poderia me dizer o que seria os 2 (nome_campo)?
Apenas para saber...
voce poderia me dizer o que seria os 2 (nome_campo)?
adriano944- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 187
Registrado : 10/02/2010
consegui implementando o codigo abaixo no exento Open do Form.
Set Rs2 = DB2.OpenRecordset("SELECT Count(*) AS Contagem FROM tblusuarioAtual INNER JOIN [CADASTROCID/ODM] ON tblusuarioAtual.UsuarioAtual = [CADASTROCID/ODM].Responsavel WHERE ((([CADASTROCID/ODM].Status)=""Executada""));")
Executadas = Rs2("Contagem")
Me.txtexecutadas.Caption = Executadas
Set Rs2 = DB2.OpenRecordset("SELECT Count(*) AS Contagem FROM tblusuarioAtual INNER JOIN [CADASTROCID/ODM] ON tblusuarioAtual.UsuarioAtual = [CADASTROCID/ODM].Responsavel WHERE ((([CADASTROCID/ODM].Status)=""Executada""));")
Executadas = Rs2("Contagem")
Me.txtexecutadas.Caption = Executadas
JPaulo- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11026
Registrado : 04/11/2009
Conseguiu está resolvido.
Nome_Campo seria o campo que você quiser da sua consulta, rsrsrsrs
Nome_Campo seria o campo que você quiser da sua consulta, rsrsrsrs
.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.
Pay-Pal R$ Aqui
Pay-Pal € Aqui
Ou ainda: Aqui (Novo)
Sucesso e Bons Estudos
Success and Good Studies
Utilize o Sistema de Busca do Fórum... 102 Códigos VBA Gratuitos... Instruções SQL como utilizar...
vitalalmeida- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1
Registrado : 06/08/2014
Alguem poderia me enviar um exemplo pratico dessa funcao:
=DLookUp("[Nome_Campo]","Nome_Consulta","[Nome_Campo]")
Sou iniciante, e nao consigo faze-la rodar.
=DLookUp("[Nome_Campo]","Nome_Consulta","[Nome_Campo]")
Sou iniciante, e nao consigo faze-la rodar.
JPaulo- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11026
Registrado : 04/11/2009
Dê uma estudada aqui mesmo;
http://maximoaccess.forumeiros.com/t1533-funcao-dlookup-explicacao
http://maximoaccess.forumeiros.com/t1533-funcao-dlookup-explicacao
.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.
Pay-Pal R$ Aqui
Pay-Pal € Aqui
Ou ainda: Aqui (Novo)
Sucesso e Bons Estudos
Success and Good Studies
Utilize o Sistema de Busca do Fórum... 102 Códigos VBA Gratuitos... Instruções SQL como utilizar...
Conteúdo patrocinado
Tópicos semelhantes
