Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Cadastro com foto

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
nuno



Mensagens : 62
Data de inscrição : 27/02/2013

MensagemAssunto: Cadastro com foto   Qua Fev 27, 2013 10:22 pm

Boa tarde, Mais uma vez precisava da vossa ajuda.
Elaborei uma base de dados em excell vba para registo de jovens institucionalizados. Consigo inserir os dados e foto atraves de um userform mas quando quero consultar os dados do jovem consigo puxar os dados excepto a foto.

Exemplo:
Private Sub Pesquisar_Click()
Sheets("INSCJOVENS").Select
Dim C

'Verificar se foi digitado um nome na primeira caixa de texto
If TextBox1.Text = "" Then
MsgBox "Digite o nome de um jovem"
TextBox1.SetFocus
GoTo Linha1
End If
With Worksheets("INSCJOVENS").Range("A:A")
Set C = .Find(TextBox1.Value, LookIn:=xlValues, _
LookAt:=xlPart)
If Not C Is Nothing Then
C.Activate
TextBox1.Value = C.Value
TextBox2.Value = C.Offset(0, 1).Value
If C.Offset(0, 2).Value = "Masculino" Then
OptionButton1.Value = True
Else
OptionButton1.Value = False
End If

If C.Offset(0, 2).Value = "Feminino" Then
OptionButton2.Value = True
Else
OptionButton2.Value = False
End If
TextBox3.Value = C.Offset(0, 3).Value

TextBox4.Value = C.Offset(0, 4).Value
TextBox14.Value = C.Offset(0, 5).Value

TextBox5.Value = C.Offset(0, 6).Value
TextBox6.Value = C.Offset(0, 7).Value
TextBox7.Value = C.Offset(0, Cool.Value
TextBox8.Value = C.Offset(0, 9).Value
TextBox9.Value = C.Offset(0, 10).Value
TextBox10.Value = C.Offset(0, 11).Value
TextBox11.Value = C.Offset(0, 12).Value
ComboBox4.Value = C.Offset(0, 13).Value
ComboBox5.Value = C.Offset(0, 14).Value
ComboBox6.Value = C.Offset(0, 15).Value
TextBox13.Value = C.Offset(0, 16).Value
ComboBox7.Value = C.Offset(0, 17).Value
TextBox12.Value = C.Offset(0, 20).Value

foto.PICTURE=???????????????????????????????? o ENDEREÇO ESTA GRAVADO NA FOLHA DE EXCELL NA = C.Offset(0, 21).Value
EXEMPLO: (C:\Users\Vania\Documents\2nuno e maria armação de pêra julho 2012\DSC00801.JPG)


Else
MsgBox "Jovem não encontrado!"
TextBox1.Value = ""
End If
End With
Linha1:



Será que me poderiam ajudar??
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Cadastro com foto   Qui Fev 28, 2013 12:13 am

Boa noite!!

Leia:
http://guiadoexcel.com.br/cadastro-vba-com-imagem
http://excelmax.blogspot.com.br/2011/01/criar-um-formulario-userform-com.html

Arquivo:
http://www.4shared.com/file/94988369/45f12ed0/CadastroComFoto.html
Voltar ao Topo Ir em baixo
Ver perfil do usuário
 
Cadastro com foto
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Retirando Pessoas ou Objetos da foto - Photoshop CS5
» Sistema de cadastro pra jogo multiplayer online?
» tem como colocar meu wave 533 para tirar foto em alta resoluçao?
» Modificar local de cadastro e enviar email a todos membros
» [Resolvido] Como desativar a confirmação do cadastro?

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: