[Resolvido]Excluir linhas de um campo

Senhores,

Existe alguma forma de excluir linhas de uma caixa de texto?

Ex:

Tenho uma caixa de texto com a descrição e outra com a quantidade.

Gostaria de um botão que abrisse uma inputbox pedindo o n° da linha do campo e ao inserir o n° ele apagasse a linha referente ao digitado na input.


OBS: São apenas duas caixas de texto, e os registros (linhas) são separados com VbNewLine.

Deixa Ver se entendi...


Em uma Caixa de texto vc tem:

Fabio
Paes
Maximo
Access


Gostaria que:
Ao clicar em um Botão lhe perguntar por exemplo qual a linha...
VC digita 2

Então ele retorna o seguinte resultado:

Fabio
Maximo
Access


Seria isso amigo?

Exatamente Fabio

Hum... Então, no click de um botão ou evento do seu gosto coloque esse codigo:

Me.txtOrigem = É onde tem os dados da forma como descrevi na mensagem anterior
Me.txtFim= É o Campo que receberá o novo Valor (pode aplica ao mesmo Campo txtOrigem)

Código:

'-------------------------------------------------------'
'              Criado por Fabio Paes                    '
'        Em 07/12/2016 para MaximoAccess                '
'-------------------------------------------------------'
Dim F, P As String
Dim i, lExclusao As Integer
F = Split(Me.txtOrigem, vbNewLine)
'P = "."
'Solicita o Numero da Linha e retrocede um (-1) pois o metodo Split considera a Primeira Linha a de Numero 0 (zero)
lExclusao = InputBox("Entre com o Numero da Linha a ser Excluida", "Excluir a Linha:") - 1
'O Loop Vai de Zero ate a qnt de vbNewline encontrada no texto (UBound(F)) Conta quantos vbNewline tem.
For i = 0 To UBound(F)
If lExclusao <> i Then  'Extrai todo o texto separado pelo VbNewline, exceto o da linha Digitada
P = P & vbNewLine & F(i) 'Monta o Texto que queremos
End If
Next
P = Right(P, (Len(P) - 2))
Me.txtFim = P

Dá o seguinte erro na última linha:

Erro em tempo de execução '-2147352567 (80020009)':
Você não pode atribuir um valor a este objeto.


Lembrando que o txtFim o renomeei de txtOrigem.

Simples amigo, por alguma motivo a Campo que receberá os dados não esta aceitando...

E realmente uma Caixa de Texto?
Ela realmente eta com o Nome Certo? <=== Veja isso!

Funcionou, porém ao excluir a linha 2 automaticamente o valor da linha 1 vai pra linha 2 e a linha 1 fica vazia.
Oque seria?

OBS: Quando há apenas as linhas 1 e 2.

Opa... Na pressa coloquei a Remoção do vbnewline dentro do Loop...

Atualizei o codigo na mensagem anterior!

Obrigado Fabio Paes, sempre quebrando mais um galho.
Código simples e super eficiente.

Obrigado mais uma vez!

Resolvido! ☻☺

Grato pelo retorno! Até a próxima se Deus quiser!

Caro FabioPaes,

Fiz um pequeno tratamento de erro caso deseja-se cancelar a Input e se não houver valor no campo especificado:

Código:

On Error Resume Next
    '-------------------------------------------------------'
    '              Criado por Fabio Paes                    '
    '        Em 07/12/2016 para MaximoAccess                '
    '                                                       '
    '              Modificado por Caio Souza                '
    '        Em 09/12/2016 para MaximoAccess                '
    '-------------------------------------------------------'
    Dim F, P As String
    Dim i, lExclusao As Integer
    
If IsNull(Me.txt_origem) Or Me.txt_origem = "" Then
    Msgbox "Sem Dados"
Else
    F = Split(Me.txt_origem, vbNewLine)
    'P = "."
    'Solicita o Numero da Linha e retrocede um (-1) pois o metodo Split considera a Primeira Linha a de Numero 0 (zero)
    lExclusao = Inputbox("Numero da Linha a ser Excluída", "Excluir a Linha:") - 1
   If lExclusao = 0 Then
        Cancel = True
        Exit Sub
        Exit Sub
    Else
    End If
    'O Loop Vai de Zero ate a qnt de vbNewline encontrada no texto (UBound(F)) Conta quantos vbNewline tem.
    For i = 0 To UBound(F)
    If lExclusao <> i Then   'Extrai todo o texto separado pelo VbNewline, exceto o da linha Digitada
    P = P & vbNewLine & F(i) 'Monta o Texto que queremos
    End If
    Next
    P = Right(P, (Len(P) - 2))
    Me.txt_origem = P