Problema com Caixa Combinação

[roselito]

Boa Noite

Não tenho muita experiência em bases de dados mas estou a ter um problema tenho um formulário com dois subformulários 1) Processo (Codigo; Processo) 2) DataLancamentos (Codigo; Processo; AnodoProcesso; MesdoProcesso) e 3) DadosdoProcesso (Codigo; Processo; AnodoProcesso; MesdoProcesso; NomeEntidade; Contribuinte; BancoOrigem; NIB).

O Objetivo é que quando selecione na caixa de Caixa de combinação o NomeEntidade atualize na tabela DadosdoProcesso os Campos (NomeEntidade; Contribuinte; BancoOrigem; NIB), utilizei este código que esta dando o seguinte erro:

Compile erro:

User defined type not definet

No que diz respeito aos índice não sei se esta certo assim:

tabela.Index = "NomeIndice"

tabela.Seek "=", Me![Nome]

Gostaria que alguém me ajuda-se

Obrigado

Option Compare Database

Private Sub NomeEntidade_Change()

' Zona de declaraçoes das Variabeis

Dim tabela As Recordset

Dim MyDB As Database

'Corpo do programa

Set MyDB = CurrentDb()

Set tabela = MyDB.OpenRecordset("FichaEntidadeFornecedor")

tabela.Index = "NomeIndice"

tabela.Seek "=", Me![Nome]

If tabela.NoMatch Then

MsgBox "Neste Momento a tabela não Contem Nenhun Registo ou Nome não Existe", 64, "Informaçao"

Else

Me![NomeEntidade] = tabela![NomeEntidade]

Me![Contribuinte] = tabela![Contribuinte]

Me![banco] = tabela![banco]

Me![NIB] = tabela![NIB]

tabela.Close

End If

End Sub

[MrMALJ]

Dúvida bem recorrente com bastantes casos já solucionados aqui no forum, entenda que toda caixa de combinação (combobox) possui uma origem de dados que poder uma tabela ou consulta, nesse caso sugiro uma consulta que tenha como critério um dos objetos que contenham a informação que vai servir de filtro para a combo, então propriedade de evento após atualizar faça um codigo semelhante a este:

me.suaCombo.requery

Dessa forma toda vez que você alterar o campo de critério da combo, ela sofrerá o update.

Deve resolver, existem outros tópicos relacionados no forum (utilize a busca da seção), caso não resolva post o resultado e ou avise se resolveu!