[Resolvido]Alterar grupo de opção de um formulário baseado em um subformulário

Dados:

Formulário: PedidoInterno
Grupo de opções: Moldura33 (assume 1 ou 2)
---------------------------------------------------------
Subformulário: SaldoPedidoInterno
Campo: SomaSaldoPedido (está no rodapé do subformulário)
---------------------------------------------------------
Objetivo:
Ao abrir o formulário PedidoInterno, atualizar a Moldura33 (para todos os registros) com base no valor do campo SomaSaldoPedido
---------------------------------------------------------
Código:

Private Sub Form_Open(Cancel As Integer)
   
   Dim rst As Recordset
   Set rst = Me.Recordset
   rst.MoveFirst
   Do While Not rst.EOF

     If Forms![PedidoInterno]![SaldoPedidoInterno]![SomaSaldoPedido] > 0 Then
     Me.Moldura33 = 1
     Else
     Me.Moldura33 = 2
     End If

  rst.MoveNext
  Loop
  Set rst = Nothing

End Sub
---------------------------------------------------------
Problema:
Assume SomaSaldoPedido = 0 para todos os registros
---------------------------------------------------------
Informações adicionais:
No formulário PedidoInterno inseri o campo SaldoGeral com origem = [SaldoPedidoInterno].[Formulário]![SomaSaldoPedido] para
verificar se está lendo corretamente (verifiquei que está).

Coloquei também um botão de comando com o seguinte código:

Private Sub Comando62_Click()

   If Me.SaldoGeral > 0 Then
   Me.Moldura33 = 1
   Else
   Me.Moldura33 = 2
   End If

End Sub

Funciona normalmente.

Obrigado.

Tente assim:

If Me.SomaSaldoPedido > 0 Then
Me.Parent.Moldura33 = 1
Else
Me.Parente.Moldura33 = 2
End If

Cumprimentos

Entendo que o comando sugerido deve ser colocado em algum evento no subformulário, pois faz referência
a um objeto do formulário através da instrução parent.

NO SUBFORMULÁRIO:

Private Sub Form_Open(Cancel As Integer)

Dim rst As Recordset
Set rst = Me.Recordset
rst.MoveFirst
Do While Not rst.EOF

If Me.SomaSaldoPedido > 0 Then
Me.Parent.Moldura33 = 1
Else
Me.Parente.Moldura33 = 2
End If

rst.MoveNext
Loop
Set rst = Nothing

End Sub

Apresenta o erro:

"voce nao pode atribuir um valor a esse objeto"

Agradeço. Continuo tentando...

Inseri a linha em destaque e funcionou.

No formulário:

Private Sub Form_Open(Cancel As Integer)

Dim rst As Recordset
Set rst = Me.Recordset
rst.MoveFirst
Do While Not rst.EOF

*** Me.recalc ***

If Forms![PedidoInterno]![SaldoPedidoInterno]![SomaSaldoPedido] > 0 Then
Me.Moldura33 = 1
Else
Me.Moldura33 = 2
End If

rst.MoveNext
Loop
Set rst = Nothing

End Sub

Resolveste então?

Cumprimentos.

Agradeço a atenção.

O Fórum agradece o Retorno.