ACCESS FEED: Bls: [belajar-access] Saving Value from TextBox

Jumat, 12 Juli 2013

Bls: [belajar-access] Saving Value from TextBox

Addnew nya tinggal di ganti edit, tinggal tambahin fungsi logika aja, kalo datanya sudah ada trus di edit maka edit, tapi kalo datanya belom ada maka addnew...

If text1<>"" then
Dbr.edit
Else
Dbr.addnew
End if

Dikirim dari Yahoo! Mail untuk iPhone

From: Handiki Kurnia <handiki_kurnia@yahoo.co.id>;
To: nafan.muhammad@yahoo.com <nafan.muhammad@yahoo.com>;
Cc: Belajar <belajar-access@yahoogroups.com>;
Subject: Bls: [belajar-access] Saving Value from TextBox
Sent: Fri, Jul 12, 2013 7:54:24 AM

kalau pilihannya ada keduanya (addnew dan update), script nya seperti apa ya mas?

terima kasih

Dari: "nafan.muhammad@yahoo.com" <nafan.muhammad@yahoo.com>
Kepada: "handiki_kurnia@yahoo.co.id" <handiki_kurnia@yahoo.co.id>; "belajar-access@yahoogroups.com" <belajar-access@yahoogroups.com>
Dikirim: Selasa, 9 Juli 2013 4:38
Judul: BLS: [belajar-access] Saving Value from TextBox

Kalau pilihannya addnew, mungkin kode dibawah bisa bantu...

Private sub command1_click()
On error resume next
Dim db as dao.database
Dim dbr1 as recordset
Set db = currentdb()
Set dbr1 = db.openrecordset("select * from table1")
Dbr1.addnew
Dbr1![nik]=combonik
Dbr1![nama]=txtnama
Dbr1.update
Dbr1.bookmark = dbr1.lastmpdified
Dbr1.close
Db.close
End sub

Dikirim dari Yahoo! Mail untuk iPhone

From: Handiki Kurnia <handiki_kurnia@yahoo.co.id>;
To: Belajar <belajar-access@yahoogroups.com>;
Subject: [belajar-access] Saving Value from TextBox
Sent: Mon, Jul 8, 2013 5:56:46 AM

Selamat siang,

Dear Rekan-rekan

Saya punya masalah yang dari dulu belom terpecahkan. jadi saya umpamakan ada 1 table yang berisikan 2 field yaitu NIK dan NAMA.

saya masukkan kedalam sebuah form yang hanya berisikan ComboBox (pilihan untuk NIK), TextBox (Output dari ComboBox) dan Button Save.

Ketika saya pilih ComboNIK, otomatis nama muncul pada TextBox.

yang jadi pertanyaan besar saya adalah, bagaimana cara menyimpan Value dari TextBox tersebut ke dalam Field NAMA??

sedangkan control source yang saya letakkan di TextBox itu =[ComboNIk].[Column](2)

Mohon bantuannya rekan-rekan sekalian.

Terima kasih

__._,_.___

Reply via web post

Reply to sender