Fórum Excel Bácico, Avançado e Vba
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
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  Últimas imagensÚltimas imagens  ProcurarProcurar  RegistarRegistar  Entrar  

 

 Cadastro com foto

Ir para baixo 
2 participantes
AutorMensagem
nuno




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

Cadastro com foto Empty
MensagemAssunto: Cadastro com foto   Cadastro com foto EmptyQua Fev 27, 2013 10:31 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, .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??
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


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

Cadastro com foto Empty
MensagemAssunto: Re: Cadastro com foto   Cadastro com foto EmptyQui Fev 28, 2013 12:11 am

Boa noite!!


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
Ir para o topo Ir para baixo
nuno




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

Cadastro com foto Empty
MensagemAssunto: Cadastro com foto   Cadastro com foto EmptyQui Fev 28, 2013 4:02 pm

Obrigado pela ajuda mas desta vez nao consegui..perante aquilo que ja esta feito e que postei nao consigo ir buscar a foto analisando o link que me enviou. Obrigado de qualquer forma peladisponibilidade.
Ir para o topo Ir para baixo
Conteúdo patrocinado





Cadastro com foto Empty
MensagemAssunto: Re: Cadastro com foto   Cadastro com foto Empty

Ir para o topo Ir para baixo
 
Cadastro com foto
Ir para o topo 
Página 1 de 1
 Tópicos semelhantes
-
» Colocar foto no form- urgente
» Cadastro com foto
» Cadastro de Clientes
» Cadastro de Jovens
» Lançamento para Cadastro

Permissões neste sub-fórumNão podes responder a tópicos
Fórum Excel Bácico, Avançado e Vba :: Usuários Básico :: Excel Básico-
Ir para: