[Resolvido]Nova ajuda com campos memo numerados

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.

Peço desculpa mas precisava disso com urgencia

up

up

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

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

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.

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.

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.

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

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 ?

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

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.

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

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

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.

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.

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

Ainda estou sem entender o que deseja....

deseja uma linha separando os numeros do texto?

1. | texto xxxxxxxx


e que essa barra acompanhe o aumento da caixa texto?


Cumprimentos.

e isso. ve exemplo

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.

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

E ae Nuno, funcionou como desejava ?

Na falta de retorno, tópico Resolvido.

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

No aguardo.

Tópico manter-se-á aberto.

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.

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

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

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

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

JPaulo

já conseguiste algum resultado, agradeço

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

ok obrigado na mesma