[Resolvido]Ajuda com pesquisa no formulário sem tabelas...

Boa tarde senhores,

Por gentileza, estou com dificuldade para implementar uma ação num programa que estou desenvolvendo...

É o seguinte: Não estou utilizando tabelas no form... Apenas links com vídeos, que são lincados online do site que estou criando...

Tenho nesse form, alguns botões para acesso aos links. Ou seja, ao clicar no botão abre o vídeo em referencia...

Acrescentei um campo texto com o nome pesquisa e um botão cmdPesquisar... Para quando usuário digitar o nome em referencia por exemplo EXCEL, já abrir o vídeo referente a esse botão cmdExcel...

Nas buscas que fiz, e constam no fórum, todas são de acordo com tabelas e códigos... Nesse caso, não tenho tabelas nem códigos. Pois não necessita para os links... O usuário ao clicar no botão cmdExcel por exemplo, abrirá o curso em vídeo Excel, no Microsoft Web Browser...

Tem como criar uma pesquisa no form para quando for digitada a PALAVRA na caixa de texto PESQUISAR, e clicar no botão cmdPesquisar, buscar e abrir o vídeo?

Não estou disponibilizando o bd, porque, onde estou a internet é 1 mega. Muito lento...

Desde já agradeço...

Que o Senhor Jesus abençoe e guarde cada um...

Imaginando que seu site possa ter varios videos o ideal seria utilizar o select case direto em uma caixa de texto

tente no evento apos atualizar:

select case suacaixatexto
caso "excel"
application.followhyperlink "o link do video referente ao curso de excel"
caso "access"
application.followhyperlink "o link do video referente ao curso de access"
end select

da uma olhadinha neste [url= https://www.maximoaccess.com/t17932-resolvidoabrir-pagina-de-web-ao-clicar-no-botao]topico[/url] .

Boa noite, grande Tauron.

A estrutura que tenho é o seguinte:

Microsoft Web Browser, onde roda os vídeos no form MENUTV

Para chamar os vídeos... Criei botões.. Exemplo: cmdexcel, cmdaccess e outros...

Em cada botão:

Private Sub cmdExcel_Click()
On Error Resume Next
Me.WebNavegador.ScriptErrorsSuppressed() = True 'access 2010
Me.WebNavegador.Silent = True 'access 2007 e menor
Call fncCarregaVideo(0)
Me.lblMenssagem.Caption = "Você está assistindo Curso Excel!"
End Sub

Para juntar todos as vídeo aulas num só lugar estou usando a seguinte estrutura:

Private Sub fncCarregaVideo(Optional J As Byte = 0)
'On Error Resume Next
Dim origem As String

'vídeos armazenados na pasta Videos no mesmo local do BD
       origem = CurrentProject.Path & "\CanaisdeTV\"

Select Case J
   Case 0
       '-----------------------------------------------------
       'carregando vídeo de um arquivo local
       '-----------------------------------------------------
       'objwmp.URL = origem & "NomeDoVideo com a extensão"
       
       '-----------------------------------------------------
       'você pode abrir direto no player se desejar
       '-----------------------------------------------------
       'Me!wmp.openPlayer (origem & "NomeDoVideo com a extensão") 'abertura video local
       'Me!wmp.openPlayer ("http://www.usandoaccess.com.br/videoaulas/dica13.wmv") 'abertura video web
       
       '----------------------------------------------------------
       'Carregando na tela do access um vídeo do site usandoaccess
       '----------------------------------------------------------
       
   '--------------- Aqui TV SBT ------------------
       Me!WebNavegador.navigate ("https://player.sambatech.com.br/v3/swf/sambaplayer.swf?config=https://fast.player.liquidplatform.com/v3/v1/8fcdc5f0f8df8d4de56b22a2c6660470/LiveConfig?alternateLive=http://gbbrlive2.sambatech.com.br/liveevent/sbtabr_8fcdc5f0f8df8d4de56b22a2c6660470/livestream1/chunklist.m3u8?origem=webtv&width=1036&height=731%20autostart=true%20frameborder=0%20marginwidth=0%20marginheight=0%20scrolling=No%20allowscriptaccess=always%20:-webkit-full-screen=true%20fullscreen=yes%20onclick=toggleFullScreen%20onclick=requestFullScreen%20onclick=mozRequestFullScreen%20onclick=msRequestFullScreen")

   Case 1
       '--------------- Aqui TV BAND ------------------
       Me!WebNavegador.navigate ("https://player.sambatech.com.br/v3/swf/sambaplayer.swf?config=https://fast.player.liquidplatform.com/v3/v1/8fcdc5f0f8df8d4de56b22a2c6660470/LiveConfig?alternateLive=rtmp://187.18.187.5/livepkgr/nordestv1?nimblesessionid=2702565?&width=1036&height=730%20autostart=true%20frameborder=0%20marginwidth=0%20marginheight=0%20scrolling=No%20allowscriptaccess=always%20:-webkit-full-screen=true%20fullscreen=yes")

   Case 2
       '--------------- Aqui TV TROPICAL - NATAL - RN------------------
       Me!WebNavegador.navigate ("https://player.sambatech.com.br/v3/swf/sambaplayer.swf?config=https://fast.player.liquidplatform.com/v3/v1/8fcdc5f0f8df8d4de56b22a2c6660470/LiveConfig?alternateLive=rtmp://184.172.23.109/live/tvtrop_natal/tvtrop_natal_aovivo?origem=webtv&width=1036&height=731%20autostart=true%20frameborder=0%20marginwidth=0%20marginheight=0%20scrolling=No%20:-webkit-full-screen=true%20fullscreen=yes")


End Select
End Sub

Do nosso amigo, João Avelino...

Agora, criei uma caixa de texto com nome pesquisar e um botão de busca, para se o usuário caso não queira clicar nos botões, basta digitar o nome do botão por exemplo, cmdExcel e ao clicar no botão procurar, já abrir o vídeo com o curso...

Só que estou com dificulade, porque nos vídeos que vi e aqui mesmo mostra a busca com tabelas relacionada. E nesse caso, não tenho tabelas... Apenas as funções no VB...

É possível fazer uma busca por palavra ou botões através de uma caixa de texto no form e ao clicar no botão, já abra o vídeo no Web Browser?

Agradeço sua atenção...

Bom dia, não consegui ainda fazer como pretendia... Mais aos poucos chego lá...

Estou encerrando o chamado.