MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Função Instr

    Edgar Massa
    Edgar Massa
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  Edgar Massa em 30/10/2019, 18: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 : 323
    Registrado : 12/01/2015

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

    Mensagem  renpv em 31/10/2019, 14: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
    Edgar Massa
    Edgar Massa
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  Edgar Massa em 11/11/2019, 20:18

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

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

    Respeito às Regras 100%

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

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

    Mensagem  Edgar Massa em 11/11/2019, 20:18

    cheers cheers
    avatar
    renpv
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  renpv em 12/11/2019, 11:42

    O fórum agradece o retorno

    Sucesso

      Data/hora atual: 3/12/2020, 19:21