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]Acessar link em um campo de texto

    annissima
    annissima
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 57
    Registrado : 24/10/2017

    [Resolvido]Acessar link em um campo de texto Empty [Resolvido]Acessar link em um campo de texto

    Mensagem  annissima em 29/7/2019, 02:12

    Olá!

    Eu criei uma macro que executa busca de vários links.
    Inicialmente, eu criei uma linha de código para cada link.

    Assim:



    Código:
    Public Function fncPesquisaMov()

    Dim GC As Object
    Dim WebUrl As String
    Dim NavigatorAddress As String

        Let NavigatorAddress = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
        Set GC = CreateObject("InternetExplorer.Application")
      
     
    'Abrir as páginas
     
    'exemplo de pagina uol
    Let WebUrl = "https://www.uol.com.br"
        Shell (NavigatorAddress & " -url " & WebUrl)
        Sleep (2500)
      
    'exemplo de pagina google
    Let WebUrl = "https://www.google.com.br"
        Shell (NavigatorAddress & " -url " & WebUrl)
        Sleep (2500)
     

    End Function


    Eu queria saber se é possível acessar os links que estejam armazenados em um campo de uma tabela.

    Tabela: clientes
    campo: PesqNome

    com a ajuda do mestre ahteixeira eu estudei um pouco do rescorset que ele me mandou e consegui fazer o codigo rodar uma consulta (qyr_clts)

    Nessa consulta tem o campo PesqNome, que originalmente era da tabela clientes.

    A questão é: como fazer a WebUrl = PesqNome?

    Código:
    Dim GC As Object
    Dim WebUrl As String
    Dim NavigatorAddress As String

        Let NavigatorAddress = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
        Set GC = CreateObject("InternetExplorer.Application")
      
    'fazer recorset

        Dim DBs As DAO.Database
        Dim RSt As DAO.Recordset
        Set DBs = CurrentDb

                
        Set RSt = DBs.OpenRecordset("qyr_clts")     'abre a consulta previamente criada
        
        If RSt.RecordCount = 0 Then                          'se não encontra registos avisa e sai
            AutoCloseMsgBox "Não há clientes cadastrados", "Informação", 3
            
            Exit Sub
        End If
        
        RSt.MoveFirst                                        'coloca-se no 1º registro

        Do While Not RSt.EOF                                 'percorre todos os registros
        
        Sleep (500)
            

    'Abrir as páginas de consulta

    Let WebUrl = ????????????????????????????

        Shell (NavigatorAddress & " -url " & WebUrl)
        Sleep (2500)

            
            DoEvents                                        'manda executar eventos
            
            RSt.Edit                                         'edita registo
            RSt.Update                                       'atualiza registo
            RSt.MoveNext                                     'move para proximo registo
        Loop
            
        RSt.Close: Set RS = Nothing                          'fecha recordeset e limpa da memoria
        DBs.Close: Set DB = Nothing                          'fecha base dados e limpa da memoria

            AutoCloseMsgBox "Pesquisa por Nome concluída", "Concluído", 3
    End Sub
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1071
    Registrado : 22/11/2016

    [Resolvido]Acessar link em um campo de texto Empty Re: [Resolvido]Acessar link em um campo de texto

    Mensagem  IvanJr. em 29/7/2019, 04:11

    Código:
    Let WebUrl = ????????????????????????????

    Código:
    Let WebUrl = RSt("NomeDoCampoQueContemLink").value


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    annissima
    annissima
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 57
    Registrado : 24/10/2017

    [Resolvido]Acessar link em um campo de texto Empty Re: [Resolvido]Acessar link em um campo de texto

    Mensagem  annissima em 29/7/2019, 20:00

    Funcionou!!


    cheers cheers cheers cheers
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1071
    Registrado : 22/11/2016

    [Resolvido]Acessar link em um campo de texto Empty Re: [Resolvido]Acessar link em um campo de texto

    Mensagem  IvanJr. em 29/7/2019, 22:30

    O fórum agradece o retorno. Sucesso.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

    Conteúdo patrocinado

    [Resolvido]Acessar link em um campo de texto Empty Re: [Resolvido]Acessar link em um campo de texto

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 9/12/2019, 16:07