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

Senin, 15 Juli 2013

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

Mas Aksan,

jika primary key nya itu NIK bagaimana?

masalahnya NIK itu kan bisa dipilih lebih dari sekali

mohon solusinya

terima kasih

Dari: aksan kurdin <aksan.kurdin@gmail.com>
Kepada: belajar-access@yahoogroups.com
Dikirim: Sabtu, 13 Juli 2013 10:28
Judul: Re: Bls: [belajar-access] Saving Value from TextBox

kalau control textbox yang merupakan primary key nya kosong (me.txt_text1 = "") maka dianggap edit record yang sudah ada. Tapi kalau textbox itu kosong, dianggap sebagai data baru.
skenario ini biasanya untuk primary key yang otomatis di generate dari program, bisa jadi autonumber field, atau dari rumusan tertentu seperti nomor dokumen.

aksan kurdin

On 7/12/2013 5:02 PM, Handiki Kurnia wrote:

If text1<>""

maksudnya apa ya mas? hehe :)

terima kasih

Dari: Nafan . <nafan.muhammad@yahoo.com>
Kepada: "handiki_kurnia@yahoo.co.id" <handiki_kurnia@yahoo.co.id>
Cc: "belajar-access@yahoogroups.com" <belajar-access@yahoogroups.com>
Dikirim: Jumat, 12 Juli 2013 15:02
Judul: 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