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