bollywood actresses hair loss hair rehab london contact number cheap hair extensions brazilian curly hair with closure hair extension fails human hair wigs black ponytail hairstyles 2018 sunny hair extensions uk hair extensions remy hair extensions weft koko one piece hair extensions clip hair
Assistindo vídeo pelo Access

Assistindo vídeo pelo Access

Nota importante: para ter acesso aos vídeos e arquivos exemplos deste site, adquira um dos planos apresentados abaixo. Você pode comprar em até 2x no Cartão de Crédito. 

Veja como comprar e saiba mais sobre o material oferecido,  clicando aqui.

Open v3

 

É fácil configurar o Access 2007/2010 para exibir vídeos, bastando para isso utilizar o controle ActiveX do Windows Media player.

Abra um formulário no modo estrutura e clique no botão ActiveX na guia design da ribbon.

Abrindo a lista do ActiveX

 

Selecione da lista a opção Windows Media Player e  clique em OK.

Selecionado o ActiveX do Windows Media Player

 

O quadro do Windows Media Player é carregado no formulário. 

Dê dois cliques rápidos no quadro para alterar algumas das propriedades do ActiveX, se o desejar.

Abrindo propriedades do Windows Media Player no Access 2007

 

Carregar o  vídeo pelo VBA é muito simples, basta informar o caminho da URL ao  Activex.  Você pode carregar vídeos locais ou de um site.

Observe o código abaixo, utilizado no exemplo que disponibilizo.  No evento "Ao abrir" do formulário, defino o tamanho do quadro e chamo pela função que carrega o vídeo. 

Private Sub Form_Open(Cancel As Integer)
'Definindo o tamanho do quadro 13 x 14cm
Me!wmp.Height = 567 * 13
Me!wmp.Width = 567 * 14
'carregando o vídeo
Call fncCarregaVideo
'Foco no botão 1
Me!bt1.SetFocus
End Sub
---------------------------------------------------------------------------
Private Sub fncCarregaVideo(Optional j As Byte = 0)
On Error Resume Next
Dim origem As String
'definindo o caminho da pasta local dos vídeos
origem = CurrentProject.Path & "\videos\"
Select Case j
Case 0
'-----------------------------------------------------
'carregando vídeo de um arquivo local
'-----------------------------------------------------
'objwmp.URL = origem & "Nome do vídeo com a extensão"

'-----------------------------------------------------
'você pode abrir direto no player, se o desejar
'-----------------------------------------------------
'abertura vídeo local
'Me!wmp.openPlayer (origem & "Nome do vídeo com a extensão") 
'abertura vídeo web
'Me!wmp.openPlayer ("http://www.usandoaccess.com.br/videoaulas/dica13.wmv") 

'----------------------------------------------------------
'Carregando na tela do access um vídeo do site usandoaccess
'----------------------------------------------------------
Me!wmp.URL = "http://www.usandoaccess.com.br/videoaulas/dica13.wmv"

Case 1
'objwmp.URL = origem & "Nome do vídeo com a extensão"
Case 2
'objwmp.URL = origem & "Nome do vídeo com a extensão"
End Select
End Sub

Veja um dos vídeos, do meu site, sendo carregado no formulário:

Assistindo vídeo pelo Access 2007

 

Bom estudo!


 

 


18 comentário(s)

Eduardo Vieira Machado   09/01/2019 06:10:03

Olá Avelino,
Qual controle ActiveX que não seja o Windows Media Player eu posso usar no Access 2010? O WMP não está disponível no Access 2010. Tenho um aplicativo que utilizava para reproduzir videos no Access 2007, mas agora não funciona mais quando o meu computador foi trocado com o Office 365 e o Access 2010. Meu código era este:
Private Sub MultiExibeVideo()
On Error Resume Next
Dim sTermo, X As String
Dim intCod, y As Integer
Dim rs As DAO.Recordset

Set rs = CurrentDb.OpenRecordset("Glossario", dbOpenDynaset)

intCod = Forms!PesquisaCEDAE!txtCodPesquisa
X = DLookup("Termo", "Glossario", "Código = " & intCod)
Select Case X
Case Is = "Hidrômetro*"
Me!wmp1.URL = CurrentProject.Path & "\Videos\Entenda o funcionamento do hidrômetro da sua casa.mp4"
.......................

Allysson   28/08/2018 13:01:56

Olá Boa tarde,
eu fiz uma listbox com todas as musicas que existe dentro da pasta, mas eu gostaria de fazer um loop que quando acabar de tocar a musica ja comecar outra na sequencia da listbox.
alguem me ajuda com essa duvida!

Henrique   27/05/2018 06:19:03

Avelino meu guru, tem como um vídeo dentro de um formulário ser exibido constantemente (looping), enquanto o formulário estiver aberto?

