[Resolvido]Inserir Imagem - Construção do Caminho

Caros amigos,

Tenho um form que deveria ir buscar a foto do aluno quando se abre o form a uma pasta onde estão as fotos numeradas de acordo com o nº do aluno.

Escrevi este código para tal:


Private Sub Imagem130_Click()
Dim CaminhoImagem As String
Dim NrFoto As String
NrFoto = Format((Me.NrAluno.Value), "0000")
CaminhoImagem = "\\JOAO23-SERVER\Documentos\FAnr\NrFoto.jpg"
If Not IsNull("\\JOAO23-SERVER\Documentos\FAnr\NrFoto.jpg") Then
Me.[Imagem130].Picture = "\\JOAO23-SERVER\Documentos\FAnr\NrFoto.jpg"
End If
End Sub

Não funciona. Mas se puser o n° do aluno antes da extensão do ficheiro Ex: ......\0002.jpg já funciona. O que é que estará errado?

Agradecia a vossa ajuda uma vez mais.

Procure no fórum que tem exemplos, por favor.

Opa correndo como sempre...

Amigão tente isso:

Private Sub Imagem130_Click()
Dim CaminhoImagem As String
Dim NrFoto As String

NrFoto = Format((Me.NrAluno.Value), "0000")

CaminhoImagem = "\\JOAO23-SERVER\Documentos\FAnr\" & NrFoto & ".jpg"

If dir(CaminhoImagem)<>"" Then

Me.[Imagem130].Picture = CaminhoImagem

End If

End Sub


Sds

Olá Amigo Pablo,

Bem haja pela sua gentileza...
Deu-me um jeitão.
Acabei apenas por fazer uma alteraçãozita no caso de não haver imagem disponível.
Mas mais uma vez foi de muita ajuda o seu código. E vou colocar RESOLVIDO!

Um abraço.
Vasco.

Ficou assim no final:

Private Sub Comando131_Click()

Dim CaminhoImagem As String
Dim NrFoto As String
Dim SemRosto As String

NrFoto = Format((Me.NrAluno.Value), "0000")
CaminhoImagem = "\\JOAO23-SERVER\Documentos\FAnr\" & NrFoto & ".jpg"
SemRosto = "\\JOAO23-SERVER\Documentos\FAnr\0000.jpg"
On Error GoTo ErrMsg


If CaminhoImagem <> " " Then
Me.[Imagem130].Picture = CaminhoImagem
End If
Exit Sub
ErrMsg:
MsgBox ("Este Aluno não tem uma Foto disponível! Solicite-a ao Encarregado de Educação em Formato Digital e acrescente-a no seguinte Directório:\\JOAO23-SERVER\Documentos\FAnr"), vbOKOnly, "ATENÇÃO!"
Me.[Imagem130].Picture = SemRosto

Exit Sub

End Sub

Esqueci de por RESOLVIDO. Fica agora.

Agora está.