MS ACCESS MAILING LIST: Re: Re: [belajar-access] tambah record

Maaf mas telat jawabnya.

Untuk data yang variabel, cukup ditambahkan sedikit modifikasi mas :

dim db as database

dim rs as recordset

dim DataTeks as string

set db = Currentdb

set rs =db.Openrecordset("tblTemp")

DataTeks = "ABCDEFGHIJKLMNO"

if len(DataTeks)<3 then Exit Function ' Exit Sub 'Harus minimal 3

if val(right(format(len(DataTeks)/3,"Standard"),2)<>0 then exit Function ' Exit Sub (Cek data apakah habis dibagi 3)

for i =1 to len(DataTeks)/3

if i=1 then L=1 else L=i+(i*3)
K$=mid(DataTeks, L, 3)

rs.addnew

rs.Fields("Ket")=K

rs.update

next i

rs.close

set rs = nothing

set db =nothing

======

roland

Playgroup Access

----- Receiving the following content -----

From: him mah

Receiver: belajar-access

Time: 2012-10-03, 14:58:10

Subject: Re: [belajar-access] tambah record

makasih pak, terus kalau referensinya bukan tabel bagaimana pak. misal
data yang mau kita tambahkan itu ada 5 yang terdiri dari
(ABC,DEF,GHI,JKL,MNO)

Pada tanggal 03/10/12, him mah <himmah.mlg@gmail.com> menulis:
> makasih pak, terus kalau referensinya bukan tabel bagaimana pak
>
> 2012/10/3, rolandtambunan <rolandtambunan@gmail.com>:
>>
>> Untuk proses tambah data bisa menggunakan looping mas,
>> kemudian tambahkan dummy pada tblData berupa nomor urut.
>>
>> proses dibawah merupakan vba jika tblData hanya berisi semua data yang
>> akan
>> dipindahkan.
>>
>> =========
>>
>> Dim db As DAO.Database
>> Dim rs As DAO.Recordset
>> Dim DataLoop as long
>>
>> Dataloop=dcount(referensi, nama tabel)
>>
>> if Dataloop<1 then exit function 'Exit Sub jika diletakkan di Private
>> Sub()
>>
>> Set db = CurrentDb
>> Set rs = db.OpenRecordset("tblTemp")
>>
>> for i=1 to Dataloop
>>
>> KT$=dlookup("[Ket]", "tblData","[NoUrut]="& i &"") 'misalkan data dimulai
>> dari no urut 1
>>
>> rs.AddNew
>> rs!Ket = KT
>> rs.Update
>>
>> next i
>>
>> rs.close
>>
>> Set rs = Nothing
>> Set db = Nothing
>>
>> ==========
>>
>> Guna No urut tidak lain untuk memberitahukan proses pemindahan/penambahan
>> data.
>> apabila no urut tidak dimulai dari 1 bisa menggunakan fasilitas DMin()
>> dan
>> DMax().
>>
>> Apabila data no urut bisa terhapus tambahkan fungsi dcount() untuk
>> menghindari error.
>>
>> ...
>>
>> if dcount(nourut, namatabel, nourut=?)<>0 then
>> for i ....
>> ...
>> next i
>> end if
>>
>> ....
>>
>>
>> Salam,
>> Roland
>>
>>
>> ----- Receiving the following content -----
>> From: him mah
>> Receiver: belajar-access
>> Time: 2012-10-03, 09:00:10
>> Subject: [belajar-access] tambah record
>>
>>
>>
>> saya buat VBA untuk tambah record seperti ini
>>
>> Dim db As DAO.Database
>> Dim rs As DAO.Recordset
>>
>> Set db = CurrentDb
>> Set rs = db.OpenRecordset("tblTemp")
>>
>> rs.AddNew
>> rs!Ket = "ABC"
>> rs.Update
>>
>> Set rs = Nothing
>> Set db = Nothing
>>
>> kalau seperti di atas kita hanya menambahkan satu record saja, terus
>> bagaimana kalau menambhakan lebih dari 1 misal selain "ABC",
>> ditambahkan juga "DEF",GHI" dan lainnya
>>
>> terus kalau ditambahakan nya dari tabel lainya bagaiamana misal tabel
>> "tblTEmp" untuk field [KET] ditambahkan dari field [ASAL] table
>> "tblData"
>>
>>
>>
>