MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


4 participantes

    conteudo objeto control

    avatar
    sergiosdl
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 143
    Registrado : 04/12/2009

    conteudo objeto control Empty conteudo de objeto control

    Mensagem  sergiosdl 1/12/2011, 02:22

    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
    avatar
    Convidado
    Convidado


    conteudo objeto control Empty Re: conteudo objeto control

    Mensagem  Convidado 3/12/2011, 23:40

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    conteudo objeto control Empty Re: conteudo objeto control

    Mensagem  criquio 3/12/2011, 23:48

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


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Convidado
    Convidado


    conteudo objeto control Empty Re: conteudo objeto control

    Mensagem  Convidado 4/12/2011, 00:19

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    conteudo objeto control Empty Re: conteudo objeto control

    Mensagem  JPaulo 5/12/2011, 11:10

    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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    conteudo objeto control Folder_announce_new Utilize o Sistema de Busca do Fórum...
    conteudo objeto control Folder_announce_new 102 Códigos VBA Gratuitos...
    conteudo objeto control Folder_announce_new Instruções SQL como utilizar...
    avatar
    sergiosdl
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 143
    Registrado : 04/12/2009

    conteudo objeto control Empty Re: conteudo objeto control

    Mensagem  sergiosdl 5/12/2011, 11:29

    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
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    conteudo objeto control Empty Re: conteudo objeto control

    Mensagem  JPaulo 5/12/2011, 12:07

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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    conteudo objeto control Folder_announce_new Utilize o Sistema de Busca do Fórum...
    conteudo objeto control Folder_announce_new 102 Códigos VBA Gratuitos...
    conteudo objeto control Folder_announce_new Instruções SQL como utilizar...
    avatar
    sergiosdl
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 143
    Registrado : 04/12/2009

    conteudo objeto control Empty Re: conteudo objeto control

    Mensagem  sergiosdl 5/12/2011, 13:12

    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
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    conteudo objeto control Empty Re: conteudo objeto control

    Mensagem  JPaulo 6/12/2011, 14:14

    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.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    conteudo objeto control Folder_announce_new Utilize o Sistema de Busca do Fórum...
    conteudo objeto control Folder_announce_new 102 Códigos VBA Gratuitos...
    conteudo objeto control Folder_announce_new Instruções SQL como utilizar...
    avatar
    sergiosdl
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 143
    Registrado : 04/12/2009

    conteudo objeto control Empty Re: conteudo objeto control

    Mensagem  sergiosdl 6/12/2011, 19:10

    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
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    conteudo objeto control Empty Re: conteudo objeto control

    Mensagem  JPaulo 7/12/2011, 10:03

    Bom dia Sergio.

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

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



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    conteudo objeto control Folder_announce_new Utilize o Sistema de Busca do Fórum...
    conteudo objeto control Folder_announce_new 102 Códigos VBA Gratuitos...
    conteudo objeto control Folder_announce_new Instruções SQL como utilizar...
    avatar
    sergiosdl
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 143
    Registrado : 04/12/2009

    conteudo objeto control Empty Re: conteudo objeto control

    Mensagem  sergiosdl 7/12/2011, 15:59

    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.
    avatar
    sergiosdl
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 143
    Registrado : 04/12/2009

    conteudo objeto control Empty Re: conteudo objeto control

    Mensagem  sergiosdl 7/12/2011, 16:38

    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
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    conteudo objeto control Empty Re: conteudo objeto control

    Mensagem  vieirasoft 20/1/2012, 11:04

    Faltou o Resolvido
    avatar
    sergiosdl
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 143
    Registrado : 04/12/2009

    conteudo objeto control Empty Re: conteudo objeto control

    Mensagem  sergiosdl 20/1/2012, 12:12

    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
    avatar
    sergiosdl
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 143
    Registrado : 04/12/2009

    conteudo objeto control Empty conteudo objeto control

    Mensagem  sergiosdl 21/1/2012, 13:56

    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
    avatar
    Convidad
    Convidado


    conteudo objeto control Empty Re: conteudo objeto control

    Mensagem  Convidad 4/2/2012, 13:49


    Estava revisando os tópicos sem resposta, e me ocorreu esta ideia:

    Se vc tem uma tabela onde registra o nome do relatório e o nome e a posição do campo, pode buscar esta informação com a função DLookup, e inserir uma rotina num evento no relatório.

    Algo assim:

    NomeDoCampo.Left = DLookup("PosiçãoEsquerda", "TabelaDePosições", "NomeDoRelatório = Me.Name And NomeDoCampoNaTabela = Me.NomeDoCampo")
    avatar
    sergiosdl
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 143
    Registrado : 04/12/2009

    conteudo objeto control Empty Re: conteudo objeto control

    Mensagem  sergiosdl 6/2/2012, 11:22

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 143
    Registrado : 04/12/2009

    conteudo objeto control Empty Re: conteudo objeto control

    Mensagem  sergiosdl 8/2/2012, 16:39

    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

    Conteúdo patrocinado


    conteudo objeto control Empty Re: conteudo objeto control

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 14:57