VB/Acess - Filtrar por subform

RaisTeParta

RaisTeParta

Power Member
Ola a todos

Tenho o form principal onde criei um botão que quero que me filtre todos os registos em que o from reclamação não esteja vazio.

Cheguei até este ponto mas ande por onde andar não consigo por isto a funciora:

Form_Imovel.RecordSource = "select * from Imovel LIKE (Form_Reclamacao.Reclamação) Is Not Null"

ou

Form_Imovel.RecordSource = "select * from Imovel WHERE (Form_Reclamacao.Reclamação) Is Not Null"

Help?
 
P.Peter disse:
Ola a todos

Tenho o form principal onde criei um botão que quero que me filtre todos os registos em que o from reclamação não esteja vazio.

Cheguei até este ponto mas ande por onde andar não consigo por isto a funciora:

Form_Imovel.RecordSource = "select * from Imovel LIKE (Form_Reclamacao.Reclamação) Is Not Null"

ou

Form_Imovel.RecordSource = "select * from Imovel WHERE (Form_Reclamacao.Reclamação) Is Not Null"

Help?
Clicar para expandir...
Ajuda a te propor:
Pões mais um campo o código de reclamação depois da reclamação
tipo:
Reclamação:
Codigo_reclamação:

e no código de reclamação pões todos a começares por A e depois um numero.
Depois usas isto:
x= "A"
Me.(a tua ligação).RecordSource = "SELECT * From (tabela) LIKE (tabela.campo) " & "'" & x & "%'"
me.(a tua ligação).refresh

penso que ira dar assim...
 
P.Peter disse:
não dá....
A reclamação é um subform do imovel....

Clicar para expandir...

o comando que eu te pus e para o VB6.0 e natural que nao de visto que estas a programar em acess..
tenta isto :
Código: 
t=""
Form_Imovel.RecordSource = "select * from Imovel WHERE (Form_Reclamacao.Reclamação) Is <>t
 
Última edição:
Se quiseres actualizar uma lista ou outro controlo fazer

List0.Requery

No teu caso dever ser Form_Imovel.Requery
 
Última edição pelo moderador:
Inicie sessão ou registe-se para poder participar.
Back
Topo