[Resolvido]Campotexto alterando combo que altera outra combo

Boa tarde a todos!

Bem, cá estou eu com outro pedido de auxilio...

Tenho um campo "Idade" que ao inserir certo dado, ex: "8", na combo "Faixa" apareça automaticamente ex: "0 a 10 anos" e por seguinte esta altere uma segunda combo "Valores" que fique com valor ex: "R$ 100,00.

Obrigado!

Faça uma pesquisa no fórum por "Combos em cascata". Tem vários exemplos úteis.

Bom dia criquio!

Já pesquisei no forum, porém não encontrei um exemplo que me ajudasse... pois o que quero também é que eu não precise executar as combos, que elas sejam executadas automaticamente (elas devem ficar inativas e bloqueadas) a partir do campo texto.

Então não seria melhor colocar campos texto no lugar das combos, já que elas ficarão inacessíveis ao usuário? Ou a ideia é deixá-las acessíveis e bloqueá-las quando for feita uma pesquisa?

Hum....
criquio, correção, na verdade é assim:

combo "Idade" (os dados deste campo provem do campo "DataNasc", que ao inserir a data de nascimento gera a idade - buscando esta idade em uma tabela)

combo "Faixa" (através da idade gerada no combo "Idade" busca o valor em uma tabela - "0 a 10 anos", "11 a 20 anos", "21 a 30 anos", etc.)

combo "Valores" (através dos dados gerados na combo "Faixa" busca o valor em uma tabela)

Ainda está meio confuso. Se as combos ficarão bloqueadas, tudo será gerado de acordo o que for digitado no campo texto, certo? Então as combos seriam desnecessárias. Se as combos são necessárias, então elas não ficariam bloqueadas, certo? Ainda não entendi bem.

criquio...digamos que eu coloque campos comuns ao invés de combos, como fazer para buscar os valores nas respectivas tabelas? (estou voando hoje - rsrss)

Tente algo assim:

Código:

Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset("SELECT * FROM NomeDaTabela WHERE NomeDoCampoDaTabela=" & Me.NomeDoCampoDoForm & "")
        Me.NomeCampo1DoForm = rs!NomeCampo1DaTabela
        Me.NomeCampo2DoForm = rs!NomeCampo2DaTabela
    rs.Close
Set rs = Nothing

Coloquei o código no após atualizar do campo "Idade" mas não funciona...onde errei?

Não faço a mínima ideia, hehehe. É preciso ver se os nomes dos campos estão corretos e se são os campos corretos, se o nome da tabela está correto e o tipo do campo usado para o filtro. Se for tipo texto, tem que usar aspas simples junto com as duplas no critério:

Set rs = CurrentDb.OpenRecordset("SELECT * FROM NomeDaTabela WHERE NomeDoCampoDaTabela='" & Me.NomeDoCampoDoForm & "'")

Bom dia!

Meu amigo criqui... agora funcionou, estava apenas invertidos os campos do form com os da tabela.

Muito obrigado por mais esta ajuda...eita galerinha porreta vocês!

...Resolvido!