[Resolvido]Erro ao abrir form com outro aberto

Caros Mestres,


Peço a vossa ajuda para tentar deslindar um erro na abertura de um form.

No evento After Update de uma combo box (cbStatus) tenho o código abaixo, para abrir um segundo form e guardar o valor original da combo box. Deste modo pretendo que se as condições existentes no segundo form não forem verdadeira poder colocar a combo com o valor original.

O problema reside em que o código funciona como pretendido se apenas o form original estiver aberto, se outro form estiver aberto o Access retorna o erro:

Run-time error '2465':
Applicatio-defined or object-defined error.

Eu consigo fazer by pass ao erro (está a trabalhar assim de facto...) garantindo que fecho os outros forms antes de correr o código, contudo não me parece um processo limpo e gostava de perceber porquê.

Alguém faz ideia do porquê ?????

Obrigado antecipadamente, aqui fica o código:

Private Sub cbStatus_AfterUpdate()

Dim varHoje As Date
Dim varOldStat, varAvisado As String
varHoje = Format(Now(), "Short Date")
varOldStat = Me.cbStatus.OldValue
varAvisado = DLookup("[ClienteInformado]", "Issues", "ID=" & Me.ID)

Select Case Me.cbStatus
Case IsNull(Me.cbStatus)
Me.txtCloseDate = Null
Exit Sub
Case Is = "Activo"
Me.txtCloseDate = Null
Exit Sub
Case Is = "Resolvido"
DoCmd.OpenForm "FormFechoReclamacao"
Forms.FormFechoReclamacao.txtOldStatus.Value = varOldStat
Case Is = "Fechado"
If IsNull(Me.txtComentariosFinais) Or Me.txtComentariosFinais = Empty Then
MsgBox ("Não pode fechar uma reclamação sem a Descrição da Resolução" & vbCrLf & _
"Corriga por favor")
Me.cbStatus = varOldStat
Exit Sub
ElseIf varAvisado = -1 Then
Me.cbStatus = "Fechado"
Exit Sub
Else
DoCmd.OpenForm "FormFechoReclamacao"
Forms.FormFechoReclamacao.txtOldStatus.Value = varOldStat
End If
End Select


End Sub

Caro Leandro,


Infelizmente não é assim tão simples. Eu normalmente utilizo apenas o ponto (se calhar erradamente), mas fui substituir o ponto pelo sinal e o resultado foi o mesmo.

Obrigado pela sua rápida resposta e ajuda

Algum dos mestres tem alguma ideia de qual será o problema ?

Obrigado

Teste desta forma por favor;


Private Sub cbStatus_AfterUpdate()
Dim varHoje As Date
Dim varOldStat As String
Dim varAvisado As String

varHoje = Format(Now(), "Short Date")
varOldStat = Me.cbStatus.OldValue
varAvisado = DLookup("[ClienteInformado]", "Issues", "ID=" & Me.ID)

Select Case Me.cbStatus.Value
Case IsNull(Me.cbStatus.Value)
Me.txtCloseDate.Value = Null
Exit Sub
Case Is = "Activo"
Me.txtCloseDate.Value = Null
Exit Sub
Case Is = "Resolvido"
DoCmd.OpenForm "FormFechoReclamacao"
Forms!FormFechoReclamacao.Form!txtOldStatus.Value = varOldStat
Case Is = "Fechado"
If IsNull(Me.txtComentariosFinais.Value) Or Me.txtComentariosFinais.Value = Empty Then
MsgBox ("Não pode fechar uma reclamação sem a Descrição da Resolução" & vbCrLf & _
"Corriga por favor")
Me.cbStatus.Value = varOldStat
Exit Sub
ElseIf varAvisado = -1 Then
Me.cbStatus.Value = "Fechado"
Exit Sub
Else
DoCmd.OpenForm "FormFechoReclamacao"
Forms!FormFechoReclamacao.Form!txtOldStatus.Value = varOldStat
End If
End Select
End Sub

Caro JPaulo,

Funcionou, resolveu o problema.

Agora tenho que comparar e descobrir o meu erro.

Muito Obrigado

Obrigado pelo retorno o forum agradece.