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 <mailto:[email protected]>
To: belajar-access@ <mailto:[email protected]> yahoogroups.com
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
