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:
|
__._,_.___
Reply via web post | Reply to sender | Reply to group | Start a New Topic | Messages in this topic (3) |
SPAM IS PROHIBITED
.
__,_._,___
Tidak ada komentar:
Posting Komentar