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"
>>
>>
>>
>
Tidak ada komentar:
Posting Komentar