[Resolvido]Função Instr

Galera

Boa tarde

Estou usando a função INSTR e a função INSTRREV numa coluna, onde pega um texto que fica dentro de duas TAG, inicia com [BBSEG] e fecha o texto com a TAG [/BBSEG],
usei o código abaixo:

Dim db As DAO.Database
Dim OrigemLembretes As DAO.Recordset
Dim DestinoLembretes As DAO.Recordset

Set db = CurrentDb
Set OrigemLembretes = db.OpenRecordset("SELECT * FROM Query_Lembretes_AI") 'Nome da tabela Origem
Set DestinoLembretes = db.OpenRecordset("SELECT * FROM TB_LEMBRETES")

Dim BBSEG
Dim BarraBBSEG As Integer
Dim Comentário As String
Dim Incr_BBSEG As Integer

Incr_BBSEG = 1

BBSEG = InStr(Incr_BBSEG, OrigemLembretes!comentários, "[BBSEG]")
BarraBBSEG = InStr(BBSEG, OrigemLembretes!comentários, "[/BBSEG]") - BBSEG + 8
Comentário = Mid(OrigemLembretes!comentários, BBSEG, BarraBBSEG)

Incr_BBSEG = BarraBBSEG + 1




Dessa forma eu consigo pegar o texto [BBSEG] ..texto.. [/BBSEG]


minha dúvida é, como uso um FOR por exemplo nessa situação, pra incrementa a variável "Incr_BBSEG = BarraBBSEG + 1" ?

Pelo que entendi você quer usar um comando de repetição para navegar nos dados de um recordset. Se for isso, tente o código abaixo:

Código:



If Not (rs.EOF And rs.BOF) Then 'Verifica se existem linhas no recordset
    rs.MoveFirst 'Esse comando garante que o ponteiro seja movido para o primeiro registro do recordset
    Do Until rs.EOF = True
       
        'O código a ser executado vai aqui

        BBSEG = InStr(Incr_BBSEG, OrigemLembretes!comentários, "[BBSEG]")
        BarraBBSEG = InStr(BBSEG, OrigemLembretes!comentários, "[/BBSEG]") - BBSEG + 8
        Comentário = Mid(OrigemLembretes!comentários, BBSEG, BarraBBSEG)
       
        rs.MoveNext 'Esse comando move para o próximo registro
    Loop
Else
    MsgBox "Não foram encontrados registros"
End If


Maravilha, era isto mesmo que eu precisava !!!!!!!

Valeeeeu amigão !!!

O fórum agradece o retorno

Sucesso