João Paulo   16/03/2015 16:09:17

Avelino,

Achei muito interessante e estava querendo adaptar na clinica da minha esposa, porém gostaria de ampliar a imagem não em tela cheia mas de modo que ocupe parte da tela onde colocarei propagandas. Aproveitarei a tela de chamada de espera de cliente de forma que as imagens ocupe em torno de 70% de imagem ficando apenas a lateral esquerda e a parte inferior para o chamado de cliente.

Avelino Sampaio   04/03/2014 07:06:24

Hephraim,

Atualize seu Office com ultimo pacote SP diponível. Para o 2007 é o Sp3 , para o Access 2010 é o Sp2 e para o 2013 é o Sp1

Ataulize também o seu WMP , caso esteja diponível.

Observe se acontece com vídeos específicos ou se acontece de forma aleatória.

Antes de fechar experimente limpar a URL

Me!wmp.URL =""

Sucesso!

Hephraim BF   01/03/2014 16:26:25

Muito show!!!

Consegui adaptar no meu projeto, muito obrigado Avelino.

Agora tenho uma pergunta porque às vezes depois que fecho a janela que exibe o vídeo aparece a mensagem de que o access parou de funcionar?

Já fiz o tratamento de erro e tudo mas continua acontecendo isso.

Desde já agradeço.

Lisandro   11/07/2013 16:26:19

Boa tarde, estava querendo exibir os trailers dos filmes que possuo na minha coleção de filmes no acess. esse exemplo serve para fazer isso? por exemplo uma lista de filmes,clicava no nome do filme e ao lado exibia o trailer.

BetoSoft   04/10/2012 06:38:32

Parabéns, Deus te ajuda

Avelino Sampaio   23/05/2012 05:04:07

Simao,

abra o pesquisador de objetos e investigue os comandos existentes, deste Active X.

Na seção "tutorias" acesse o artigo "vídeo - como estudar com o pesquisador de objetos". Ensino como utilizar este incrível recurso do VBA.

Sucesso!

olá! paz e bem!   22/05/2012 13:48:56

Avelino obrigado pelo rápido retorno.
Já apliquei essa propriedade agradeço, porém queria mesmo era o código vba,
outra dúvida, como configurar para a resolução 1024x768.
Obrigado Avelino
Simaops.

Avelino Sampaio   22/05/2012 05:43:26

Paz e bem,

observe bem na imagem acima que no formulário de propriedades tem uma opção que vc marca para abrir em tela cheia. Dois cliques com o mouse na tela de exibição também abre em tela cheia.

Sucesso!

olá! paz e bem!   21/05/2012 19:04:58

Gostaria de saber qual o código para exibir o vídeo em tela cheia.
Obrigado.

Antonio Ozael   23/09/2011 10:44:34

Gostaria de mais detalhes sobre como fazer para associar o vídeo diferente para cada botão, onde esse vídeo seja mostrado na mesma posição (como está ne seu exemplo, porém não consegui fazer no meu exemplo. Funcionou o primeiro vídeo, colocando o caminho no meu computador (URL). Obrigado desde já.

Zara   15/09/2011 07:00:08

Gostaria de saber como inserir um video a cada registro...tem como?

Gilberto   13/09/2011 15:51:25

Grande Avelino, uma perguntinha.
Como rodar um video do youtube da mesma forma que você fez em seu exemplo?
Gostaria de rodar em uma janela como a sua

Aguardo, obrigado!!!!

Avelino Sampaio   08/08/2011 07:52:22

Eduardo,

é possível sim mas para um novato acredito que vai ficar difícil montar este tipo de projeto.

Acesse o link abaixo, que possui um projeto gratuito para vc estudar. (não conheço este projeto)

http://www.svcsoftwarehouse.com/detalhes-aplic-c-login.php?codigo=0000000288

Bom estudo!

eduardo Lima   08/08/2011 01:16:32

Ola. Sou novato e estou muito animado graças as suas dicas, confesso que fico atordoado com tanta informação. Acredito que vou fazer uma pergunta inédita...

É possível criar uma janela formulário tipo vídeo fone?

De forma que um usuário front-end possa comunicar com outro usuário front-end num ambiente de rede tipo pasta compartilhada, um MSN interno incorporado ao Access usando a webcam...

abçs

Márcio Melo - RJ   11/12/2010 20:14:21

Assim como a dica do PDF, essa também é muito boa, podemos juntar ambas e oferecer o suporte necessário através do próprio programa, facilitando com que o usuário tenha o acesso ao vídeo que nós indicarmos, muito show... tenho aos pouco imprementando as dicas o obtendo ótimos resultados.


Envie seu comentário: