Alhamudlillah sudah bisa pak, saya tambahkan rs.MoveNext
Pada tanggal 09/04/13, him mah <
himmah.mlg@gmail.com> menulis:
> 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
>>
>>
>>
>>
>>
>>
>
Tidak ada komentar:
Posting Komentar