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

Minggu, 14 Juli 2013

BLS: Re: BLS: [belajar-access] Saving Value from TextBox

Hehehe, iya bang aksan...
Saya paling malas bikin koding error handling nya, selain juga saya masih kurang ngerti untuk error handling tersebut.
Makasih bang atas masukkannya...

Dikirim dari Yahoo! Mail untuk iPhone

From: aksan kurdin <aksan.kurdin@gmail.com>;
To: <belajar-access@yahoogroups.com>;
Subject: Re: BLS: [belajar-access] Saving Value from TextBox
Sent: Sat, Jul 13, 2013 3:24:57 AM

paling gerah saya kalau liat ada : on error resume next
haahaha...
ibaratnya kita bikin kesalahan tapi cuek aja ga bertanggung jawab .....

:)

saya sarankan diperbaiki seperti berikut:

Private sub command1_click()    Dim db as dao.database  Dim dbr1 as recordset    On error goto err_handle    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  set dbr1 = nothing    set Db = nothing   ' no need to close active currentdb, just release its variable from memory    exit sub    err_handle:  select case err.number    '    case ####:  '        do error handle here .....  '        set dbr1 = nothing         ' release memory  '        set db = nothing           ' release memory        case else:          msgbox err.description, vbinformation, "Error#" & err.number          set dbr1 = nothing          set db = nothing  end select        End sub

On 7/9/2013 4:38 AM, nafan.muhammad@yahoo.com wrote:

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