Bpk mungkin dibuatnya di on unload saja : Private Sub Form_Unload(Cancel As Integer) call save_suplyer() End Sub
Utk dekalarasi fungsi nya, mungkin jangan ditambah as string, Public Function save_suplyer() As String cukup: Public Function save_suplyer() Thank's ----- Original Message ----- From: yokananwahyono To: [email protected] Sent: Wednesday, 24 February 2010 7:22 AM Subject: RE: [belajar-access] membuat 2 combo box Saya juga sudah buat modul sebagai brkt: Public Function save_suplyer() As String Dim db As Database Dim rst As Recordset Set db = CurrentDb() rst = db.OpenRecordset("t_suplyer") rst.AddNew rst.MoveLast rts!Suplyer_ID = [Forms]![f_suplyer]![Txt_Suplyer_ID] rst!Suplyer_Name = [Forms]![f_suplyer]![Suplyer_Nama] rst!City = [Forms]![f_suplyer]![Kota] rst!Addres = [Forms]![f_suplyer]![Kota] rst!Telephone = [Forms]![f_suplyer]![Telephone] rst!Product = [Forms]![f_suplyer]![Jenis] rst!Contact_Person = [Forms]![f_suplyer]![Kontak_Person] rst!Note = [Forms]![f_suplyer]![Note] End Function Mdul tsb saya panggil waktu close atau nanti saya buat tombol "save" tapi kok ada masalah y? Kira2 bagaimana y? Thanks Yokanan Wahyono ------------------------------------------------------------------------------ From: [email protected] [mailto:[email protected]] On Behalf Of yokananwahyono Sent: Tuesday, February 23, 2010 4:47 PM To: [email protected] Subject: RE: [belajar-access] membuat 2 combo box Wah mas MBA sudah aktif lagi nich..makin Mantap aja. Sudah benar bos, yang "combo20" saya visible = no tapilan jadi , trus txt_suplyer_id saya taruh di forms detail. Tapi ada sedikit masalah bos, jika data Suplyer saya isi,(saya edit) lalu di click "next record" atau "previous record" masih tidak ada masalah Tetapi bila di click "txt_suplyer-_ID" maka data akan kembali kosong, jadi seperti belum ke save Thx Yokanan Wahyono ------------------------------------------------------------------------------ From: [email protected] [mailto:[email protected]] On Behalf Of Murid Belajar Access Sent: Tuesday, February 23, 2010 1:00 PM To: [email protected] Subject: Re: [belajar-access] membuat 2 combo box [1 Attachment] Importance: High Halo Kang Yoko, Saya ndak tahu apakah ini sesuai. tapi silahkan coba attachment terlampir. salam, MBA ----- Original Message ----- From: yokananwahyono To: [email protected] Sent: Tuesday, February 23, 2010 11:38 Subject: RE: [belajar-access] membuat 2 combo box [1 Attachment] Terima kasih banyak untuk Mr Hasim dan Ms BO Sekarang saya coba kirimkan programnya Coba Teman2 semua buka di Form "F_Suplyer" 1.. jika di click explorer maka akan membuka "F_D_Suplyer" dan jika di pilih dan clik "OK" maka akan membuka "F_Suplyer" dengan nama tersebut namun f_d_suplyer saya minimize, yang saya mau sebenarnya di close tapi kemarin say coba tidak bisa ( ada eror , dan jika di click Next Record atau previus record maka yang tampil hanya nama suplyer tsb, seharusnya semua 2.. jika di click txt_suplyer_id maka akan membuka record tsb, namun saya kurang yakin apakah tehnik yang saya gunakan sdh benar karena, jika di close akan ada eror dengan error number "3020". Menurut teman2 bagaimankah kode dan konsep yang benar thx yokanan ---------------------------------------------------------------------------- No virus found in this incoming message. Checked by AVG - www.avg.com Version: 9.0.733 / Virus Database: 271.1.1/2703 - Release Date: 02/22/10 14:34:00
