Pak Agunk,
ambil foto baru :
Private Sub Cmd_Foto_Click()
On Error Resume Next
Dim Filter As String, Title As String, FileX As String
Dim SourceFile, DestinationFile
X.SetFocus
Filter = "JPG Image Files Only(*.jpg),*.jpg,"
Title = "Silahkan Pilih Logo"
FileX = Application.GetOpenFilename(Filter, , Title)
NamaFile = Range("F23")
Sheets("Formulir").Image1.Picture = LoadPicture(FileX)
DestinationFile = ActiveWorkbook.Path & "\Photo\" & NamaFile & ".jpg"
FileCopy FileX, DestinationFile
* Image1.Picture = LoadPicture(**DestinationFile)*
End Sub
yang di-bold adalah cara pasang foto berdasar nama file yang tertulis di
cell F23 sheet formulir.
Sebelum baris pasang foto, ada proses peng-copy-an file dari sumber yang
ditunjuk user ke folder tertentu, disertai mengganti nama filenya menjadi
seperti nama di cell F23.
Itu tadi kalau user sedang memilih foto baru.
Saat data di-save oleh si user ke database, sudah ada proses penyimpanan
nama file ke database, yaitu isi F23 ke database.
Saat load data dari database (entah apa nama tombol yang ditekan, tapi pada
event milik si tombol lah pokoknya), setelah seluruh proses selesai,
sebelum ada pesan (msgbox) kalau data sudah selesai diambil dari database
untuk dipasang di sheet formulir, tambahkan juga baris untuk pasang foto
berdasar nilai di F23 yang sudah terganti dengan data dari database tadi.
'baris-baris untuk ambil data dari database
image1.picture = loadpicture( ActiveWorkbook.Path & "\Photo\" &
range("f23").value & ".jpg" )
'msgboxnya disini
msgbox "data sudah selesai diambil dari database. Silakan dilihat atau
diedit sesukanya" ,vbinformation,"ambil data dari database"
end sub
Wassalam,
Kid
2014-05-21 19:30 GMT+07:00 [email protected] [belajar-excel] <
[email protected]>:
>
>
> Mr Kid...
> Saya cuma bisa menampilkan gambarnya ini aja juga masih amburadul
> mohon untuk diperiksa dan diperbaiki dan penjelasannya,,,
> masih sedikit bingung nih...
> maklum...kerja sambil belajar excel...
>
>
>
>
>
> Thanks,B'Regards
> -Agunk-
>
>
>
