Silahkan lihat attachment.
Salam hangat dan jabat erat, MBA From: [email protected] [mailto:[email protected]] On Behalf Of Hasan Salman Sent: Friday, August 20, 2010 16:38 To: [email protected] Subject: RE: [belajar-access] Re: Meng-insert Sebuah Baris Kosong Di Tengah-tengah Wah acungan jempol dech buat Bapak ini. Saya betul2 kagum, baru kali ini saya melihat form bisa diinsert di tengah-tengah. Cuma ada satu masalah lagi pak, bisa nggak supaya insertnya itu gak di nomer urut ke 3 aja, tapi insertnya mulai dari di mana cursor kita letakkan, misalnya cursor kita letakkan di nomer urut 4, maka mulai nomer urut 4 ke bawah akan turun ke bawah sebanyak 1 baris. Thanks sebelumnya, Hormat saya, Salman Hasan, Denpasar - Bali, --- Pada Rab, 18/8/10, MBA <[email protected]> menulis: Dari: MBA <[email protected]> Judul: RE: [belajar-access] Re: Meng-insert Sebuah Baris Kosong Di Tengah-tengah [1 Attachment] Kepada: [email protected] Tanggal: Rabu, 18 Agustus, 2010, 10:15 AM Silahkan di lihat di attachment pak. Sudah disesuaikan dengan tabel di insert.mdb Hanya salah di nama kolom, mestinya No bukan no_urut. Dan hanya salah di nama formnya. Kalau sebelumnya, saya menggunakan konsep subform. Dan cmd_insert di ambil dari headernya. Sedangkan insert.mdb – langsung dengan menggunakan konsep continues form. Saya juga ubah sedikit di form recordsourcenya, agar di urutkan ascending menurut kolom no. Dan diedit langsung di form (hardcode). Salam hangat dan jabat erat, Murid Belajar Access Edy Wiyono From: [email protected] [mailto:[email protected]] On Behalf Of Hasan Salman Sent: Wednesday, August 18, 2010 17:28 To: [email protected] Subject: RE: [belajar-access] Re: Meng-insert Sebuah Baris Kosong Di Tengah-tengah [1 Attachment] [Attachment(s) from Hasan Salman included below] Terima banyak kasih atas jawabannya Pak. Tapi ketika saya klik command insert tersebut kok nggak berhasil ya Pak? Bersama ini saya attach formnya, coba tolong dilihat apanya yang salah dan tolong diperbaiki ya Pak, terima kasih sebelumnya. Hormat saya, Salman Hasan, Denpasar - Bali. --- Pada Sel, 17/8/10, MBA <[email protected]> menulis: Dari: MBA <[email protected]> Judul: RE: [belajar-access] Re: Meng-insert Sebuah Baris Kosong Di Tengah-tengah Kepada: [email protected] Tanggal: Selasa, 17 Agustus, 2010, 6:29 AM Kira2 seperti ini: Private Sub cmdInsert_Click() On error goto salah Dim rst As DAO.Recordset Set rst = frm_tbl_Penjualan_Detail.Form.RecordsetClone If Not (rst.EOF Or rst.BOF) Then rst.MoveLast rst.MoveFirst For i = 1 To rst.RecordCount rst.Edit rst!NoUrut = i rst.Update rst.MoveNext Next End If rst.Close Set rst = Nothing CurrentDb.Execute "UPDATE tbl_Penjualan_Detail SET NoUrut=4 Where NoUrut=3", dbFailOnError CurrentDb.Execute "INSERT INTO tbl_Penjualan_Detail (KodeBarang,NoUrut) VALUES ('INS',3)", dbFailOnError frm_tbl_Penjualan_Detail.Form.Requery keluar: exit sub salah: debug.print err.number & vbcrlf & err.description resume keluar End Sub From: [email protected] [mailto:[email protected]] On Behalf Of Hasan Salman Sent: Monday, August 16, 2010 16:38 To: [email protected] Subject: RE: [belajar-access] Re: Meng-insert Sebuah Baris Kosong Di Tengah-tengah . <http://geo.yahoo.com/serv?s=97359714/grpId=3331658/grpspId=1705115370/msgId=28248/stime=1281995309/nc1=1/nc2=2/nc3=3>
