conteudo objeto control

pessoal preciso mover um campo através de um codigo nao consigo referenciar o campo que dever ser movido, apenas digitando, segue o exemplo

formulario que contem os dados que se referem ao objeto a ser movido
tipo objeto campo
reports teste texto0

coloco o seguinte codigo que da erro

DoCmd.OpenReport "teste", acViewDesign
dim alterando as control
alterando = me.tipo & "!" & me.objeto & "!" & me.campo
alterando.left = 1590

porem se eu digtar os campos ao inves de busca-los no formulario daria certo como abaixo
Reports!teste!Texto0.Left = 1590

Resolveu? Estava ate curioso por esta solucao.. mas nao tive como testar pois estou ainda de cama, teclado de um tablet...

Eu não consegui captar a ideia. Se puder ampliar o nível verbático, talvez ajude

Eu sabia que meu up iria funcionar.. nāo contava com minha astucia .Mestre dos Magos.. rsrs

Penso que a ideia do Sergio, é alterar e mover um certo campo.

Com este abaixo, conseguimos alterar e mover, é apenas o caminho das pedras;



Private Sub Detalhe_Format(Cancel As Integer, FormatCount As Integer)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' FUNÇÃO DE POSICIONAMENTO DE CAMPOS NO RELATÓRIO
' Essa função posiciona os campos do relatório em uma posição específica, observando
' o seguinte detalhe: Se o primeiro campo estiver na posição 50, e seu tamanho for
' 10cm (100mm ou 5000) então o atributo do Left do segundo campo será 5000 mais um
' incremento. O Left do segundo campo será a soma do left e do width do primeiro
'
' OBSERVAÇÕES SOBRE A FUNÇÃO MOVE()
' 1) Função Move(Left, [Top], [Width], [Height])
' 2) Cada milímetro (mm) nessa função equivale a "50"
' 3) Somente Left é obrigatório, o restante é opcional
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Esquerda = 50
Tamanho = 0
Espaco = 150

'''''''''
If Forms!frmRelatorios.chkCpf = -1 Then
Esquerda = Esquerda + Tamanho + Espaco
Tamanho = 2500
Me!Head.Move Esquerda, 0, Tamanho
Else
Esquerda = Esquerda + Tamanho
Tamanho = 0
Me!Head.Move Esquerda, 0, Tamanho
End If
'''''''''
If Forms!frmRelatorios.chkBairro = -1 Then
Esquerda = Esquerda + Tamanho + Espaco
Tamanho = 1200
Me!Colab.Move Esquerda, 0, Tamanho
Else
Esquerda = Esquerda + Tamanho
Tamanho = 0
Me!Colab.Move Esquerda, 0, 0
End If

