... Pague apenas R$47,00 uma única vez e tenha acesso por 1 ano aos vídeos e arquivos exemplos do site ...

Clique aqui e obtenha mais detalhes.


Assistindo vídeo pelo Access

É 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!


 

 


15 comentário(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.

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

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!

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!!!!

Zara   15/09/2011 07:00:08

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

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á.

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.

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!   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   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!

BetoSoft   04/10/2012 06:38:32

Parabéns, Deus te ajuda

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.

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.

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!

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.


Envie seu comentário: