loopingnya koq ngga berhenti ya, jalan terus
2013/4/9, hari yanto <har_i20002000@yahoo.com>:
> wa'alaikum salam wr wb...,
>
> Bismillahirrohomanirrohim...,
>
> Gunakan fungsi dMax+1 untuk menambah id selanjutnya. Misal:
>
> Dim rs As Recordset
> Dim db As Database
> Dim idurut As Integer
>
> Set rs = CurrentDb.OpenRecordset("Tabel A") 'bila perlu ini diurutkan
> by...
> If Not rs.EOF Then
> Set db = CurrentDb
> Do While Not rs.EOF
> idurut = Nz(DMax("[Urut]", "tabel B", ""), 0) + 1
> db.Execute "insert into tabelB (URUT, NAMA, ALAMAT)" _
> & " values (" & idurut & ",'" & rs.Fields (0) & "','" & rs.Fields (1) &
> "')"
>
> Loop
> db.Close
> Set db = Nothing
> End If
>
> rs.Close
> Set rs = Nothing
>
>
> Semoga bisa membantu dan memberi semangat.
>
>
> Hariyanto (Surabaya)
>
>
> --- On Tue, 9/4/13, him mah <himmah.mlg@gmail.com> wrote:
>
>
> From: him mah <himmah.mlg@gmail.com>
> Subject: [belajar-access] Insert data dan insert nomor Urut
> To: "belajar-access" <belajar-access@yahoogroups.com>
> Date: Tuesday, 9 April, 2013, 9:36 AM
>
>
>
>
>
>
>
> Assalamu'alaikum Wr. Wb.
> Dear All
>
> saya punya sedikit masalah (maaf belum bisa ngirim file contohnya)
>
> misal
> saya punya 2 tabel
> tabel A dan tabel B
>
> tabel A terdiri dari 2 field (NAMA, ALAMAT)
> tabel B terdiri dari 3 Field (URUT, NAMA,ALAMAT)
>
> misal tabel A isinya
>
> NAMA ALAMAT
> E Bandung
> F Jakarta
>
> tabel B terdiri dari
> URUT NAMA ALAMAT
> 1 A Surabaya
> 2 C Medan
>
> kemudian bagaimana cara memasukan tabel A ke Tabel B dengan tambahan
> nomor urut sehingga Tabel B hasilnya menjadi
> URUT NAMA ALAMAT
> 1 A Surabaya
> 2 C Medan
> 3 E Bandung
> 4 F Jakarta
>
> terima kasih
>
>
>
>
>
>
Reply via web post | Reply to sender | Reply to group | Start a New Topic | Messages in this topic (4) |
Tidak ada komentar:
Posting Komentar