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
