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