[Resolvido]Loucura! Quando executo com pontos de interrupção não dá erro... quando roda da erro

Amigos, boa noite e helllpp!

Estou usando um loop p expandir um relatório baseado em consulta de referencia cruzada...
Peguei do site JR´s Microsoft Access FAQ.

O código é:

Dim rs As Recordset, I As Integer
Dim strtotal As String

Set rs = Me.RecordsetClone

With rs

For I = 0 To .Fields.Count - 1

Me("uc" & I).ControlSource = .Fields(I).Name
Me("u" & I).Caption = .Fields(I).Name

Me("uc" & I).Visible = True
Me("u" & I).Visible = True

strtotal = "= Sum([" & .Fields(I).Name & "])"
Me("t" & I).ControlSource = strtotal

Next I

End With

rs.Close

Set rs = Nothing

Ocorre que dá erro na totalização.
Porém, quando executo com pontos de interrupção dá certo! Os totais entram direitinho...
Socorro!

Obrigado!
Lárimer

E qual é a mensagem de erro? Poste sempre todos os detalhes.

Olá, Criquio.

O erro que dá é simplesmente #erro nos campos que devem receber o total.

Tudo o mais funciona.
O formulário expande conforme o número de colunas da consulta ref cruzada.
Quando executo com pontos de interrupção vai até o fim e totaliza cada campo direitinho...
Mas se mando simplesmente abrir o formulário, os campos de dados entram certo, mas as totalizações vão pro espaço...

Obrigado!

Lárimer

Tente fazer a soma na origem do controle e no final do código, dar um Me.NomeDoControle.Requery.

Valeu, Criquio!

Fiz assim e funcionou...

Private Sub Form_Load()

Dim rs As Recordset, I As Integer
Dim strtotal As String

Set rs = Me.RecordsetClone

With rs

For I = 0 To .Fields.Count - 1

Me("uc" & I).ControlSource = .Fields(I).Name
Me("u" & I).Caption = .Fields(I).Name

Me("uc" & I).Visible = True
Me("u" & I).Visible = True

strtotal = "= Sum([" & .Fields(I).Name & "]*1)"
Me("t" & I).ControlSource = strtotal

Me.Recalc

Next I

End With

rs.Close

Set rs = Nothing


Exit_Form_Load:
Exit Sub
Err_Form_Load:

MsgBox Err.Description

Resume Exit_Form_Load
End Sub

Grato pelo retorno. O fórum agradece.

Amigos, tentei usar o mesmo código que usei para um formulário, num relatório baseado em consulta de referencia cruzada, passou a dar o seguinte erro:

Na linha:

Set rs = Me.RecordsetClone "Método ou membro de dados não encontrado."


O código que tentei adaptar do formulário para o relatório ficou assim:


Private Sub Report_Load()

Dim rs As Recordset, I As Integer
Dim strtotal As String

Set rs = Me.RecordsetClone

With rs

For I = 0 To .Fields.Count - 1

Me("uc" & I).ControlSource = .Fields(I).Name
Me("u" & I).Caption = .Fields(I).Name

Me("uc" & I).Visible = True
Me("u" & I).Visible = True

strtotal = "= Sum([" & .Fields(I).Name & "]*1)"
Me("t" & I).ControlSource = strtotal

Me.Requery

Next I

End With

rs.Close

Set rs = Nothing


Exit_Report_Load:
Exit Sub

Err_Report_Load:

MsgBox Err.Description

Resume Exit_Report_Load


End Sub

Pesquisei muito e tentei usar os outros tipos Me.RecordSource, RecordLocks e os outros mas não funcionou.
Agradeço se puderem me dar mais essa dica.

Muito obrigado!

Lárimer

Amigos, continuando o post anterior, quando mudo de

Set rs = Me.REcordsetClone

para

Set rs = Me.REcordset

Dá um erro "Este recurso está disponível somente em ADP."

??

Alguém pode dar uma pista?

Obrigado!
Lárimer

Obrigado!

Então já resolveu?

Olá, Criquio.

Sim, para o formulário está resolvido.
Cheguei a reabrir este tópico pq para Relatório ñ está funcionando.
Mas fechei novamente este aqui porque está resolvido.

Abri outro para o problema em Relatório.

Muito obrigado e desculpe a confusão.

Lárimer

OK! Grato pelo retorno. O fórum agradece.