1. Hapus nama_afterupdate. 2. Buat seperti di bawah ini.
Nama foto dibuat berdasarkan kode tertentu, misalnya kalau karyawan berdasarkan NIK. Contoh: NIK NAMA FOTO 001 Andi 001.jpg 002 anto 002.jpg 003 kidar 003.jpg 004 suntu 004.jpg 005 Pituen 005.jpg Taruh file tsb di folder tertentu, misal: D:\My Pictures Taruh kontrol image, nama: Image1 di event form Current Private Sub Form_Current Me.Image1.Picture="D:\My Pictures\" & Me.NIK.Value & ".jpg" End Sub Dengan cara ini, asalkan ada foto yg sama dengan nomor NIK, pasti akan ditampilkan di Image1. --- In [email protected], "David" <[EMAIL PROTECTED]> wrote: > > Mohon bantuan saya mau coba link photo, > Saya Bikin sata Table Dengan nama Ambil Foto, salah satu Kolom Pada > Tablenya IMAGEPATH, satu query dengan nama Qambil Foto, satu form > dengan nama form1 > pada form ada box image dan berlabel Image1, satu text box berlabel > nama dengn control source IMAGEPATH, record source dari form ini > Qambil Foto > dengan code > Option Compare Database > > Private Sub Form_Current() > On Error Resume Next > Me.Image1.Picture = Me.IMAGEPATH > End Sub > > Private Sub Nama_AfterUpdate() > Me.IMAGEPATH = "D:\My Pictures\" & Me.[Nama] & ".JPG" > Me!ReportsTo.Requery > On Error Resume Next > Me.Image1.Picture = Me.IMAGEPATH > End Sub > > Kenapa ya setiap saya melakukan Penambahan data selalu eror apabila di > debug Tulisan " Me!ReportsTo.Requery " berwarna kuning > Kedua > saya pengen merobah dengan memanfaatkan autonumeber saya tambah satu > kolom pada table dengan nama " ID Data " juga sebagai primery key, box > image dan berlabel Image4 > Codenya saya robah seperti ini : > Private Sub Form_Current() > On Error Resume Next > Me.Image4.Picture = Me.IMAGEPATH > End Sub > > Private Sub Nama_AfterUpdate() > Me.IMAGEPATH = "D:\My Pictures\" & Me.[ID data] & ".JPG" > Me!ReportsTo.Requery > On Error Resume Next > Me.Image4.Picture = Me.IMAGEPATH > End Sub > Saat saya jalankan error jika didebug tulisan " Me.IMAGEPATH = "D:\My > Pictures\" & Me.[ID data] & ".JPG" " berwarna kuning > yang mana nama files pada D:\My Pictures\ semua saya ganti dengan 1, > 2, 3, ..... > > Terimakasih > > > David >
