[Resolvido]Filtro em caixa de combinação

Boa tarde.

Estou tendo dificuldade em encontrar o erro na lógica para filtrar duas caixas de combinação. No arquivo que segue está uma parte do BD, na qual estou querendo:
1. Quando escolha a opção da Marca, ele filtre os equipamentos relacionados a marca e que atualize caso mude a opção marca.
2. nas reticências eu consigo ver a lista atualizada das marcas cadastradas bem como posso adicionar novas. Isso também para o equipamento, no qual quando vou adicionar uma nova, tenho que escolher obrigatoriamente a marca para que então este seja vinculado a mesma. Porém nao estou conseguindo realizar este feito.

Agradeço desde já quem puder ajudar. Obrigado.

Olá Arouca,

Tente fazendo algo assim:

Código:

Private Sub cboMarca_AfterUpdate()
Dim intCod As Integer
Dim strMarca As String

strMarca = Me.cbomarca.Column(1)

intCod = Nz(DLookup("Cod_Mar", "tbl_Marca", "Marca = '" & strMarca & "'"))
Me.txt_equip.RowSource = "SELECT [Tbl_Equipamento].[Equipamento] FROM Tbl_Equipamento WHERE [Tbl_Equipamento].[Cod_mar] = " & intCod

End Sub

realmente não está filtrando como deveria, até organizei as tabelas. Sou principiante ainda em access, as vezes nao encontro a lógica correta  
Na verdade imagino que esteja faltando ele atualizar logo apos a inserção do valor da caixa de combinação, para que possa filtrar os valores.
Estou enviando o BD atualizado

Olá Arouca,

Veja se te atende,

Se quiser adquirir meus livros para ampliar seus conhecimentos:

Para iniciante:
https://www.maximoaccess.com/t32310-segundo-livro-publicado-do-good-guy-domine-o-access-vba-para-iniciantes-na-programacao

Para usuário avançado:
https://www.maximoaccess.com/t29536-livro-publicado-tecnicas-especiais-de-access-vba-da-autoria-de-good-guy

"O temor do Senhor(respeito pela Palavra de Deus, leitura e obediência) é o princípio do conhecimento" (Prov. 1.7)
Disse Jesus: "E conhecereis a Verdade e a Verdade vos libertará". (Jo 8.32)
Disse Jesus: “Eu sou a luz do mundo; aquele que me segue, não andará em trevas, mas terá a luz da vida.” (Jo. 8.12)

Olá...

Desculpe good guy, como eu já tinha feito resolvi mandar

pode ser assim também

Abraços

Era isso mesmo Pessoal! Pelo que deu para perceber era um relação com a tabela e a atualização da caixa do equipamento!!!Agradeço imensamente por ter visto e pela ajuda !!

Olá..

O Fórum agradece seu retorno

Abraços