[Resolvido]Não há objeto nesse controle 2

Bom dia todos.

Criei esse novo tópico pois o outro apresentava situação diferente da minha. Tenho uma aplicação em access 2003 e windows XP.

Sem que houvesse algum motivo que eu pudesse identificar, a aplicação começou a apresentar o erro:

"Parada inesperada de processamento"
Erro:2683
Descrição: Não há objeto nesse controle

Este erro se apresenta em dois controles em cmdProc_Click e fProcColheita. Alem disso a barra de progresso tambem não aparece e seu valor fica igual a 0 (zero)

Alguem pode me ajudar?

Obrigado



Private Sub cmdProc_Click()
On Error GoTo ControleErros

Dim strSQL As String, bOK As Boolean

If Not fDtValidas() Then Exit Sub

Screen.MousePointer = Ampulheta

'---Faz primeiro a transferência da balança?
If chkTrans.Value Then
If Not fTransfBalanca() Then Screen.MousePointer = Normal: Exit Sub
End If

'---Carregando tabelas
If Not fSQL("FERIADOS") Then GoTo Encerra

If Not fSQL("VALORES") Then GoTo Encerra

If Not fSQL("COLHEITA") Then GoTo Encerra

'---Limpa dados anteriores
If Not fSQL("LIMPA_PAG") Then GoTo Encerra

'---Faz o processamento
If Not fProcColheita() Then bOK = False: GoTo Encerra
bOK = True
'---Limpa período anterior e grava novo período
If Not fSQL("LIMPA_PER") Then GoTo Encerra

MsgBox "Processamento realizado com sucesso!", vbInformation, "Cálculo da produção"

Encerra:
If Not rsFeriados Is Nothing Then
If rsFeriados.State <> adStateClosed Then rsFeriados.Close
Set rsFeriados = Nothing
End If
If Not rsValores Is Nothing Then
If rsValores.State <> adStateClosed Then rsValores.Close
Set rsValores = Nothing
End If
If Not rsColheita Is Nothing Then
If rsColheita.State <> adStateClosed Then rsColheita.Close
Set rsColheita = Nothing
End If
Screen.MousePointer = Normal
PBar.Value = 0
If bOK Then
DoCmd.Close acForm, "frmCalcProd"
DoCmd.OpenForm "RelSintPagtoColheita_Novo", acNormal
End If
Exit Sub

ControleErros:
Screen.MousePointer = Normal
MsgBox "Erro: " & Err.Number & vbCrLf & _
"Descrição: " & Err.Description & vbCrLf & _
"Local: cmdProc_Click", vbCritical, "Parada inesperada do processamento"
GoTo Encerra
End Sub

Olá, seja bem vido ao forum!

Tem alguma dll envolvida no processo? Geralmente, isso ocorre quando se perde a referência à uma biblioteca usada no processo. Se for esse o caso, talvez precise registra-la e referenciá-la novamente.

Boa tarde, Criquio.

Agradeço as boas vindas.

Então estou começando a me aventurar no access faz pouco tempo. Não identifiquei se existe uma dll envolvida. Você tem alguma dica de como posso verificar e / ou identificar se existe uma dll? ja aproveitando gostaria de saber se pode me indicar algum tutorial sobre registra e referenciar.

grato

Criquio, bom dia.

Estive verificando as propriedades do formulario, porem não identifiquei se existe uma dll envolvida no processo. Acessei em ferramentas > controles activex e tambem não encontri os controles que estavam nas propriedades do formulario.

Estou enviando um arquivo com as propriedades do formulario. Espero que ajude.

Grato

Faça um Debug através do Módulo de VBA e aproveite para verificar se está alguma referência em falta.

Como não houve retorno, o tópico passa a resolvido. Qualquer coisa reabra, por favor.