Selasa, 09 April 2013

Re: [belajar-access] Insert data dan insert nomor Urut

 

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 (3)
Recent Activity:
SPAM IS PROHIBITED
.

__,_._,___

Tidak ada komentar:

Posting Komentar