[Resolvido]Limpando um RowSource ao fechar form

tenho o seguinte comando ao fechar meu form:

Me.CboDetento.RowSource = ""


Mas dá uma mensagem de erro:
A expressão que voce inseriu refere-se a um objeto que foi fechado ou não existe...
So que tenho mais duas combo com o mesmo código que nao dá o erro, são elas:
Me.CboAla.RowSource = ""
Me.CboCela.RowSource = ""

o que fazer caros colegas??

Você fecha o formulário ao clicar em um botão? Se sim, será que o evento não está depois do evento de fechar? Se sim, tente deixar o evento de fechar por último de tudo.

Mas as outras Combo's estao juntos com esta...
Vou tentar colocar antes do botão e retorno

Amigo Criquio creio que o preoblema esta em alguma propriedade da combo. pois desativei o carregamento dela ao abrir... e ativei o Descarregamento..

Ela não descsaregou.. e quando abriu, mesmo com o carrega combo desativado .. ela continua com os valores la....

Quando coloco o form em modo Design.. da o erro tambem

Olhe na fonte de origem se não está carregando por lá,via sql.

Amigão tudo certo com ela... nao vi defeito...
Mas.....
tem sempre o mas..... hehe
Peguei uma das cbo que nao dava problema , copiei e renomeei com o nome CboDetento.. Deu certo... não deu mais o erro

Vai saber ne?? Misterio

Eita....!!! mesmo erro novamente

AMigão... fiz um teste aqui... o erro esta dando quando se passa ao modo Design...

inverti as ordens das combos...
Sempre dá erro na primeira......

Me.CboAla.RowSource = ""
Me.CboCela.RowSource = ""
Me.CboDetento.RowSource = ""

Bem como esse erro é no modo design... creio que não influencia no sistema em execução.. apenas quando se fecha a tela para abrir o Modo Desig.. é que da o erro..

Esse fechamento do access. dever vir antes de executado o código...por isso o erro, pois o codigo nao encontra o objeto que o access ja fechou para abri-lo em modo Design...
'Então:
Private Sub DescarregaCombo()
On Error Resume Next
'Função para Descsarregar as Combos
Me.CboAla.RowSource = ""
Me.CboCela.RowSource = ""
Me.CboDetento.RowSource = ""
End Sub

e ponto Final..

Saudações

Uma dica para evirar o Resume Next de primeira: pegue o número do erro e coloque um tratamento mais ou menos assim:

On Error GoTo TrataErro

Coloque no fim do evento:

TrataErro:
If Err.Number = Número desse erro Then
Resume Next
End If

Por que isso? Porque se ocorrer outro erro, não será possível descobrir o que é por causa do Resume Next.

Mas.. eu defino esse número??

Sim, o número que aparece na mensagem de erro.

Entendi... Grato Amigão