[Resolvido]Select para exibir no formulário

Olá pessoal, estou mais uma vez recorrendo a ajuda do forum!

Então tenho uma tabela e um formulário

tenho a seguinte expressão em um código num botão: strsql = "select * from tblProdutos where Cor = 'Verde' "

Como posso executar esse select para que apareça os registros correspondentes a ele no formulário?
Tenho que criar um outro formulário?

Agradeço desde já!

Olá Carlos
Para exibir registros (veja que está no plural), é necessário ter uma subformuláiro em modo contínuo ou modo folha de dados.
Numa caixa de texto onde digitará a cor a se pesquisada (o ideal seria uma combobox para evitar erros de digitação), no evento ApósAtualizar irá colocar o código:
Me.Nomedosubformulário.Form.RecordSource = "select * from tblProdutos where Cor = 'Verde' ".

Tai o caminho das pedras

Abraços

Olá

melhor vc carregar o formulário, com origem na tabela. sem qualquer filtragem

No seu botão coloque

me.filter = "Cor='verde'"
me.filteron = true

O formulário então irá te apresentar os registros da cor verde

saiba mais sobre filtragens no meu tutorial.

http://www.usandoaccess.com.br/tutoriais/tuto35.asp?id=1#inicio

Sucesso!

Concordo com o Avelino, Carlos
Mas vai ter que fazer um código para mudar o filtro do formulário cada vez que precisar mudar de cor.
Forms!teuForm.filter = me.txtDePesquisa

Abraços

Avelino e Balem, muito obrigado pela atenção de vocês!!!

então pois é como teria que fazer um código cada vez que precisasse mudar de cor, como são muitos dados não seria mt eficiente pra mim, a minha itenção é tornar o banco de dados mais genérico possível, então a medida que escolho em um combobox, eu monto o meu select e ele é exibido no subform através do código do Balem

Enfim, tudo resolvido!!!
Vlw mesmo pela ajuda de vcs!!!

Abraços

Que bom que deu certo, Carlos!
E obrigado pelo retorno.
Boa sorte!!

Desculpe-me estar reabrindo o tópico, mas queria só mais uma informação!

Atualmente estou usando meu subform no próprio formulário, como faço para que ele abra somente após a escolha no formulário?


Abraços,

Olha
O que dá pra fazer é deixar o subform invisível, porém o espaço que ele ocupa no formulário ficará em branco. você pode até deixar esse espaço com a mesma cor de fundo do formulário principal, mas o espaço vai continuar.

se deseja mesmo assim:

Você pode definir a propriedade visível dele como falso,clicando no retângulo onde ele fica e usando essa propriedade.
No evento no Atual do subformulário:

Código:


Private Sub Form_Current()
If Me.RecordsetClone.RecordCount <> 0 Then
  Me.Visible = True
Else
  Me.Visible = False
End If
End Sub


No botão Limpar adicione:

Código:


 Me.SubfrmPesquisaClientes.Form.Visible = False


Abraços

Legal o seu código, mas a minha vontade seria, ao execultar a consulta no form principal, seria aberta uma nova janela com os dados do subform! Não tem jeito isso não?

pois dessa forma eu gasto muito espaço com os dados a serem pesquisados e sobra pouco espaço para os dados exibidos do subform, se abrisse outra janela para o subform melhoraria muito a visibilidade!

muito obrigado!
abraços,

Entendi

Lembre-se, um subformulário não deixa de ser um formulário.
Ele apenas está acoplado em outro formulário, portanto, você pode usar esse mesmo subformulário como formulário comum.
Deixe ele como está,somente mude o nome dele para digamos frmPesquisaClienteModoDados.
O nome é só um exemplo,claro, fica a teu critério.
Na origem de registro desse form:

Creio que você deva ter feito uma combo para as cores então, faça uma consulta
e coloque na origem de registro desse formulário.
"select * from tblProdutos where Cor = 'Verde' ".
Na coluna da consulta cor, irá colocar = ComboboxCor 'O nome é um exemplo apenas.
Na propriedade AoAtualizar dessa combo, irá apenas colocar
Docmd Openform "NomeDoformulário.

Bom, espero que tenha me entendi
Qualquer coisa, dê um grito
Abraços

Olá Balem,
desculpas pela demora para responder!

mas então entendi sua resposta
Mas sendo que a minha consulta eh montada a partir de código, que vai sendo preenchida com seleciono nos diversos combobox, formando uma consulta com os determinados critérios, quando clico no botão esta "frase" que é a consulta é acionada! Então não há uma consulta pronta para determinadoss campos eu somente monto a frase, atraves dos combos, e ela aparece no subform!



relembrando que minha itenção é abrir esse subform em outra janela, será que tem algum jeito?
esse código que vc postou serve neste caso?

abraços,

teria como fazer algo como

strsql (variável onde encontra-se a frase da consulta) = DoCmd.OpenForm (formulário)?

Carlos
Você já tem essa SQL montada à medida que vai selecionando os campos.
É exatamente isso que estou dizendo, só que ao invés de ser para o subformulário, seria para outro formulário.
Como você já tem um formulário pronto só que é um subformulário, você pode renomeá-lo e abri-lo em separado.
A origem de registro é a mesma que você usa agora.
Essa "frase" que você está dizendo é a instrução SQL, que não passa de uma consulta em SQL via VBA.
Então:
DoCmd.OpenForm "Nomeformulário"

Forms!NomeFormulário.RecordSource = "FraseSQL"

Abraços

Balem, muito obrigado pela atenção e paciência!

Tudo resolvido!!

vlw msm!!

abraços

Obrigado pelo retorno

Boa sorte !!