Convidado 24/6/2011, 02:16
Resolvi assim:
Private Sub btnInserir_Click()
If Me!opcao = 0 Then
Dim strCaminho As String, strPastaInicial As String
strPastaInicial = "C:\Syspen\FotosAdm\"
strCaminho = Buscar(Me.hwnd, "Inserir foto", strPastaInicial, _
"Arquivos gráficos (*.bmp; *.gif; *.jpg)" & vbNullChar & "*.bmp; *.gif; *.jpg")
If Len(strCaminho) > 0 Then
Forms![Formulário ADM].CaminhoAgente = strCaminho
Forms![Formulário ADM].FotoAgente.Picture = Forms![Formulário ADM].CaminhoAgente
MsgBox "Foto aplicada com Sucesso!", vbInformation, "Syspen"
Forms![Formulário ADM].SalvarRegistro
End If
End If
End Sub
Saudações