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


3 participantes

    [Resolvido]Nova ajuda com campos memo numerados

    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Nova ajuda com campos memo numerados Empty [Resolvido]Nova ajuda com campos memo numerados

    Mensagem  toyebom 3/8/2012, 23:25

    Peço por favor a nova ajuda com campo memo numerado, desta vez ao escrever um texto, sempre que muda de linha por chega ao fim da mesma ou se carrego "ENTER", numera no lado direito do relatório e do form.
    Junto um exemplo de como quero.
    Ao escrever no form, no campo 11, a caixa de texto desvinculada numera automáticamente conforme está no rótulo. E no relatório faz igual.
    Tanto o campo memo como a caixa de texto desvinculada, ao escrever tem a propriedade apliar sim.
    Se fosse ainda possivel, também queria que no relatório, a caixa de texto desvinculada ficasse com a lateral direita com linha preta e as restantes 3 laterais transparentes, nesse caso já tentei:

    "ao imprimir"
    Private Sub Detalhe_Print(Cancel As Integer, PrintCount As Integer)
    Me.ScaleMode = 1 'Unidade em twips (1/1440 inch ou 1/567 cm)
    Me.ForeColor = 0
    Me.Line (1 * 1440, 0)-(1 * 1440, 14400) 'A 1 polegada
    End Sub

    mas não é isso que quero, quero apenas a caixa de texto desvinculada fique com linha e não do inicio da página até ao final, uma vez que debaixo dessa caixa vou escrever outras coisas e não quero numeração nem linhas.


    Última edição por toyebom em 4/8/2012, 18:27, editado 1 vez(es)
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Nova ajuda com campos memo numerados Empty Nova ajuda com campos memo numerados

    Mensagem  toyebom 4/8/2012, 18:24

    Peço desculpa mas precisava disso com urgencia
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Nova ajuda com campos memo numerados Empty Nova ajuda com campos memo numerados

    Mensagem  toyebom 5/8/2012, 22:14

    up
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Nova ajuda com campos memo numerados Empty Nova ajuda com campos memo numerados

    Mensagem  toyebom 6/8/2012, 21:59

    up
    Fernando Bueno
    Fernando Bueno
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2115
    Registrado : 13/04/2012

    [Resolvido]Nova ajuda com campos memo numerados Empty Re: [Resolvido]Nova ajuda com campos memo numerados

    Mensagem  Fernando Bueno 6/8/2012, 23:09

    toyebom
    Boa noite meu amigo.

    Não entendi muito bem o que precisa, quer que não saia a numeração de 1 a 8 nas linhas no relatório?

    Me explique um pouco mais com detalhes..


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Resolvido]Nova ajuda com campos memo numerados 16rzeq
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Nova ajuda com campos memo numerados Empty Nova ajuda com campos memo numerados

    Mensagem  toyebom 7/8/2012, 00:30

    a base que mandei de exemplo está até oito, no entanto quero é que se escrever apenas 1 linha numere com 01 se escrevo por exemplo 20 ou mais numera todas. a caixa de texto onde tens os numeros é o exemplo como quero que fique na caixa do lado esquerdo quando escrevo no campo memo do lado direito

    é parecido com isto

    http://maximoaccess.forumeiros.com/t8742-resolvidoajuda-com-numeracao

    http://maximoaccess.forumeiros.com/t8744-numera-linhas-em-campo-memo

    só que quando escrevo não apaga, mantem onde escrevo e se apagar alguma linha, acerta automáticamente a numeração
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Nova ajuda com campos memo numerados Empty Re: [Resolvido]Nova ajuda com campos memo numerados

    Mensagem  JPaulo 7/8/2012, 11:31

    Ola Nuno bom dia !

    Esteja atento por favor às regras, não utilize palavras como esta, URGENTE.

    Veja se é o que pretende;


    Nota:

    Tópico movido para a Sala de Formulários.
    Anexos
    [Resolvido]Nova ajuda com campos memo numerados AttachmentDatabase2_2003_OLD - Cópia.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (266 Kb) Baixado 67 vez(es)


    .................................................................................
    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

    [Resolvido]Nova ajuda com campos memo numerados Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Nova ajuda com campos memo numerados Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Nova ajuda com campos memo numerados Folder_announce_new Instruções SQL como utilizar...
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Nova ajuda com campos memo numerados Empty Nova ajuda com campos memo numerados

    Mensagem  toyebom 7/8/2012, 14:27

    não é bem isto que quero, quero a numeração na caixa de baixo mas o texto mantém-se na de cima, não apaga quando carrego "Enter", é como se estivesse a escrever este texto e ficasse numerado de lado em outra caixa. "Não apaga ao dar ENTER" apenas manda a numeração para a caixa de baixo.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Nova ajuda com campos memo numerados Empty Re: [Resolvido]Nova ajuda com campos memo numerados

    Mensagem  JPaulo 7/8/2012, 14:41

    Pense comigo;

    1º Como é que você consegue relacionar a numeração numa caixa ou rotulo, com a frase que escreveu ?

    2º Como é que vai fazer a numeração somar + 1, ou iniciar do 1 ?

    Se conseguir tal profecia, coloque aqui que também gostariamos de aprender.



    .................................................................................
    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

    [Resolvido]Nova ajuda com campos memo numerados Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Nova ajuda com campos memo numerados Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Nova ajuda com campos memo numerados Folder_announce_new Instruções SQL como utilizar...
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Nova ajuda com campos memo numerados Empty Nova ajuda com campos memo numerados

    Mensagem  toyebom 7/8/2012, 16:34

    Tentei a tua dica, alterei e consegui o que queria, agora so peço ajuda para no relatório colocar uma linha escura do lado direito do campo que cria a numeração ficando as outras 3 invisiveis.

    Já agora, não consegui fazer foi ao apagar uma linha reverter "acertar" a numeração, visto que ao dar enter cria numero seguinte.

    Junto remeto bd alterada como queria.

    Obrigado pelo exemplo
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Nova ajuda com campos memo numerados Empty Re: [Resolvido]Nova ajuda com campos memo numerados

    Mensagem  JPaulo 7/8/2012, 16:42

    Quer então dizer, que se der um Enter na ultima palavra "tratamento", ele numera a linha Nº8, é isso ?

    Já testou ?

    E quando chegar ao Nº12, fica certa (alinhada) a numeração com a linha ?


    .................................................................................
    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

    [Resolvido]Nova ajuda com campos memo numerados Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Nova ajuda com campos memo numerados Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Nova ajuda com campos memo numerados Folder_announce_new Instruções SQL como utilizar...
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Nova ajuda com campos memo numerados Empty Nova ajuda com campos memo numerados

    Mensagem  toyebom 7/8/2012, 21:48

    é afirmativo, funciona so não enviei a bd em condições por lapso, falta configurar o tipo de letra e o tamanho em ambas as caixas. Ai fica certo e não basta se atá 12 pode se até 100 ou mais.

    E quanto á segunda parte do meu pedido, podes ajudar?
    Quero que a caixa do lado esquerdo fique com a lateral direito a preto e as outas transparentes. é parecido com o efeito especial cinzelado só que em vez de ser por baixo é do lado direito.
    E a outra é que quando elimino uma linha de texto, a numeração da caixa esquerda reduz um numero e continua sequencial.
    avatar
    Convidado
    Convidado


    [Resolvido]Nova ajuda com campos memo numerados Empty Re: [Resolvido]Nova ajuda com campos memo numerados

    Mensagem  Convidado 11/8/2012, 17:10

    Boas Nuno... Observando o tópico e considerando que fiz o exemplo inicial desta dúvida, observo que o Mestre João Paulo tem razão.

    Veja porque:

    1 - O exemplo original utiliza uma variável que vai sendo incrementada a cada enter.. somando o texto digitado ao que está no campo memo, assim a numeração e texto ficam ambos na mesma caixa texto.
    2 - Você separou numeração e texto em caixas diferentes e aqui entra a observação do JP. Como relacionaria o numero a linha? Como ao apagar uma linha na caixa texto saiba que linha foi apagada e reorganize as informações?

    Da forma como estava anteriormente daria para se excluir a ultima linha verificar qual o ultimo numero válido para ai reiniciar a numeração...


    Bem... são algumas observações.... No caso talvez so se existir algum código que conte quantas linhas foram digitadas no campo mesmo e renumere a caixa texto com a numeração. Não sei se é possivel

    Cumprimentos.
    avatar
    Convidado
    Convidado


    [Resolvido]Nova ajuda com campos memo numerados Empty Re: [Resolvido]Nova ajuda com campos memo numerados

    Mensagem  Convidado 11/8/2012, 18:20

    Bem... fiz algo aqui, teste e vá adaptando conforme sua necessidade... as ideias vão surgindo caso seja conforme necessita.. vamos evoluindo.

    Bem a lógica é separar os numeros no campo por um caracter delimitador (no caso o . "Ponto") e assim extrair o ultimo numero do campo, evitando assim se digitar recomecar do inicio.


    De início os nome de campos em tua tabela estão equivocados... renommei alguns.
    001 >>> ID
    11 >>> CpNumero



    Private Sub valores_furtados_KeyDown(KeyCode As Integer, Shift As Integer)
    Dim XNum As String
    If KeyCode = 13 Then
    'Adiciono na variável XNum a informação contida no campo CpNumero filtrado pelo ofício
    XNum = Nz(DLookup("CpNumero", "[Oficio Normal]", "ID =" & Me.txtID & ""),"")
    'Extraio o último numero válido contido na variável
    XNum = Mid([XNum], InStrRev([XNum], ".") + 1)
    MsgBox XNum
    'Caso a pesquisa retorne um registro válido(ja existente) renumero a variável publica a partir da variavel + 1, assim de o ultimo numero for o 7, o proximo será o 8
    If XNum <> "" Then
    X = CInt(XNum) + 1
    StrTexto = Me.CpMEMO & vbCrLf & ". " & X
    Me.CpMEMO = StrTexto
    Me.CpMEMO = LTrim(Me.CpMEMO)
    Me.valores_furtados.SetFocus
    Else
    If X = Empyt Then
    X = 1
    StrTexto = X
    Me.CpMEMO = ". " & StrTexto
    Else
    X = X + 1
    StrTexto = Me.CpMEMO & vbCrLf & ". " & X
    Me.CpMEMO = StrTexto
    Me.CpMEMO = LTrim(Me.CpMEMO)
    End If
    End If
    RunCommand acCmdSaveRecord
    Me.valores_furtados.SetFocus
    'Posiciona o cursor no final da caixa texto
    Me.valores_furtados.SelStart = Len(Me.valores_furtados)
    End If
    End Sub

    Obs. Tanto no código acima como no código do Botão editar para o campo numero, é bom salvar o registro, pois pode ser que ao adicionar um numero manualmente, este ainda nao esteja atualizado no form.


    Private Sub Command702_Click()

    If Me.CpMEMO.Enabled = False And Me.Command702.Caption = "Editar" Then
    Me.CpMEMO.Enabled = True
    Me.Command702.Caption = "Fechar Edição"
    Me.Command702.ForeColor = vbRed
    Exit Sub
    End If

    If Me.CpMEMO.Enabled = True And Me.Command702.Caption = "Fechar Edição" Then
    Me.CpMEMO.Enabled = False
    Me.Command702.Caption = "Editar"
    Me.Command702.ForeColor = vbBlack
    RunCommand acCmdSaveRecord
    Exit Sub
    End If

    End Sub

    https://dl.dropbox.com/u/26441349/ToyeBom.rar


    avatar
    Convidado
    Convidado


    [Resolvido]Nova ajuda com campos memo numerados Empty Re: [Resolvido]Nova ajuda com campos memo numerados

    Mensagem  Convidado 11/8/2012, 19:18

    Agora um detalhe...

    Quando tiver muitas linhas digitadas... como fazer para que ao Digitar o texto a caixa ao lado acompanhe em sua rolagem???

    hum... talvez a primeira opção de numeração no proprio campo seja mais viável..Pense nisso.

    Cumprimentosl
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Nova ajuda com campos memo numerados Empty Nova ajuda com campos memo numerados

    Mensagem  toyebom 12/8/2012, 23:43

    ok obrigado e quase isto q quero. assim pode servir.
    e quanto á formatação para no relatório ficar a lateral direita com linha preta e as outras 3 ocultas? será q dá??? agradeço.
    avatar
    Convidado
    Convidado


    [Resolvido]Nova ajuda com campos memo numerados Empty Re: [Resolvido]Nova ajuda com campos memo numerados

    Mensagem  Convidado 13/8/2012, 16:59

    Primeiro... Atentou para o que falei no post anterior????

    Quando digitar nova linha, em caso de muitas.. a caixa texto do lado nao acompanhará a rolagem!!!!
    Compreendeu?


    Quanto ao relatorio.. nao ficou claro... seja mais especifico


    Cumprimentos.
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Nova ajuda com campos memo numerados Empty Nova ajuda com campos memo numerados

    Mensagem  toyebom 13/8/2012, 19:01

    testei e em principio resulta, so tenho que configuar amboas as caixas para o mesmo tipo de letra e tamanho, esperimentei arial 10 e pareceu-me dar.

    no relatório, a caixa de texto "cpMEMO" que fica com a numeração, queria que ficasse com o lado direito visivel e o lado esquerdo, cima e baixo, oculto, ou seja a configuação (contorno) só ficasse o lado direito á vista.

    já tentei
    Private Sub Detalhe_Print(Cancel As Integer, PrintCount As Integer)
    Me.ScaleMode = 1 'Unidade em twips (1/1440 inch ou 1/567 cm)
    Me.ForeColor = 0
    Me.Line (1 * 1440, 0)-(1 * 1440, 14400) 'A 1 polegada
    End Sub

    no entanto isso cria-me uma linha desde o inicio do delatório até ao rodape e se coloco o código da propria caixa não resulta porque eu quero apenas na caixa e não no elatório todo.

    tipo:
    lateral direita visible = true

    cima, baixo e lateral esquerda visible = false
    avatar
    Convidado
    Convidado


    [Resolvido]Nova ajuda com campos memo numerados Empty Re: [Resolvido]Nova ajuda com campos memo numerados

    Mensagem  Convidado 13/8/2012, 19:33

    Ainda estou sem entender o que deseja....
    avatar
    Convidado
    Convidado


    [Resolvido]Nova ajuda com campos memo numerados Empty Re: [Resolvido]Nova ajuda com campos memo numerados

    Mensagem  Convidado 13/8/2012, 19:51

    deseja uma linha separando os numeros do texto?

    1. | texto xxxxxxxx


    e que essa barra acompanhe o aumento da caixa texto?


    Cumprimentos.
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Nova ajuda com campos memo numerados Empty Nova ajuda com campos memo numerados

    Mensagem  toyebom 14/8/2012, 01:04

    e isso. ve exemplo
    avatar
    Convidado
    Convidado


    [Resolvido]Nova ajuda com campos memo numerados Empty Re: [Resolvido]Nova ajuda com campos memo numerados

    Mensagem  Convidado 14/8/2012, 16:03

    Foi conforme pensei.. ontem tentei e não consegui...

    Pensei em aplicar uma linha, e no código igualar a altura da mesma com o da caixa texto... A lógica seria funcional, porem so consegui extrair a altura final da caixa texto em eventos Ao Imprimir, porem neste evento não aceita o comando:

    Me.Linha.Height = Me.txtExtenso.Height

    ... se aceitasse o tamanho da linha seria equivalente ao da caixa texto... porém não aceitou.


    Cumprimentos.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Nova ajuda com campos memo numerados Empty Re: [Resolvido]Nova ajuda com campos memo numerados

    Mensagem  JPaulo 14/8/2012, 17:39

    PILOTO não é tão facil como parece, vejam a linha no Relatorio a expandir consoante os registros.

    1º Coloque as bordas da caixa de texto, transparentes.
    2º Cole este código, dentro do VBA do Relatório, sem alterar e teste....

    Ou veja já a funfar no Exemplo.


    Private Sub Detalhe_Print(Cancel As Integer, PrintCount As Integer)
    'By JPaulo ® Maximo Access
    'Cria uma linha que acompanha as dimensões da caixa de texto em referência
    Dim strTopoLinha As Single
    Dim strDireitaLinha As Single
    Dim strLarguraLinha As Single
    Dim strAlturaLinha As Single

    Const IntEscala = 1
    Const IntEstilo = 0

    Me.ScaleMode = IntEscala
    Me.DrawStyle = IntEstilo

    strTopoLinha = Me.CpMEMO.Top
    strDireitaLinha = Me.txtExtenso.Left - 80 'acerta a linha mais à esquerda ou direita
    strLarguraLinha = 20
    With Me.txtExtenso
    strAlturaLinha = .Top + .Height
    End With

    Me.Line (strDireitaLinha, strTopoLinha)-Step(strLarguraLinha, strAlturaLinha), , BF
    End Sub




    Anexos
    [Resolvido]Nova ajuda com campos memo numerados AttachmentToyeBom_OLD.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (122 Kb) Baixado 74 vez(es)


    .................................................................................
    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

    [Resolvido]Nova ajuda com campos memo numerados Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Nova ajuda com campos memo numerados Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Nova ajuda com campos memo numerados Folder_announce_new Instruções SQL como utilizar...
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Nova ajuda com campos memo numerados Empty Re: [Resolvido]Nova ajuda com campos memo numerados

    Mensagem  JPaulo 15/8/2012, 10:28

    E ae Nuno, funcionou como desejava ?

    Na falta de retorno, tópico Resolvido.


    .................................................................................
    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

    [Resolvido]Nova ajuda com campos memo numerados Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Nova ajuda com campos memo numerados Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Nova ajuda com campos memo numerados Folder_announce_new Instruções SQL como utilizar...
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Nova ajuda com campos memo numerados Empty Nova ajuda com campos memo numerados

    Mensagem  toyebom 16/8/2012, 17:25

    peço desculpa mas ainda não testei
    só agora é que vim ao forum
    estava sem net
    vou testar e depois digo
    obrigado
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Nova ajuda com campos memo numerados Empty Re: [Resolvido]Nova ajuda com campos memo numerados

    Mensagem  JPaulo 16/8/2012, 17:56

    No aguardo.

    Tópico manter-se-á aberto.


    .................................................................................
    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

    [Resolvido]Nova ajuda com campos memo numerados Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Nova ajuda com campos memo numerados Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Nova ajuda com campos memo numerados Folder_announce_new Instruções SQL como utilizar...
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Nova ajuda com campos memo numerados Empty Nova ajuda com campos memo numerados

    Mensagem  toyebom 16/8/2012, 18:27

    Muito obrigado
    resulta na perfeição.

    peço desculpa mas fiz uma pequena correcção

    Private Sub Detalhe_Print(Cancel As Integer, PrintCount As Integer)
    'By JPaulo ® Maximo Access
    'Cria uma linha que acompanha as dimensões da caixa de texto em referência
    Dim strTopoLinha As Single
    Dim strDireitaLinha As Single
    Dim strLarguraLinha As Single
    Dim strAlturaLinha As Single

    Const IntEscala = 1
    Const IntEstilo = 0

    Me.ScaleMode = IntEscala
    Me.DrawStyle = IntEstilo

    strTopoLinha = Me.txtExtenso.Top
    strDireitaLinha = Me.CpMEMO.Left + 680 'acerta a linha mais à esquerda ou direita
    strLarguraLinha = 2
    With Me.CpMEMO
    strAlturaLinha = .Top + .Height
    End With

    Me.Line (strDireitaLinha, strTopoLinha)-Step(strLarguraLinha, strAlturaLinha), , BF
    End Sub

    só queria uma ultima ajuda, no campo txtExtenso, na bd que utilizo tenho a mesma como oculta e por cima da mesma uma caixa desvinculada com o nome txtJust com o seguinte código:

    Private Sub Detalhe_Format(Cancel As Integer, FormatCount As Integer)
    Me![txtJust] = Justifica(Me![txtExtenso], Me![txtJust], Me)
    End Sub

    ou seja, escrevo na caixa txtExtenso que está oculta e me repete o que escrevo na caixa txtJust que está visivel em texto justificado.

    o que eu queria era que ficasse o que escrevo em sublinado, contudo, queo o sublinhado em pontos e sempre até ao final de cada linha que escrevo (final da folha margem direita) e não como o access faz a sublinhar apenas as frazes até á ultima letra e com linha.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Nova ajuda com campos memo numerados Empty Re: [Resolvido]Nova ajuda com campos memo numerados

    Mensagem  JPaulo 17/8/2012, 09:08

    Era mesmo para você adaptar à sua necessidade, fico feliz de funcionar.

    O Access permite fazer o:

    Private Sub SuaCaixaTexto_Change()
    Me.SuaCaixaTexto.FontUnderline = True
    End Sub


    Mas pelo que entendi, você quer em Dots.

    Hoje vou ver o que poderei fazer (mediante o meu tempo disponivel).


    .................................................................................
    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

    [Resolvido]Nova ajuda com campos memo numerados Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Nova ajuda com campos memo numerados Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Nova ajuda com campos memo numerados Folder_announce_new Instruções SQL como utilizar...
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Nova ajuda com campos memo numerados Empty Nova ajuda com campos memo numerados

    Mensagem  toyebom 17/8/2012, 09:33

    peço desculpa mas tive um problema com o teu código ao inseri-lo noutro relatório.

    Utilizo o a caixa CpMemo que copiei para não fazer grandes alterações, copiei também a caixa txtExtenso, no entanto ficou nomada com outro nome tipo texto323. Até ai tudo bem.
    Coloquei o teu código e mudei

    strTopoLinha = Me.txtExtenso.Top

    para

    strTopoLinha = Me.texto323.Top

    no entanto, em vez de me colocar a linha na caixa como no exemplo que me mandaste coloca a mesma desde o inicio do relatório (cabeçalho) até ao inicio da caixa CpMemo parando ai. Ou seja, é um relatório de duas páginas com várias caixas de texto ampliáveis conforme escrevo, onde a caixa CpMemo fica na segunda mas a linha ocupa toda a primeira página e continua até ao topo da caixa CpMemo parando ai.
    Já tentei várias configurações e mudar os nomes das caixas mas não resulta.´
    Eu mandava-te a BD para veres mas tem cerca de 700 Mb e a minha net é mmmuuuuiiiiittttttooooooo lenta pelo que demorava "Anos" a enviar.

    ................

    Private Sub SuaCaixaTexto_Change()
    Me.SuaCaixaTexto.FontUnderline = True
    End Sub

    Desta forma não dá porque só me sublinha o texto e eu quero até final folha



    Última edição por toyebom em 19/8/2012, 13:15, editado 1 vez(es)
    avatar
    Convidad
    Convidado


    [Resolvido]Nova ajuda com campos memo numerados Empty Re: [Resolvido]Nova ajuda com campos memo numerados

    Mensagem  Convidad 17/8/2012, 10:11

    http://www.lebans.com/PrintLines.htm

    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Nova ajuda com campos memo numerados Empty Nova ajuda com campos memo numerados

    Mensagem  toyebom 18/8/2012, 18:59

    ok quanto a linha vertical já consegui da seguinte forma

    Private Sub Detalhe_Print(Cancel As Integer, PrintCount As Integer)
    Dim strTopoLinha As Single
    Dim strDireitaLinha As Single
    Dim strLarguraLinha As Single
    Dim strAlturaLinha As Single

    Const IntEscala = 1
    Const IntEstilo = 0

    Me.ScaleMode = IntEscala
    Me.DrawStyle = IntEstilo

    strTopoLinha = Me.CpMEMO.Top
    strDireitaLinha = Me.txtJust.Left - 80
    strLarguraLinha = 2
    With Me.txtJust
    strAlturaLinha = .Height
    End With

    Me.Line (strDireitaLinha, strTopoLinha)-Step(strLarguraLinha, strAlturaLinha), , BF

    strTopoLinha = Me.Texto566.Top
    strDireitaLinha = Me.Texto494.Left - 80
    strLarguraLinha = 2
    With Me.Texto494
    strAlturaLinha = .Height
    End With

    Me.Line (strDireitaLinha, strTopoLinha)-Step(strLarguraLinha, strAlturaLinha), , BF
    End Sub


    foi só mudar
    strAlturaLinha = .Top + .Height
    para
    strAlturaLinha = .Height

    no entanto se escrevo mais de 55 paragrafos, a linha vais para a primeira página fora da caixa CpMemo e a segunda linha vertical colocada na caixa Texto566 desaparece.

    Quanto ao texto sublinhado com dots até final paragrafo ainda não consegui.
    tentei
    Private Sub SuaCaixaTexto_Change()
    Me.SuaCaixaTexto.FontUnderline = True
    End Sub
    no entanto só sublinha até ao final do texto acompanhando apenas este e eu queria até final da linha, borda direita do report em pontos ou então de outra cor tipo texto preto e sublinhado cinza que vá até final paragrafo ficando todas as linhas justificadas

    Agradeço ajuda

    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Nova ajuda com campos memo numerados Empty Nova ajuda com campos memo numerados

    Mensagem  toyebom 19/8/2012, 13:13

    JPaulo

    já conseguiste algum resultado, agradeço
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Nova ajuda com campos memo numerados Empty Re: [Resolvido]Nova ajuda com campos memo numerados

    Mensagem  JPaulo 20/8/2012, 11:36

    Bom Dia Nuno;

    Até ao momento não consegui inserir Dots nas linhas do Controle Memo, pelo pouco que pesquisei, vai ser dificil.

    Sugeria que inseri-se um Controle ActiveX que funciona como se fosse no Word, talvez se consiga por aí.

    Microsoft Rich Textbox Control



    .................................................................................
    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

    [Resolvido]Nova ajuda com campos memo numerados Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Nova ajuda com campos memo numerados Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Nova ajuda com campos memo numerados Folder_announce_new Instruções SQL como utilizar...
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Nova ajuda com campos memo numerados Empty Nova ajuda com campos memo numerados

    Mensagem  toyebom 20/8/2012, 22:22

    ok obrigado na mesma

    Conteúdo patrocinado


    [Resolvido]Nova ajuda com campos memo numerados Empty Re: [Resolvido]Nova ajuda com campos memo numerados

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 17:33