'''''''''
If Forms!frmRelatorios.chkEndereco = -1 Then
Esquerda = Esquerda + Tamanho + Espaco
Tamanho = 2500
Me!Nom.Move Esquerda, 0, Tamanho
Else
Esquerda = Esquerda + Tamanho
Tamanho = 0
Me!Nom.Move Esquerda, 0, 0
End If
'''''''''
If Forms!frmRelatorios.chkCidade = -1 Then
Esquerda = Esquerda + Tamanho + Espaco
Tamanho = 1200
Me!Cof.Move Esquerda, 0, Tamanho
Else
Esquerda = Esquerda + Tamanho
Tamanho = 0
Me!Cof.Move Esquerda, 0, 0
End If
'''''''''
End Sub

Pessoal, obrigado pelo retorno
o que quero realmene é mover um campo de um relatório, porem o tamanho e o campo a ser movido, são extraídos de uma tabela(onde estao cadastrados todos os nomes de relatórios e campos), então a função do mestre Jpaulo funciona perfeitamente, mas como sao varios relatorios e varios campos, o ideal pra mim é extrair os dados da tabela para fazer apenas alteracao devida. No exemplo que coloquei estava extraindo os dados direto de um formulário

alterando = me.tipo & "!" & me.objeto & "!" & me.campo
alterando.left = 1590

Abraços

Então Sergio, consegue resolver assim ou quer algo elaborado, que eu tento aqui ?

Gostaria sim de algo elaborado que vc tenha, obrigado.


estive pensando tambem que se eu conseguisse carregar o conteudo de uma variavel no objeto control, daria certo tambem, mas nao consegui, ou se eu conseguisse pegar uma variavel do tipo string e alterar para objeto control:

dim caminhoalt as string
camminhoalt = "reports!teste!texto0" '<--- aqui eu consigo ir concatenando e buscando das tabelas
set alterando = caminhoalt '<--- aqui da erro
alterando.left = 1590

Sergio que você quer, acredito ser o simples.

Diga-nos, para onde quer mover, se é para todos os Relatorios, se o relatorio terá o nome em uma tabela, se o campo ou os campos a mover existem em todos os relatorios, etc.....

Dê-nos detalhes.

Ok Amigo
possuo 4 relatorios cada um com cerca de 8 campos cada. São relatório que ja vem impresso da grafica, imprimo apenas os dados(certificados, boletos, cheques....), porem as impressoes tem que ser corretamente em cada campo, e percebi que acontece algumas variacoes conforme mudo a impressora, minha ideia foi de cadastrar em uma tabela os seguintes dados: NOME DO RELATORIO, NOME DO CAMPO, POSICAO ESQUERDA, POSICAO SUPERIOR.
Desta forma eu poderia modificar o posicionamento do campo apenas digitando as posições caso necessário.
eu poderia inclusive armazenar os dados padroes de posicionamento na tabela, pois se o usuario alterasse demais e nao conseguisse voltar eu teria uma forma de "backup"
Passo por problemas tambem quando faco uma atualzação do sistema, pois mesmo que eu deixe o usuario alterar o design do relatorio, quando atulalizo uma versao, estas configurações são perdidas

no ultimo exemplo que criei eu iria pegando os aos necessarios da tabela para fazer as alteracoes

dim caminhoalt as string
camminhoalt = "reports!teste!texto0" '<--- aqui eu coletaria os dados da tabela
set alterando = caminhoalt '<--- aqui da erro
alterando.left = 1590

Bom dia Sergio.

Baseado no que lhe tinha passado acima, veja o simples;

http://dl.dropbox.com/u/771097/sergio.rar

Bom dia JPaulo

obrigado pelo exemplo

mas neste caso eu teria que digitar no codigo um comando para cada campo(Me!XData.Move Esquerda, 0, Tamanho
), que sera alterado, e o que me esta dificultando é que estou envitando isso. Gostaria que eu precisasse digitar apenas em uma tabela os campos e suas posicoes. Tambem precisaria que isso ficasse salvo, no exemplo é apenas na hora da abertura.

por isso minha linha de raciocinio estava que alteração seria enviada apartir de um formulario.

JPaulo, alterei seu exemplo para a maneira que necesito, acredito que fica mais facil o entendimento
http://www.4shared.com/file/buN-UxYS/sergio_alterado.html
obrigado
abraços

Faltou o Resolvido

Bom dia Amigo Vieira
Mas o topico não foi resolvido, observe que minha ultima postagem montei um exemplo para facilitar o que queria, bem por isso não postei como resolvido

Abraços

pessoal este topico foi dado como resolvido, mas nao foi, como nao tenho acesso a altera-lo para nao resolvido, estou postando de novo
http://maximoaccess.forumeiros.com/t5405-resolvidoconteudo-de-objeto-control

obrigado norbs
vou acessar hoje a noite o projeto e posto o resultado
Abraços

Caro norbs
Ao utilizar seu exemplo percebi que teria que criar a funcao para cada campo do relatório, e isso em cada relatório, sendo justo isto que estou tentando evitar, pois gostaria de criar uma funcao em um formulario por exemplo, ondeu pudesse colocar o nome do campo, do relatorio e a posicao. assim eu poderia usar a mesma funcao para diversos campos

abraços