Selasa, 09 April 2013

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

 

tapi alhamdulillah cak har,
yang nerima bisa mengolahnya hingga sempurna, ga di telen aja :p

terus kan cak har .....


aksan kurdin

On 4/10/2013 7:05 AM, hari yanto wrote:
 

Bismillahiawali wal akhiri..,
 
Benar... Ternyata ada yang terlupa. Saya memang belum mencoba langsung di aplikasi. Hanya memakai angan-angan kemungkinan jalan keluar.
 
Hariyanto (Surabaya)

--- On Tue, 9/4/13, him mah <himmah.mlg@gmail.com> wrote:

From: him mah <himmah.mlg@gmail.com>
Subject: Re: [belajar-access] Insert data dan insert nomor Urut
To: belajar-access@yahoogroups.com
Date: Tuesday, 9 April, 2013, 4:58 PM

 
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
>>
>>
>>
>>
>>
>>
>


__._,_.___
Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (7)
Recent Activity:
SPAM IS PROHIBITED
.

__,_._,___

Tidak ada komentar:

Posting Komentar