MaximoAccess

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

Obrigado

Administração do MaximoAccess

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


    [Resolvido]Função Instr

    avatar
    Edgar Massa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 08/01/2017

    [Resolvido]Função Instr Empty [Resolvido]Função Instr

    Mensagem  Edgar Massa em Qua 30 Out 2019, 14:02

    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" ?
    avatar
    renpv
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 211
    Registrado : 12/01/2015

    [Resolvido]Função Instr Empty Re: [Resolvido]Função Instr

    Mensagem  renpv em Qui 31 Out 2019, 10:23

    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
    avatar
    Edgar Massa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 08/01/2017

    [Resolvido]Função Instr Empty Re: [Resolvido]Função Instr

    Mensagem  Edgar Massa em Seg 11 Nov 2019, 17:18

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

    Valeeeeu amigão !!! cheers
    avatar
    Edgar Massa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 08/01/2017

    [Resolvido]Função Instr Empty Re: [Resolvido]Função Instr

    Mensagem  Edgar Massa em Seg 11 Nov 2019, 17:18

    cheers cheers
    avatar
    renpv
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 211
    Registrado : 12/01/2015

    [Resolvido]Função Instr Empty Re: [Resolvido]Função Instr

    Mensagem  renpv em Ter 12 Nov 2019, 08:42

    O fórum agradece o retorno

    Sucesso

    Conteúdo patrocinado

    [Resolvido]Função Instr Empty Re: [Resolvido]Função Instr

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Qui 14 Nov 2019, 22:10